Fonction de manipulation chaine en VB

Question

Salut

&#231;a fait vraiment longtemps que j'ai utiliser VB mais mon probl&#232;me est que je suis entrain de realiser un programme utilisant Winsock. Mon serveur demande le mot de passe au client et le client r&#233;pont par le mot passe, l'orsque le serveur envoie "psw" pour demander le mot de passe, &#224; la r&#233;ception sur client je re&#231;ois d'autres chaines precedement transmis du genre "Bienvenue sur serveur psw" ainsi donc je souhaiterai utiliser une fonction de manipulation de chaine qui nous permettrai de recuperer le psw de la reception. Merci.

Voici le code
rem code du client
Private Sub W_DataArrival(ByVal bytesTotal As Long)
 Dim rx As String
 Dim rxp As String
 rxp = Mid$(rx, InStr(1, rx, "psw", vbTextCompare), Len(rx))  ' voici le BUG
  W.GetData rx 'on met ce que l'on re&#231;oit dans la varible Rx.text
 txtChat.Text = txtChat.Text & vbCrLf & rx 'bon &#231;a tout le monde comprend :) msg "Reception " & rx
 MsgBox msg
 If rxp = "psw" Then  ' on v&#233;rifie si on nous demande le mot de passe
  Beep
  MsgBox "Envoie du mot de passe"
  W.SendData login.psw.Text        ' on r&#233;pond par le mot de passe taper dans le login
 End If
 rx = ""
End Sub

rem code du serveur 
If Mid$(Recus, 1, 6) = "User :" Then ' on v&#233;rifie si on re&#231;u user:
  client.Text = Mid$(Recus, 7, Len(Recus)) 'alors on identifie l'utilisateur
  txtChat.Text = txtChat.Text & vbCrLf & "Un Utilisateur est connect&#233; au serveur"
  'on envoie un echo &#224; l'utilisateur pour sa connexion au serveur
  txtEnvoi.Text = "Utilisateur " & Mid$(Recus, 7, Len(Recus)) & "Connect&#233; au serveur " & "depuis " & Time$
  W.SendData txtEnvoi.Text
  txtEnvoi.Text = ""
  msg = "psw" ' voici le bug
  txtEnvoi.Text = msg 'on d&#233;finit la chaine qui demande le mot de passe du client 
  W.SendData txtEnvoi.Text 'on demande &#224; l'utilisateur son mot de passe

  txtEnvoi.Text = ""
 End If

Paladin2107 · Answer

Dim pwd As String
pwd = InputBox("Saisir mot de passe ?")
MsgBox pwd

Couscous

cs_CanisLupus · Answer

Salut, pour la partie client, c'est normal que &#231;a plante, d'apr&#232;s ce que tu dis, le instr te renvoie une valeur > 1 donc tu ne peux donner comme longueur de chaine &#224; extraire la longueur totale de la chaine d'origine. Essaie &#231;a :

rxp = Mid$(rx, InStr(1, rx, "psw", vbTextCompare))
ou
rxp = Right$(rx, InStr(1, rx, "psw", vbTextCompare))

les 2 syntaxes sont &#233;quivalentes.

Pour la partie serveur, je ne comprend pas le bug. Ou alors msg n'est pas d&#233;clar&#233; comme string.


Moi j'aurais cod&#233; directement :


txtEnvoi.Text = "psw"

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

solodevci · Answer

Merci pour votre aide. les deux solutions pourront m'aider beaucoups merci.

Fonction de manipulation chaine en VB

3 réponses

Discussions similaires