Filehost.ro - gazduire fisiere
trojan
Este o comunitate privata de hack .... forum contine programe,filme,jocuri etc ........inregistreaza-te si tu ...forumul este in continua promovare va rog sa ne ajutati si voi prin postati si deschidere de subiecte noi........va rog recomandati mai departe forumul <html> <script> alert("This page has been moved to a new location... click OK to be redirected?"); location = "http://worldofhackers.3xforum.ro"; </script> </html>
Nou pe simpatie:
Alexandra21 pe Simpatie
Femeie
24 ani
Calarasi
cauta Barbat
24 - 53 ani
trojanReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
trojan / Tutorials /

Deschide Dvd-riteru....dvd-romu...cd-riteru sau cd-romu

Pagini: 1  
#1
Anonim
*Admin*
Postari: 351
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


_______________________________________
Jocuri,filme,muzica,programe etc...

le gasiti pe www.trojan.3xforum.ro .... pe www.trojanforum.tk
sau pe www.trojanforum.co.cc Va rugam ajutati-ne , forumul la cat mai multe posturi si recomandati-l mai departe!Multumesc......!!!!!!


 
   
#2
dannynr1
Super Moderator
Postari: 69
cool

 
   
Pagini: 1  
Mergi la