Communication TCP via un script VBS

Peut être en regardant icic tu trouveras ce que tu veux :
http://www.activexperts.com/activmon...orking/client/

J'ai recupéré aussi deux vbs qui permettent de faire un chat (en UDP) si cela peut t'aider :

Send :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
On Error Resume Next
'*********************************
'*********************************
'**
'**  SCRIPT DEVELOPPE PAR K@ZUYA
'**  ---------------------------
'**  http://www.kazuya.chez.tiscali.fr/index.php
'**  -------------------------------------------
'**  Samedi 27 Décembre 2003
'**  13 h 02
'**
'*********************************
'*********************************
 
Set Sock = CreateObject("MSWinsock.Winsock")
Dim Login
HOST = InputBox("Veuillez saisir l'adress IP ou le nom d'hôte de l'interlocuteur")
If HOST <> VbNullString Then If Connect(HOST) Then If UserRegistration Then SendMessage
 
Function Connect(HOST)
Dim SckData
Dim Result
SckData = VbNullString
Result = False
Sock.Protocol = 1
Sock.RemotePort = 32520
Sock.RemoteHost = HOST
Sock.SendData "HELLO"
Cur_Time = Time
Tempo = 5
Do While Tempo > 0
   If Cur_Time <> Time Then
      Cur_Time = Time
      Tempo = Tempo - 1
   End If
   Sock.GetData SckData
   If SckData = "OK" Then
      MsgBox "Connection Etablie",vbokonly
      Result = True
      Exit Do
   End If
Loop
If Not Result Then MsgBox "Connection Impossible !"
Connect = Result
End Function
 
Function UserRegistration()
Login = InputBox("Veuillez Entrer votre Pseudo:" & VbCrlf & "Annuler = Quitter")
If Login = VbNullString Then
   UserRegistration = False
Else
   UserRegistration = True
End If
End Function
 
Sub SendMessage()
Do
   Message = InputBox("Veuillez Saisir le message a envoyer." & VbCrLf & "Le Message QUIT permet de quitter l'application")
   If Message = "QUIT" Then
      Sock.Close
      Sock.RemoteHost = "LocalHost"
      Sock.SendData "QUIT"
      Sock.Close
      SOck.RemoteHost = HOST
      Sock.SendData LoGin & Chr(0) & Chr(1)
      Exit Sub
   Else
      Sock.SendData Login & Chr(0) & Message
   End If
Loop
End Sub

Receive :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
On Error Resume Next
'*********************************
'*********************************
'**
'**  SCRIPT DEVELOPPE PAR K@ZUYA
'**  ---------------------------
'**  http://www.kazuya.chez.tiscali.fr/index.php
'**  -------------------------------------------
'**  Samedi 27 Décembre 2003
'**  13 h 02
'**
'*********************************
'*********************************
 
GetMessages()
sub GetMessages()
MsgBox "RECEPTION DES MESSAGES EN COURS"
SckData = VbNullstring
set UDP_SERVER = CreateObject("MSWinsock.Winsock")
UDP_SERVER.Protocol = 1
UDP_SERVER.LocalPort = 32520
UDP_SERVER.Bind
Do
   UDP_SERVER.Getdata SckData
   If SckData <> VbNullString Then
      Reply = Split(SckData,Chr(0))
      If Ubound(Reply) = 1 Then
         If Reply(1) = Chr(1) Then
            MsgBox Reply(0) & " S'est Déconnecté !"
            UDP_SERVER.Close
            UDP_SERVER.Bind
         Else
            MsgBox Reply(1),vbokonly,Reply(0)
         End If
      ElseIf SckData = "HELLO" Then
         UDP_SERVER.Senddata "OK"
      ElseIf SckData = "QUIT" Then
         Exit Do
      End If
      SckData = VbNullString
   End If
Loop
MsgBox "FIN DE RECEPTION DES MESSAGES"
End Sub