Probleme de winsock

Résolu
Signaler
Messages postés
35
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
20 juillet 2005
-
Messages postés
35
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
20 juillet 2005
-
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*
-------------------->

2 réponses

Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
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.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
35
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
20 juillet 2005

je te remercie beaucoup EBArtSoft moi et mon pote ilkay te saluons.....

C* Konyali$eref C*
-------------------->