fair un logiciel de discution en vb6Résolu

Question

salut &#224; tous,

j'suis entrain d'fair un logiciel de discution grace a des control winsock

et j'ai un probl&#232;me:

dans l'interface y'a un endroit pour mettre son ip(pour qu'un que control winsock s'y connecte)ca s'appelle text1

donc apr&#232;s dans le code j'met:

Private Sub Command1_Click()



 Wck.Connect Text1.Text, 12666

 End Subapr&#232;s j'test et la il me dis que y'a un probl&#232;m a ce
niveau la alors qu'avance de cliquer sur le bouton j'ai bien rempli le
text1.text avec des guillements

donc si vous connaissez la soluc'...

merci d'avance

sinon le code entier donne ca(il est pas du tout long^^):



 Private Sub Form_Load()

 Winsock.LocalPort = 12666

 Winsock.Listen

 End Sub



 Private Sub Command1_Click()



 Wck.Connect "Text1.Text", 12666

 End Sub

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)

 Winsock.Close

 Winsock.Accept requestID

 End Sub



 Private Sub Wck_Connect()



 MsgBox "Trouv&#233;"

 End Sub

Private Sub Command2_Click()





 Wck.SendData InputBox(" votre texte :")

 End Sub



Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)

 Dim data As String

 Winsock.GetData data

 MsgBox data

 End Sub

c'estv pas finit mais bon

PCPT · Accepted Answer

3 boutons (par défaut) 1 txtbox (défaut) un seul socket (nommé WSK) Dim Role As String Private Sub Form_Load() 'mise en page Command1.Caption = "être client" Command2.Caption = "être serveur" Text1.Text = "127.0.0.1" Command3.Caption = "communiquer" Command3.Enabled = False End Sub ' ' Private Sub Command1_Click() 'CLIENT 'mise en page Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Role = "Client" WSK.Close WSK.Connect Text1.Text, 12666 End Sub ' ' Private Sub Command2_Click() 'SERVEUR 'mise en page Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Role = "Serveur" WSK.Close WSK.LocalPort = 12666 WSK.Listen End Sub ' ' Private Sub Command3_Click() 'INPUTBOX If WSK.State = 7 Then WSK.SendData InputBox(" votre texte :") Else MsgBox "Vous n'êtes pas connecté!", vbCritical End If End Sub ' ' ' ' Private Sub WSK_Connect() MsgBox "Connection établie" End Sub ' ' Private Sub WSK_ConnectionRequest(ByVal requestID As Long) WSK.Close WSK.Accept requestID End Sub ' ' Private Sub WSK_DataArrival(ByVal bytesTotal As Long) Dim Data As String WSK.GetData Data MsgBox "- Message reçu par le " & Role & " -" & vbCrLf & Data End Sub ' ' Private Sub WSK_Close() MsgBox "fermeture de l'hôte distant", 32 WSK.Close End Sub ' ' Private Sub WSK_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 "Err n°" & Number & " : " & Description, vbCritical WSK.Close End Sub Coloration syntaxique automatique [AFCK] PCPT

cs_Willi · Answer

&#224; la place de text1.text tu as essay&#233; de mettre &#224; la place l'ip pour voir si sa viens de la ton probl&#232;me ?


<HR>

 Si la r&#233;ponse te conviens merci de l'accepter

dOsSpr0uTosS · Answer

