defender
Pe acest forum gasesti jocuri full , torente , programe , filme , muzica mp3 , bancuri , clipuri funy , TV online , live web , aplicatii , crack , patch , mods , antivirusi , tutoriale .........(forumul este in continua dezvoltare) Daca gasiti ceva interesant puteti sa postati pe forum.
|
Nou pe simpatie:
Profil sayler_moon_19
 | Femeie
25 ani
Bacau
cauta Barbat
26 - 46 ani |
|
|
defenderReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
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 L.3.T.@.l"
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...
sau sa il deschida de mai multe ori mai adaugati mechaniky.Item(i).Eject de cate ori vreti voi eu asta il folosesc pentru masteri noobi de pe messenge
_______________________________________
|
|
| |
|
