²º¹ºRoWaiD CS CLAN!²º¹º
Bine ati venit pe forumul nostru!
|
Lista Forumurilor Pe Tematici
|
²º¹ºRoWaiD CS CLAN!²º¹º | Reguli | Inregistrare | Login
POZE ²º¹ºROWAID CS CLAN!²º¹º
Nu sunteti logat.
|
Nou pe simpatie:
Profil runnyroxy
 | Femeie
25 ani
Suceava
cauta Barbat
26 - 57 ani |
|
Gheorghe
*.::ADMINISTRATOR::.*
 Inregistrat: acum 16 ani
Postari: 136
|
|
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 "
msgbox "Made by Santinel"
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
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
Next
End If
pe urma dam Save As ..si salvam cu extensie .vbs
ce face chestia asta?pai iti deschide cd-romul de vreo 10 ori singur ..tu il inchizi el il deschide ...e ca un fel de stres numai bun de trimis pentru aia care dau massuri de doi lei ..pe yahoo...
Enjoy
_______________________________________
|
|
| pus acum 16 ani |
|