Allora volete fare dei superscherzi ai vostri amici? xD
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 xD
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 xD