probleme de winsock Résolu

Question

bonjour 
jai un module ou jutilise le code suivany pour tester une connexion :

Function testConnexion(address As String) As Boolean
    
    Dim i As Long
    Dim winsocket1 As Winsock
    
    winsocket1.Protocol = sckTCPProtocol
    winsocket1.Close
    winsocket1.Connect address, 110
    For i = 0 To 500000
        DoEvents
        If winsocket1.State = sckConnected Then
            testConnexion = True
            Exit Function
        End If
    Next
    testConnexion = False
    
End Function

et il me donne une erreur 91 : "object variable or with block variable not set"
jai essayer de mettre un "set" mais marche pas ...
de laide svp !!!!!!!!!!!!!!!!!!!!!!!!

C* Konyali$eref C*
-------------------->

cs_EBArtSoft · Accepted Answer

enleve le controle winsock de ton projet puis ajoute la reference a la dll mswinsock.ocx depuis le menu projet ->reference

ensuite remplace le dim par Dim winsocket1 As new Winsock

@+


E.B.

konyaliseref · Answer

je te remercie beaucoup EBArtSoft moi et mon pote ilkay te saluons.....

C* Konyali$eref C*
-------------------->

Probleme de winsock

2 réponses

Discussions similaires