serveur online ou offline?

bonjour tout le monde voila mon problème j'essaye de créer un launcher pour aion tout se passe bien mais la je cale sur petit soucis.
existe t'il sous vb.net équivalant de ce code svp?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 <?php $ip = "XXX.XXX.XXX.XXX"; // IP Serveur $port = "XXXXX"; // Port Serveur $fp = @fsockopen($ip, $port, $errno, $errstr, 1); if($fp >= 1) { echo'<img src="images/online.jpg"/>'; // A la place de Ouvert vous pouvez mettre une image... } else { echo '<img src="images/offline.jpg"/>'; // A la place de Fermé vous pouvez mettre une image... } ?>

voir dans system.net.sockets

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Import System.Net.Sockets
 
...
Function IsOnline(ByVal address As String, ByVal port As Integer) As Boolean
 
    Try
        Dim client As New TcpClient(address, port)
        client.Dispose()
        Return True    
    Catch
        Return False
    End Try
 
End Function

merci pour votre réponse donc apres ce code je rajoute l'activation de ma page:
Code:

1 2 3 4 5 6 7 8 if Return True Then WebBrowser4.Visible = False WebBrowser3.Visible = True else WebBrowser4.Visible = True WebBrowser3.Visible = False end if
suis-je dans l'erreur?
désolé je suis vraiment un gros débutant:oops:

"if Return True", ça n'a pas de sens...

Il faut que tu appelles la fonction :
Code:

1 2 3 Dim online As Boolean = IsOnline(address, port) WebBrowser3.Visible = online WebBrowser4.Visible = Not online

je te remercie pour ton aide :ccool: