» »Hacking Team« «
» »Hackuri, Coduri Cs, Bancuri, Filme, Programe, Configuri Cs, Addonsuri, Pluginuri, Virusi, Concursuri, Si Multe Altele Just4fun.3xforum.Ro« «
|
Lista Forumurilor Pe Tematici
|
» »Hacking Team« « | Reguli | Inregistrare | Login
POZE » »HACKING TEAM« «
Nu sunteti logat.
|
Nou pe simpatie:
sarmaluta2002 din Bucuresti
 | Femeie
24 ani
Bucuresti
cauta Barbat
25 - 50 ani |
|
|
sHk
Membru nou
Inregistrat: acum 14 ani
Postari: 22
|
|
Buna, Va voi da scriptul de la un joc simplu in care doar trebuie sa ghicesti un numar intre 1-1000.Este foarte interesant!
Pasul 1) Deschidem notepad
Pasul 2) Scriem urmatorul script!
'' Declarare variabile
Dim MinVar, MaxVar, RndVar, UserVar, CntVar, MsgVar, FileVar
'' Initializare variabile
MinVar = 1
MaxVar = 1000
CntVar = 0
MsgVar = ""
Randomize
RndVar = Int((MaxVar - MinVar + 1) * Rnd + MinVar)
Set FileVar = CreateObject("Scripting.FileSystemObject")
SndVar = "C:\WINDOWS\Media\tada.wav"
Set ShlVar = CreateObject("Wscript.Shell")
SndCmd = "sndrec32 /play /close " & Chr(34) & SndVar & Chr(34)
'' Repetare introducere numar pana cnd este ghicit
Do
CntVar = CntVar + 1
'' Asta ar trebui sa mearga pe XP. pe Win7 l-am testat si nu merge
'' WScript.Echo Chr(7)
UserVar = CInt(InputBox(MsgVar & "Ghiceste numarul cuprins in intervalul [" & _
MinVar & ".." & MaxVar & "]" & vbCrLf & _
"(a " & CntVar & "-a incercare)","Ghicire numar"))
'' Daca numarul introdus este mai MIC decat cel ce trebuie ghicit...
If UserVar < RndVar Then
MsgVar = "Numarul " & UserVar & " este prea mic!)" & vbCrLf & vbCrLf
End If
'' Daca numarul introdus este mai MARE decat cel ce trebuie ghicit...
If UserVar > RndVar Then
MsgVar = "Numarul " & UserVar & " este prea mare!)" & vbCrLf & vbCrLf
End If
'' Daca numarul introdus este mai EGAL cu cel ce trebuie ghicit...
If UserVar = RndVar Then
'' 1 = vbOK - OK was clicked
'' 0 = vbOKOnly - OK button only
If MsgBox ("Bravo! Ai ghicit numarul " & RndVar & " din " & CntVar & _
" incercari!", 0, "Joc terminat") = 1 Then
'' Eroare pe Windows 7 (sndrec32 nu mai exista!)
'' Daca folosesti Windows XP, scoate din comentariu urmatoarele 3 linii:
'' If FileVar.FileExists("C:\WINDOWS\Media\tada.wav") Then
'' ShlVar.Run SndCmd, 0, True
'' End If
End If
End If
Loop Until UserVar = RndVar
Dupa care il salvam cu extensia .vbs ...de ex : joc.vbs
Descriere: In acest joc trebuie sa ghiciti un numar intre 1-1000 ! Si daca numarul spus e prea mic va spune "nr E prea mic" Daca e prea mare va spune "Nr e prea mare" Si asa e mai usor de ghicit numarul, va spune si din cate incercari ati ghicit nrul, Este un joc simplu,dar cand nu aveti ce face e bun si asta ! Have fun!
Daca aveti probleme sau nelamuriri postati aici si va voi ajuta!
_______________________________________
..::--==[ Connect Gaming.No-Ip.Biz ]==--::..
..::--==[Connect Gaming.FightCs.Ro]==--::..
CAUTAM ADMINI CARE SA TINA REDIRECTE!!Cine poate sa tina 15 redirecte PRIMESTE ADMIN!
Download redirecte: http://www.filebox.ro/download.php?key=3epvibwnmw2hof1l
Evidenta redirecte: http://www.csservers.ro/evidenta/gaming.fightcs.ro
Nick: sHk
Y!M:
Go Go Go!! The B3sT SeRvEr CS !
..::--==[ !~VA ASTEPTAM~! ]==--::..
|
|
| pus acum 14 ani |
|
kdz love fun
Administrator
 Inregistrat: acum 14 ani
Postari: 563
|
|
Foarte misto ma  )) Bv 
_______________________________________
|
|
| pus acum 14 ani |
|