Discussion :

[vincent1890]

Bonjour à tous

Je vous explique en brièvement je réalise une petite applique qui va me permettre de vérifier l’état de mes serveurs en général car ( Web,Ftp,Game...) aussi que mes camera IP et PC réseau bon enfin tous se qui a une IP et un port de connections.

donc

Comment est t'il possible d'actualiser automatiquement ou manuellement avec un bouton ce code la pour que les images d'état des serveurs soit actualiser en fonction de l'état du serveur justement car actuellement tous marche niquel mais je suit obliger de fermer puis relancer pour actualiser les état serveur donc pas très cool.

voila le code actuel simple mais efficace:

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
Imports System.Net.Sockets
Public Class Form1
    Dim Verif1 As New TcpClient()
    Dim Verif2 As New TcpClient()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Try
            'this is for the game server ip & port change the 127.0.0.1 to you hamachi or dync ip and 6686 for you port
            Verif1.Connect("interpole-fr.com", 80)
        Catch ex As Exception
        End Try
        Try
            'this is for the auth server ip & port change the 127.0.0.1 to you hamachi or dync ip and 1433 for you port
            Verif2.Connect("AdresseIP", 21)
        Catch ex As Exception
        End Try
        If verif1.Connected Then
            'this is to show the state of game server on the form
            Verif1PitureBox.Image = My.Resources.live
        End If
        If verif2.Connected Then
            'this is to show the state of auth server on the form
            Verif2PictureBox.Image = My.Resources.live
        End If
    End Sub

je vous remercie d'avance n’hésiter pas a vous exprimer je testerais et si sa marche vous serez mon sauveur donc venez tenter votre chance c'est gratuit en plus

sans plaisanter dite moi tous sans retenu je suis la pour apprendre.

[azstar]

tu peut fermer la connexion puis se connecter à nouveau a chaque que tu veux actualiser

Code :

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

1
2
 
Verif1.Close();

[vincent1890]

Bonjour
merci pour la réponse mais étant débutant dans le domaine du vb net je vois bien ou placer le close mais je ne comprend pas comment sa va actualiser.
car le but est que l'affichage s'actualise des que j'appuis sur le bouton actualiser de mon interface
dsl je suis noob dans le domaine.

[azstar]

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
 
Imports System.Net.Sockets
Public Class Form1
    Dim Verif1 As New TcpClient()
    Dim Verif2 As New TcpClient()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
       testconnexion()
    End Sub
 
 
Sub testconnexion()
  Dim Verif1 As New TcpClient()
    Dim Verif2 As New TcpClient()
        Try
            'this is for the game server ip & port change the 127.0.0.1 to you hamachi or dync ip and 6686 for you port
            Verif1.Connect("interpole-fr.com", 80)
        Catch ex As Exception
        End Try
        Try
            'this is for the auth server ip & port change the 127.0.0.1 to you hamachi or dync ip and 1433 for you port
            Verif2.Connect("AdresseIP", 21)
        Catch ex As Exception
        End Try
        If verif1.Connected Then
            'this is to show the state of game server on the form
            Verif1PitureBox.Image = My.Resources.live
        End If
        If verif2.Connected Then
            'this is to show the state of auth server on the form
            Verif2PictureBox.Image = My.Resources.live
        End If
Verif1.Close();
Verif2.Close();
end Sub

et tu peut appelle cette méthode dans l’événement clique de ton bouton

[vincent1890]

RE bonsoir le passage citation etait se que j'ai ecrit il y a quelque minute mais j'ai trouver la solution grace a un projet php ou j'ai eu le meme probleme y a quelque mois.
j'ai rajouter :

Code :

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

1
2
Else
            Verif2PictureBox.Image = My.Resources.dead

et sa marche nickel merci beaucoup une derniere question exist il une solution permettre de deplacer la fenetre lors de de la verification d'etat des serveur car sa bloque la fenetre et on peut plus la deplacer.

merci

presque bon mais j'ai encore un soucis les petites image qui m'indique si le serveur est online ou offline

l'image ne s'actualise pas dans le sens serveur Online vers serveur Offline.
alors que
l'image s'actualise dans le sens serveur Offline vers serveur Online

merci déjà pour le code pour actualiser c niquel

Voila la partie du code :

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
Imports System.Net.Sockets
 
Public Class Form1
    Dim Verif1 As New TcpClient()
    Dim Verif2 As New TcpClient()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        testconnexion()
    End Sub
 
    Sub testconnexion()
        Dim Verif1 As New TcpClient()
        Dim Verif2 As New TcpClient()
        Try
            'this is for the game server ip & port change the 127.0.0.1 to you hamachi or dync ip and 6686 for you port
            Verif1.Connect("interpole-fr.com", 80)
        Catch ex As Exception
        End Try
        Try
            'this is for the auth server ip & port change the 127.0.0.1 to you hamachi or dync ip and 1433 for you port
            Verif2.Connect("88.190.27.157", 21)
        Catch ex As Exception
        End Try
        If Verif1.Connected Then
            'this is to show the state of game server on the form
            Verif1PitureBox.Image = My.Resources.live
        End If
        If Verif2.Connected Then
            'this is to show the state of auth server on the form
            Verif2PictureBox.Image = My.Resources.live
        End If
        Verif1.Close()
        Verif2.Close()
    End Sub
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        testconnexion()
    End Sub

je ne comprend pas pourquoi ? Dsl de vous déranger encore

[azstar]

la form se freeze parce que le principale thread (c'est lui que ce charge de l'interface )est occupé à faire son connexion au serveur donc pour résoudre se problème il faut utiliser le multithreading .


mais attention au cross threading pour la mise a jour des interfaces graphiques
lien1 ou lien2