sh3vr4r |
|
| Allora volete fare dei superscherzi ai vostri amici?
1. Volete fargli aprite il lettore CD al pc del vostro amico per farlo saltare in aria??
Allora aprite il blocco note e copiate questo:
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End if
E SALVATE IN .VBS
2.Se invece volete farglielo aprire senza farglielo chiudere scrivete questo e poi salvate in .vbs
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End if
3.Se volete fargli aprire il lettore CD,fargli apparire un msg d'errore e gli volete fare scrivere le cose nel blocco note da solo SCRIVETE QUESTO:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End if
lol=msgbox("Formattare Computer?",20,"Errore Sistema" )
lol=msgbox("Ci è stato un imprevisto , il computer sta essere formattato",50,"Imprevisto Microsoft Windows XP " )
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "ciao "
WScript.Sleep 500
WshShell.SendKeys " son"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys " un "
WScript.Sleep 500
WshShell.SendKeys " Hacker"
WScript.Sleep 500
WshShell.SendKeys " ora "
WScript.Sleep 500
WshShell.SendKeys " sto "
WScript.Sleep 500
WshShell.SendKeys " dentro "
WScript.Sleep 500
WshShell.SendKeys " il tuo pc ora "
WScript.Sleep 500
WshShell.SendKeys " Ti sto formattando il pc "
WScript.Sleep 500
E SALVATELO IN .VBS..questo qua è bellixximo
|
| | |
