konyaliseref
Messages postés35Date d'inscriptionmercredi 12 mars 2003StatutMembreDernière intervention20 juillet 2005
-
18 juil. 2005 à 13:31
konyaliseref
Messages postés35Date d'inscriptionmercredi 12 mars 2003StatutMembreDernière intervention20 juillet 2005
-
18 juil. 2005 à 14:14
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 !!!!!!!!!!!!!!!!!!!!!!!!