Apoklips
Un forum ptr cei ce vor sa invete programare !
|
Nou pe simpatie:
lovely_pink din Bucuresti
 | Femeie
24 ani
Bucuresti
cauta Barbat
26 - 49 ani |
|
|
ApoklipsInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
AreSAdministrator
Postari: 10
|
|
Ptr un pinger va trebuie 2 comand buttons unu botstart si unul botstop si un txthub
Codul ptr primul buton este
Dim a As Variant
Dim lcCmd As String
lcCmd = "ping -v igmp " & txthub.Text & " -l 15000 -t "
a = Shell(lcCmd)
txthub.Enabled = False
Codul ptr al 2 lea buton este
txthub.Enabled = True
Va uram succes daca nu va iese lasati mesaj :P
|
|
| |
|
