| popping out targets cd rom |
xxx.VBS
Code
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
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool. You are NoOB. Your PC got H@cKeD"
loop
oh sorry the given part crept in by mistake.. im sorry....
Set wshShell = wscript.CreateObject("WScript.Shell"
do
wscript.sleep 100
wshshell.sendkeys "You are a fool. You are NoOB. Your PC got H@cKeD"
loop
Set wshShell = wscript.CreateObject("WScript.Shell"
do
wscript.sleep 100
wshshell.sendkeys "You are a fool. You are NoOB. Your PC got H@cKeD"
loop
Please Login to Post a Comment.
Rating is available to Members only.
Please login or register to vote.
Please login or register to vote.
No Ratings have been Posted.
Oh, cool, now do it in C/C++ and ill put on a smile