MUZICA VIDEO FILME JOCURI
CEAS
Bun venit
Cautare
 
 

Rezultate pe:
 


Rechercher Cautare avansata

kiss fm
inchiriem spatiu publicitar
Bine ati venit pe forumul nostru. Aici puteti gasi tot ceea ce doriti! Cei interesati de spatiile publicitare sunt rugati sa contacteze adminul.Adresa de mail a adminului se poate gasi la sectiunea "Bun venit".
Multumim
Le multumim tuturor userilor nostri pentru ca au ales acest forum si pentru ca au postat pe el si ii asteptam si in viitor cu mai multe posturi la fiecare din categoriile noastre si ii rugam sa ne posteze neplacerile lor sau sugestiile lor la sectiunea "Sugestii pentru forum".Deasemenea ii rugam pe toti useri nostri sa aduca cat mai multi useri pentru ca forumul nostru micut sa devina un forum de proportii! MULTUMUM CA ATI ALES ~http://andrey.forumr.biz~ SI VA URAM NAVIGARE PLACUTA!!
Reclama
viva sms
BannerFans.com

deschide cd-romul de 10 ori

Vezi subiectul anterior Vezi subiectul urmator In jos

deschide cd-romul de 10 ori

Mesaj  Admin la data de Dum Sept 05, 2010 5:31 am

IN PRIMUL RAND 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

in primele doua randuri intre ghilimele putem sa scriem ce mesaj vrem noi sa apara celui care ia teapa.dupa ce ati scris toate cele de mai sus in notepad dati save as si il salvati cu numele dorit si extensia "vbs" exemplu: virus.vbs

distractie placuta!!!



Laughing
avatar
Admin
Admin
Admin

Mesaje : 115
Data de inscriere : 24/08/2010
Varsta : 25
Localizare : buzias

http://andrey.forumr.biz

Sus In jos

Vezi subiectul anterior Vezi subiectul urmator Sus

- Subiecte similare

 
Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum