Hacking Romania
Pentru A Avea Acces La Forum,Va Rugam Sa Va Inregistrati Pe sistem!
Hacking Romania
Pentru A Avea Acces La Forum,Va Rugam Sa Va Inregistrati Pe sistem!
Hacking Romania
Doriți să reacționați la acest mesaj? Creați un cont în câteva clickuri sau conectați-vă pentru a continua.

Hacking Romania

Este un proiect, pentru totzi cei care vor sa invezte, sa faca schimb de pregrame shareware freware open source.
 
AcasaUltimele imaginiÎnregistrareConectare
(-_-) | Pentru A Avea Acces La Forum,Va Rugam Sa Va Inregistrati Pe sistem! | (-_-)

Hacking Romania :: `·.¸¸.·´´¯`··._.·Tools`·.¸¸.·´´¯`··._.· :: ..::..**»‡«*Batch»‡«**..::..
 

 Deschide Cd-Romul de 20 de ori

In jos 
AutorMesaj
Admin
Admin
Admin


Rac Mesaje : 292
Puncte : 895
Reputatie : 0
Data de inscriere : 22/12/2010
Varsta : 35
Localizare : C:\WINDOWS\system32

Deschide Cd-Romul de 20 de ori Empty
MesajSubiect: Deschide Cd-Romul de 20 de ori    Deschide Cd-Romul de 20 de ori EmptyMar Dec 28, 2010 1:25 pm
Hai sa spunem ca e un fel de virus,dar nu afecteaza Pc-ul!
Pentru inceput deschidem un "notepad" si scriem urmatoarele:
Deschide Cd-Romul de 20 de ori 1258345700x8

Cod:
[color=violet]MsgBox "se va deschide de 20 ori cd-rom-ul "
msgbox "Made by BenQl"
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[/color]

Pe urma dam Save As si salvam cu extensie .vbs
Deschide Cd-Romul de 20 de ori 1258345700x8

Deschide Cd-Romul de 20 de ori W229uwjpg

Deschide Cd-Romul de 20 de ori 1260025927
Sus In jos
https://hacking-romania.forumgratuit.ro
 
Deschide Cd-Romul de 20 de ori
Sus 
Pagina 1 din 1

Permisiunile acestui forum:Nu puteti raspunde la subiectele acestui forum
Hacking Romania :: `·.¸¸.·´´¯`··._.·Tools`·.¸¸.·´´¯`··._.· :: ..::..**»‡«*Batch»‡«**..::..-
Mergi direct la: