AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 22 15:08:15
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : "Connexion fermée par serveur"... [ Réseaux & Internet / Winsock ] (Nowid50)

dimanche 18 mai 2008 à 09:26:35 | "Connexion fermée par serveur"...

Nowid50
Bonjour,
Je suis sur un petit programme pour tester les capacités de Winsock. J'ai regardé des exemples, mais je n'arrive pas à trouver pourquoi mon code ne fonctionne pas...

Est-ce que quelqu'un pourrait me dire pourquoi il ne fonctionne pas ?

Principe du programme :

Un client se connecte au serveur. Dès la connexion, le serveur compare si l'IP du Client fait parti de la liste des adresses IP :
Si oui, le serveur renvoit "0", sinon il renvoit "1".

Problème, la connexion s'établie mais le serveur n'envoie jamais le caractère...

Merci d'avance !

Ps : Le fichier "ServerList.txt" est inclus dans le RAR.
dimanche 18 mai 2008 à 09:55:46 | Re : "Connexion fermée par serveur"...

ghuysmans99

Membre Club
Réponse acceptée !
Mets un DoEvents juste après DeniedAccess: et GrantAccess:
Mais je ne te conseille pas d'utiliser goto dans ton code.
Voilà :

Option Explicit
Public I As Integer

Private Sub Form_Load()
'Init Vars
nB = 0
I = -1
Dim objUrl As New cURL
'Opening File
Open "ServerList.txt" For Input As #1
'Loop
Do
 I = I + 1
 Input #1, Temp
 objUrl.DomaineName = Temp
 ServeList.AddItem (objUrl.ip)
Loop Until EOF(1) 'Until the End Of File
'Clear All
Set objUrl = Nothing
Close #1
'Let's listen !
Sock(0).Listen
End Sub

Private Sub ServerDisable_Click()
'Log messages...
Select Case ServerDisable.Value
 Case 1: AddInLog ("Serveur Désactivé !")
 Case 0: AddInLog ("Serveur Activé !")
End Select
End Sub

Private Sub Sock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
'Init New Socket
nB = nB + 1
Load Sock(nB)
Sock(nB).Accept (requestID)
Call AddInLog("Requête de " & Sock(nB).RemoteHostIP)
If ServerDisable Then
 Sock(nB).SendData ("-2")
 Unload Sock(nB)
End If
'Check if asker has an autorised IP
For J = 0 To I
 ServeList.ListIndex = J
 If ServeList.Text = Sock(nB).RemoteHostIP Then
  DoEvents
  Call AddInLog("Accepté ! " & Sock(nB).RemoteHostIP)
  Sock(nB).SendData ("0")
  Exit For
 End If
Next
DoEvents
Call AddInLog("Refusé ! " & Sock(nB).RemoteHostIP)
Sock(nB).SendData ("1")
End Sub

Function AddInLog(Text As String)
Log.AddItem Text, 0
End Function

Private Sub Sock_SendComplete(Index As Integer)
Unload Sock(Index)
End Sub
Colorisation syntaxique par Renfield
_______________________________________________________________________
VB.NETis good ...VB6is better
dimanche 18 mai 2008 à 10:09:53 | Re : "Connexion fermée par serveur"...

Nowid50
Merci ! Ca fonctionne ! :D
dimanche 18 mai 2008 à 11:48:50 | Re : "Connexion fermée par serveur"...

Nowid50
Décidément... Quand ca veut pas ca veut pas...

Pourquoi quand j'utilise le code suivant :
    Sock.Connect
    Sock.SendData ("GetAutorisation")
   
    DoEvents
   
    Sock.GetData Data, vbString
    MsgBox (Data)
Il bloque à le deuxième ligne... ?
Il me dit : "Wrong protocol or connection state for the requested transaction or request." > J'utilise pourtant TCP des deux cotés...

(A titre d'info, ce winsock se connecte au serveur que j'ai donné plus haut ;))

Merci d'avance ! :)
dimanche 18 mai 2008 à 14:00:55 | Re : "Connexion fermée par serveur"...

Nowid50
Réponse acceptée !
Whoops... Apparament je n'ai pas le droit de poser ces intrstructions à la suite.
C'est bon j'ai résolu mon problème :)
dimanche 18 mai 2008 à 21:16:42 | Re : "Connexion fermée par serveur"...

ghuysmans99

Membre Club
Exact. La connexion se fait de façon asynchrone (le code n'attend pas qu'elle soit établie), d'où l'utilisation de DoEvents
_______________________________________________________________________
VB.NETis good ...VB6is better


Cette discussion est classé dans : programme, serveur, connexion, fonctionne, fermée

Répondre à ce message

Sujets en rapport avec ce message

Connexion à distance SQL serveur 2005 [ par poilusduboux ] Bonjour à tous Connexion SSL avec MS SoapSDK [ par barresavb ] Bonjour à tous.Je souhaiterais établir une connexion sécurisées via HTTPS entre un Add-in Outlook en VB6 vers un serveur Tomcat.Actuellement, j'ai déj Fax + windows serveur 2003 [ par jravouna ] Bonjour à tous,je me permet de poster sur le forum car je fait fasse à un problème (apparemment récurent) sur l'utilisation des api de faxing sous win Urgent problème de SQL serveur [ par dragon ] J'ai un très gros problème,j'ai une base de données sous Microsoft SQL Serveur 2005 qui fonctionne parfaitement. Elle a été configuré en compatibilité lister connexion/serveur sans fil (wifi) [ par wico2002 ] Salut, J'aimerais savoir si il y a une facons de lister des connexions ou reseau sans-fil avec vb6. J'ai une carte pour mon reseau sans fil chez moi e do nothing.....until.....? [ par bny ] Je suis  en train de faire un programme qui requiert une connexion èa une base de données SQL Server en Wi-Fi et j'ai un problème.  Lorsque je lance m Connexion FTP [ par Blanc ] Bonjours !Je voudrais me renseigner sur la possibilité de se connecter sur un serveur ftp (ou internet), pour y gérer des pages html ou autre fichier Fermer la connexion ou laisser ouvert ? [ par Akita95 ] Bonjour à tous,Je développe actuellement un programme utilisant une connexion ADO.Ma question est assez simple : Vaut-il mieux ouvrir et fermer une co [PB] connexion serveur mysql easyphp [ par dirickles ] salut a tous,j ai un gros probleme, j arrive pas a me connecter sur mon serveur mysql de easyphp.j ai ce message : "ERREUR SQL : accès refusee pour l' connexion automatique d'une application client serveur [ par pegazus ] Bonjour tout le monde voilà, j'ai une application client sereveur, la même application peut se connecter en mode client ou mode serveur, mais l'


Nos sponsors

Sondage...

CalendriCode


Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,156 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.