#Welcome to HackLord.TK#
____----It`s all about Hacking----____
|
Nou pe simpatie:
Ioana24 pe Simpatie.ro
 | Femeie
25 ani
Bucuresti
cauta Barbat
27 - 43 ani |
|
|
#Welcome to HackLord.TK#InregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 *OvY*Administrator
Postari: 321
|
|
Acesta e un fel de virus care deschide cd-romul de 10 ori tu il inchizi el il deschide 
Pentru Inceput deschizi un notepad si scrii 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
_______________________________________
_____________ CaNd Mi-Ai IeSiT In TiNtA Nu FuGi .. Nu FaCi DeCaT Sa MoRi ObOsIT _______________
just4cs.3xforum.ro
Y!M: Laleagane_ovy
|
|
| |
|
