problème avec winsock!!

Question

Bonjour;
le voulais faire une connexion avec winsock &#224; google;alorsj'ai &#233;crit le code suivant : 
Private Sub Command1_Click()
Winsock1.RemotePort = 80
Winsock1.RemoteHost = "www.google.com"
Winsock1.Connect
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "erreur de connexion"
End Sub
au retour je re&#231;ois toujours "erreur de connexion",j'ai v&#233;rifi&#233; ma connexion internet : tout va bien.
alors est ce que quelqu'un peut m'aider &#224; r&#233;soudre ce probl&#232;me
           merci d'avance!

Renfield · Answer

fonctionne nikel chez moi...

Private Sub Command1_Click()
    Winsock1.RemotePort = 80
    Winsock1.RemoteHost = "www.google.com"
    Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()
    Winsock1.SendData "GET / HTTP/1.0" & vbNewLine & vbNewLine
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sBuffer As String
    Winsock1.GetData sBuffer, vbString, bytesTotal
    MsgBox sBuffer
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    CancelDisplay = False
End Sub

Renfield
Admin CodeS-SourceS - MVP Visual Basic

NHenry · Answer

Bonjour

Utilise les param&#232;tres de l'&#233;venement pour avoir une aide compr&#233;hensible.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_adoula2006 · Answer

salut RENFIELD;
bon j'ai essay&#233; le code que tu m'a envoy&#233;,&#231;a marche pas non plus mais j'ai au retour "la tentative de connexion a d&#233;pass&#233; le d&#233;lai d'attente "

Renfield · Answer

NHenry, de quel evenement parles tu ?
Error ?    si une erreur surviens, adoula2006 va recevoir une belle MsgBox compl&#232;te...

n'aurais tu pas simplement un probleme de parametrage de ton FireWall, qui interdirait VB6.exe de faire joujou en ligne.....

Renfield
Admin CodeS-SourceS - MVP Visual Basic

NHenry · Answer

Bonjour

Renfield, je n'avais pas rafraichi la page alors que tu avais d&#233;j&#224; r&#233;pondu.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Renfield · Answer

ceci explique cela ^^

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_adoula2006 · Answer

Non c'est pas le cas car mon firewall est d&#233;sactiv&#233;!

Renfield · Answer

m&#234;me le FireWall Xp (enfin, si tu as Xp) ?

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_adoula2006 · Answer

oui je travaille avec xp,mais j'ai tout d&#233;sactiv&#233; (les firewall).je pense pas que &#231;a soit un probl&#232;me de firewall.

Renfield · Answer

tu as pas un parametrage proxy ?

je sais pas trop quoi dire...
a part que je trouve compl&#232;tement dangereux de couper les Firewalls

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Problème avec winsock!!

10 réponses

Discussions similaires