Bonjour à tous,
J'ai créer un serveur TCP avec VB 2005 qui est censé avoir pour client une page web d'un navigateur internet.
Il fonctionne donc avec le protocole HTTP, et envoie une page HTML au client selon le lien sur lequel il clique.
Le problème est que lorsque la page précendente reste affichée sur le navigateur, et je me retrouve avec la page que je désire et la précendente.
Si quelqu'un a une solution...
Merci d'avance
Les sources :
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Serv_Actif = 1 Then
'Si détection d'une connection
If (EcouteTCP.Pending = True) Then
Label1.Text = "Client connecté"
Timer1.Enabled = False
Dim ClientTCP As Net.Sockets.TcpClient = EcouteTCP.AcceptTcpClient()
'Récupération des trames
Donnees_reseau = ClientTCP.GetStream()
Dim bytes(ClientTCP.ReceiveBufferSize) AsByte
Donnees_reseau.Read(bytes, 0, CInt(ClientTCP.ReceiveBufferSize))
Dim Donnees_client AsString = System.Text.ASCIIEncoding.ASCII.GetChars(bytes)
'===========================
'Le client demande : Donnees_client
Dim Envoi_bytes As [Byte]() = System.Text.ASCIIEncoding.ASCII.GetBytes(Reponse)
Donnees_reseau.Write(Envoi_bytes, 0, Envoi_bytes.Length)
'Analyse des 1ers caracteres de la trame GET du protocole HTTP
Dim Index01 AsInteger
Dim Str01 AsString
Index01 = Donnees_client.IndexOf("GET / ") + 6
Str01 = Donnees_client.Substring(Index01, 8)
'Selection de la fonction demandée selon la trame GET
If (Str01 = "Avan.htm") Then
Avance()
ElseIf (Str01 = "Droi.htm") Then
Droite()
ElseIf (Str01 = "Recu.htm") Then
Recule()
ElseIf (Str01 = "Gauc.htm") Then
Gauche()
ElseIf (Str01 = "Accu.htm") Then
Arret()
EndIf
AffichePage(Str01)
Timer1.Enabled = True
EndIf
EndIf
EndSub
'Envoie de la page HTML correspondante a la fonction demadée
Sub AffichePage(ByVal NomDePage)
Dim Fichier_a_envoyer As System.IO.FileStream
If (NomDePage = "Accu.htm") Then
Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Accu.htm")
ElseIf (NomDePage = "Avan.htm") Then
Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Avan.htm")
ElseIf (NomDePage = "Droi.htm") Then
Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Droi.htm")
ElseIf (NomDePage = "Recu.htm") Then
Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Recu.htm")
ElseIf (NomDePage = "Gauc.htm") Then
Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Gauc.htm")
Else
Fichier_a_envoyer = System.IO.File.OpenRead("\SDCard\Nessie\Accu.htm")
EndIf
Dim FileReader AsNew System.IO.StreamReader(Fichier_a_envoyer)
Reponse = FileReader.ReadToEnd
FileReader.Close()
Fichier_a_envoyer.Close()
Dim Buff1 As [Byte]() = System.Text.ASCIIEncoding.ASCII.GetBytes(Reponse)
Donnees_reseau.Write(Buff1, 0, Buff1.Length)
EndSub