Open Notepad > Paste the Following code > Replace “This is a Virus” with Any Text > Save it as Trick.VBS Set wshShell = wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “This is a Virus. You have been infected.” loop
Open Notepad > Paste the Following code > Save it as Eject.VBS Set oWMP = CreateObject(“WMPlayer.OCX.7”) Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count – 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count – 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop
Open Notepad > Paste the Following Code > Save it as NP.Bat @ECHO off :top START %SystemRoot%\system32\notepad.exe GOTO top
Open Notepad > Paste the following code > Save it as Talk.VBS Launch it > Put the text you want to talk > Click OK Dim Message, Speak Message=InputBox(“Enter Text to Talk o”,”Speak”) Set Speak=CreateObject(“sapi.spvoice”) Speak.Speak Message
AK Tricks