Problème connection reseau local
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:
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:
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
