prob winsock

Question

bonjour, je suis en train de d&#233;velopper 2 appli qui marchent avec Winsock. Dans l'appli 1 (par exemple), je dis &#224; l'appli 2 d'ouvrir son lecteur cd : 

__________________________________________________________________
 If List1 = "ouvrir lecteur cd" Then
  Winsock1(1).SendData "opencd"
 End If

Lorsque g clik&#233; sur "ouvrir" l'appli 2 re&#231;oit &#231;a et son lecteur cd s'ouvre (avec un module mais mon probl&#232;me n'est pa la...)

________________________________________________________________
Public Function Action(Donn&#233;es As String, Index As Integer)
If Left(Donn&#233;es, 6) = "opencd" Then
Call mciSendString("Set CDAudio Door Open", "", 0, 0)
End if
End Function
________________________________________________________________
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  Dim ordre As String
   
 Winsock1(1).GetData ordre
   Call Action(ordre, 1)
 End Sub

Et l&#224; &#231;a marche....
D&#233;j&#224; question 1: est ce qu'on pourrait m'expliquer &#224; koi sert le chiffre 6 (par exemple) dans la ligne : If Left(Donn&#233;es, 6) = "opencd" Then, et comment on s'en sert ou comment &#231;a marche...
question 2: quand je veux bloker crtl+alt+supp (tout est dans un module) et donc pour appeler une fonction qui est dans le module, il faut mettre quel chiffre&#224; la ligne de commande (donc &#224; la place du 6)??

cs_Cracker · Answer

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  Dim ordre As String
   
 Winsock1(Index).GetData ordre
   Call Action(ordre, 1)
 End Sub

Si tu laisee le 1, il ne prendra que ce que recevra le 1 controle winsock, or ce ne sera pas forcement celui l&#224; !!
En revanche, je ne vois pss pourquoi tuindique l'indique l'index dans Action, mais si c'est important, il faudra surement que tu remplace le 1 par index !

DarkSpirit

Chef du projet CDD, www.chroniquedesdamnes.fr.st

Larwin · Answer

D&#233;j&#224; question 1: est ce qu'on pourrait m'expliquer &#224; koi sert le chiffre 6 (par exemple) dans la ligne : If Left(Donn&#233;es, 6) = "opencd" Then..., et comment on s'en sert ou comment &#231;a marche...

La focntion left(MonTexte,blabla) te sert vulgairement a choper blabla caract&#232;res en partant de la gauche de MonTexte...
Ex : Left("Je ne comprend pas", 9) = "Je ne com"

concernant ta deuxieme question c'est intimement li&#233; :)

Ex 1 : "opencd" fait 6 caract&#232;res donc :
Left("opencd", 6) = "opencd" ... pas dur jusque la.

Ex2 : "StopAltCtrlSupp" fait 15 caracteres donc :
Left("StopAltCtrlSupp", 6) = "StopAl"

a toi de composer comme tu le sens....

Prob winsock

2 réponses

Discussions similaires