Discussion :

[sayajin33]

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 PHP :

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

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...
} 
?>

[Pol63]

voir dans system.net.sockets

[tomlev]

Code :

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

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

[sayajin33]

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

Code :

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

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

[tomlev]

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

Il faut que tu appelles la fonction :

Code :

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

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

[sayajin33]

je te remercie pour ton aide