DIGITAL FREESAT FORUM
Here you find everything about the satellites for satellite receivers software, keys, movies, music ..... many other
|
Lista Forumurilor Pe Tematici
|
DIGITAL FREESAT FORUM | Inregistrare | Login
POZE DIGITAL FREESAT FORUM
Nu sunteti logat.
|
Nou pe simpatie:
crazygirl
 | Femeie
24 ani
Buzau
cauta Barbat
26 - 80 ani |
|
|
weser33
Membru nou
Inregistrat: acum 16 ani
Postari: 28
|
|
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 |
|