PCToOLs
Un forum pentru fiecare!! 		Lista Forumurilor Pe Tematici
PCToOLs | Reguli | Inregistrare | Login

POZE PCTOOLS

Nu sunteti logat. 		Nou pe simpatie:
andrum94
Femeie
24 ani
Galati
cauta Barbat
27 - 80 ani
PCToOLs / >>Tutoriale H@ck RO<< / Fake CD/DVD Moderat de Raxon
Autor
Mesaj Pagini: 1
b3n1am1n
Administrator

Inregistrat: acum 17 ani
Postari: 3407
Copiezi textul de mai jos intr-un fisier notepad si il salvezi astefel: nume.vbs

Descriere: Acest Fisier Odata Ce Este Pornit Deschide Cd-Rom-ul De 10 Ori.


MsgBox "Salut!Tu stii ca DVD-Romul iti da muie?"
msgbox "Creat de mrsro"
Const SPF_DEFAULT = 0
Dim Text
Text = "windows dai sa suga !@*^#$@!! la papagalul din fata ta"
Set ISpeechVoice = CreateObject("SAPI.SpVoice"
Call ISpeechVoice.Speak(Text, SPF_DEFAULT)
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

Next
End If


_______________________________________
1) Esti pe net
2) Esti pe Situl MediasH
3) Imi citesti semnatura
5) Nu ai observat ca lipseste punctul 4
6) Tocmai ai verificat daca exista punctul 4 sau nu
7) Zambesti, sau chiar razi !
pus acum 17 ani
   
Pagini: 1  

Mergi la