bah quand je le test en local(c'est a dire que mes deux control winsock comminuque entre eux sur le meme ordi)et que dans le code je met 127.0.0.1 ou j'sais pas quoi et bah ca marche parfaitement mais comme je veux l'utiliser avec un pote sur internet son ip ca sera pas ca et vus que son ip est dynamique il faudrait refair un prog a chaque fois ou bien qu'il prenne le text du textbox mais il ne le fais pas apparament

PCPT · Answer

salut,
tu peux pas te connecter alors que tu es en train d'&#233;couter...
PCPT

dOsSpr0uTosS · Answer

c'est le control wck qui se connecte et winsock qui ecoute regarde bien la source 
ca march en local en plus

PCPT · Answer

ok, je la refais :
tu ne peux pas &#233;tablir une connection sur le port 12666 avec WCK alors que WINSOCK est d&#233;j&#224; en &#233;coute dessus.
regarde bien la source

cs_CanisLupus · Answer

Salut,
Et puis, ce n'est pas 
Wck.Connect "Text1.Text", 12666
mais
Wck.Connect Text1.Text, 12666
qu'il faudrait coder.

Et il ne faut pas taper de guillemets dans la textbox, juste l'adresse ip.


-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

^^ &#233;galement oui, bien vu

dOsSpr0uTosS · Answer

pour les guillement j'le savais mais j'me suis tromp&#233; quand j'ai ecris dsl....

sinon il faut que wck se connecte par exemple au port 12669 pendant que
winsock &#233;coute 12666 mais alors winsock ne servira plus a rien

quand j'test en local ca march les deux winsock(le serveur et le client)

mais j'suis etonn&#233; quand meme en local ca march :-/

PCPT · Answer

re, ajoute 4 boutons tu dis écouter et recevoir en local sur le port 12666 donc logiquement, le port distant = le port local de l'autre... copie ce code pour test 4 nouveaux boutons, puis click-les après être connecté en 127.0.0.1 Private Sub Command3_Click() MsgBox Winsock.LocalPort End Sub ' Private Sub Command4_Click() MsgBox Winsock.RemotePort End Sub ' Private Sub Command5_Click() MsgBox Wck.LocalPort End Sub ' Private Sub Command6_Click() MsgBox Wck.RemotePort End Sub Coloration syntaxique automatique [AFCK] si les 4 msgbox renvoient 12666, alors je reconnaîtrai mon erreur... en l'attente, PCPT

dOsSpr0uTosS · Answer

elle revoient pas toute 12666 enfazites y'en a deux qui renvoient 12666
et deux qui renvoient 1164 donc tu as raison mais j'ai pas trop compris
quelle est mon erreur enfaites

explique moi bien clairement si tu peux corriger un peu mon code pour
que ca march(je viens de commencer a me servir de winsock...)

dOsSpr0uTosS · Answer

ok merci beaucoup faudrait que j'teste avec quelqu'un parce que tout seul il me dis que j'suis pas connect&#233;...

voila merci beaucoup

PCPT · Answer

tout seul, il faut tester en cr&#233;ant l'exe (donc 2 lancements, un client, un serveur)

PCPT

PCPT · Answer

ps : j'ai oublier un WSK.Close au Unload de la Form, mais c'est le principe de toute mani&#232;re...

dOsSpr0uTosS · Answer

c'est bon ca march nikel

dOsSpr0uTosS · Answer

erf j'ai un dernier probl&#232;me:

quand j'lance le prog sur un autre ordi il me dit qu'il manque un
fichier et que winsock.j'sais ps quoi y est pas donc j'crois qu'il faut
que j'ai besoin d'une dll winsock ou j'sais pas quoi pour l'autre ordis
nan?si oui ou trouver le fichier qu'il me faut?

Radiohead4ever · Answer

Place ce code dans un bouton : 

On Error GoTo Merde
Dim chemin as string

chemin = C:\WINDOWS\SYSTEM 'juste un exemple...

FileCopy App.Path & "\Mswinsck.dep", chemin & "Mswinsck.dep"
FileCopy App.Path & "\MSWINSCK.oca", chemin & "MSWINSCK.oca"
FileCopy App.Path & "\Mswinsck.ocx", chemin & "Mswinsck.ocx"


MsgBox "L'installation est r&#233;ussie"
Unload Page1
End


Merde:
MsgBox "L'installation de WinSock a &#233;chou&#233;e"
Unload Page1
End

&#201;videment, tu doit te procurer les fichiers : Mswinsck.dep, MSWINSCK.oca et Mswinsck.ocx.
Tu n'a qu'&#224; chercher un peu sur le net.

PCPT · Answer

il est marrant...
il parle d'un probl&#232;me, le valide pour la r&#233;ponse trouv&#233;e, et monsieur ne fourni pas les fichiers n&#233;cessaires donc d&#233;valide?

v'la autre chose.
&#231;&#224; donnrait presque envie de de sourir...
presque..

PCPT

dOsSpr0uTosS · Answer

c'est pas ca t'as resolu l'probl&#232;m mais plutot que de recr&#233;&#233; un topic je continu sur celui-la et vus que les gens ne vont pas sur les topic ou la reponse a ete accept&#233; et bien je devalide vois pas ou est le probl&#232;m apart si tu veux avoir ta reponse valid&#233;e a tout prix...

Fair un logiciel de discution en vb6

19 réponses

Discussions similaires