Acasa
Despre
Creare Cont
Login
Categorii
Caută întrebări sau răspunsuri:
.vbs
Feb
21
2011
va salut
am si eu o intrebare la voi
stiti trucurile alea cu fisirele de tip nume.vbs ca niste farse
de scri msgbox „aici scri un mesaj”
ce cod trebuie sa scriu in fisier, ca sa apara o caseta in care sa scrie cand intra in ea
adica de ex
i scriu msgbox”cum te cheama?”
si apoi sai apara o caseta in care sa-si scrie numele
si alte trucuri de tipu asta daca mai stiti
ca vreau sa fac o farsa ca si eu am fost pacalit in felul asta dar de alcineva
Raspunde la intrebare
You must be Logged In to post an Answer.
Not a member yet? Sign Up Now »
Scara punctelor
Castiga puncte intreband si raspunzand la intrebari!!
[1 - 25 
]
[26 - 50 
]
[51 - 500 
]
[501 - 5000 
]
[5001 - 25000 
]
[25001+ 
]
Answer #1
Deschizi un fisier nou notepad si scrii asta:
MsgBox „Salut!Esti bine?”
msgbox „Eu tot…Dar cred ca calculatorul tau nu.”
msgbox „Te intrebi de ce,nu?Uite la CD-Romul tau.”
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
Next
End If
msgbox „Te-ai suparat?”
msgbox „Stiam”
msgbox „Creat de Symboss”
apoi dai click pe File > Save as si stergi „.txt” din denumire si pui „.vbs”
Scriptul acesta face ca cel caruia il executa, sa i se deschida sertarul de la unitatea optica de 3 ori. Daca vrei sa i se deschida de 4 ori pui in script „mechaniky.Item(i).Eject” (pentru fiecare linie „mechaniky.Item(i).Eject” adaugata in script, sertarul se va deschide 1 data