comment faire pour surveiller l'état d'un connexion réseau en VB6Résolu

Question

c moi flo

Salut &#224; tous !

G un probl&#232;me, car je dois faire la connexion TCP entre deux machines (client/serveur) sous visual basic 6 et il faut que je sois capable de surveiller l'&#233;tat de la connexion entre ces deux machines, c'est-&#224;-dire que si il y a une coupure du r&#233;seau, il faut que je puisse geler le client le temps que la connexion revienne.

Comment dois-je faire?
Pouvez-vous me faire un prog simple pour voir comment &#231;a marche?

Merci d'avance !!

flo

VBSorcier · Accepted Answer

Voila du code, tu fais un form avec un timer (activer de preference, et la dur&#233;e de refresh que tu veu) et voila : cela marche pour n'importe quelle connection r&#233;seau...

Private Declare Function InternetGetConnectedState Lib "wininet" (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean


Private Const INTERNET_CONNECTION_MODEM = 1
Private Const INTERNET_CONNECTION_LAN = 2
Private Const INTERNET_CONNECTION_PROXY = 4
Private Const INTERNET_CONNECTION_MODEM_BUSY = 8

Public Function StatConnection()
Dim flags As Long
Dim result As Boolean


    result = InternetGetConnectedState(flags, 0)
    If result Then
        Stat_Connect = "Connect&#233;"
    Else
        Stat_Connect = "Non Connect&#233;"
    End If
     
    If flags And INTERNET_CONNECTION_MODEM Then Stat_Via = "Via Modem"
    If flags And INTERNET_CONNECTION_LAN Then Stat_Via = "Via LAN"
    If flags And INTERNET_CONNECTION_PROXY Then Stat_Via = "Connection Proxy"
    If flags And INTERNET_CONNECTION_MODEM_BUSY Then Stat_Via = "Connection Modem, modem occup&#233;"
End Function


Private Sub Timer1_Timer()
    StatConnection
End Sub

Comment faire pour surveiller l'état d'un connexion réseau en VB6

1 réponse

Discussions similaires