PCToOLs
Un forum pentru fiecare!!
|
Nu sunteti logat.
Lista Forumurilor Pe Tematici
|
Nou pe simpatie:
Stefania23
 | Femeie
24 ani
Dolj
cauta Barbat
25 - 46 ani |
|
|
PCToOLsReguliInregistrareLoginPoze
|
| #1 |
|
|
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 !
|
|
| |
|
