Comment tester la communication Serveur/Client
Bonjour à tous,
Je veux faire un programme qui gère la communication entre le serveur et le client en TCP/IP avec Visual Basic Express 2008. J'ai déjà regardé les discussions concernant ce sujet. Mais ils ont programmé avec des différentes versions de Visual Basic. Je ne sais pas comment saisir le port et l'adresse IP du serveur quand on appuie sur le bouton connexion (En gros, comment on peut connecter le client et le serveur par le port et IP du serveur ?) en Visual Basic Express 2008. Et je voudrais aussi savoir comment on peut tester la communication entre le serveur et le client. Faut il 2 pc? Merci beaucoup. Voici mon code:
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
| Imports System.Text
Imports System.Net.Sockets
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
'Emission de donnée depuis serveur au client
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim donnees As Object
TextBox3.Text = TextBox1.Text & vbCrLf & "->" + donnees
TextBox1.Text = ""
End Sub
'Demande le numéro de port
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Port As Object
Dim IP As String
Port = InputBox("Entrer le port de connexion")
IP = InputBox("Entrer l'adresse Ip du serveur")
End Sub;
'Emission de donnée de puis le client au serveur
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox4.Text = TextBox2.Text + vbCrLf
TextBox2.Text = ""
End Sub
'Remise à 0 de la fenêtre de réception de donnée côté Serveur
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox4.Text = ""
End Sub
End Class |
