copy the code below paste in notepad and save it as blabla.vbs
On error resume next
Dim Wshell Dim aan a=msgbox("Your Computer save from Virus",vbyes,"Virus Detection")
set wshell=CreateObject("wscript.shell") set wshshell.wscript=CreateObject("wscript.shell") aan="Sorry this application run in ur computer, this not a kind of virus or else. JUST SAY --jeRk is fun--"
Do Dim i wscript.sleep 2000 wshell.run"notepad.exe",3 wscript.sleep 1000 for i=1 to len(aan) wshell.sendkeys mid(aan,i,1) wscript.sleep 50 next loop
=========================================== save in blabla.vbs
see how amazing notepad, no software...
|