Discussion :

[buzzludo]

Bonjour a tous

j'ai 2 programme vbs un qui envoi des message et l'autre qui les reçoi
jusque la aucun probleme du moi sur mon ordi quand je lance les 2 prog il arrive a comuniqué mais que j'en lance un sur mon ordi et l'autre sur un autre ordi en local la connection n'arrive pas a s'établire !!

voici les prog :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
'Send Messages.vbs
 
On Error Resume Next
 
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 = 20
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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
'Receve Messages.vbs
 
On Error Resume Next
 
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

J'aimerai savoir si il y a un erreur de programmation ou une mauvaise configuration des ordi ou autre chose xD ?

Merci d'avance pour vos réponce

[ced600]

Cela sort une erreur ou la connexion ne s'établie pas ?
Tes machines se ping ?

[buzzludo]

non pas de message d'erreur juste la connection ne s'établie pas (la boite de dilogur du programme) et le test ping est positif sur les ordi
je tien a repréciser que les ordi son en local!!
je vien d'essayer a distance marche pas non plus!!