Sockets VB.net (2008)
Bonjour à tous!
je possède un serveur (linux) et j'aimerai créer un programme en VB.net (absolument) pour savoir si mon serveur Apache (port 80) est UP ou Down.
Pour cela, il semblerait qu'il faille utiliser les sockets,
Imports System.Net.Sockets
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 10000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim _socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
_socket.Connect (new IpEndPoint(Dns.Resolve ("87.98.134.54").AddressList[0], 80))
End Sub
End Class
Voici le débug:
Erreur 1 Type 'IpEndPoint' non défini.
Erreur 2 Identificateur attendu. ( AddressList[0])
J'ai beau faire de nombreuses manipulations, impossible pour Visual studio 2008 de reconnaître "IpEndPoint".
Aidez-moi, je vous en prie
je possède un serveur (linux) et j'aimerai créer un programme en VB.net (absolument) pour savoir si mon serveur Apache (port 80) est UP ou Down.
Pour cela, il semblerait qu'il faille utiliser les sockets,
Imports System.Net.Sockets
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 10000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim _socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
_socket.Connect (new IpEndPoint(Dns.Resolve ("87.98.134.54").AddressList[0], 80))
End Sub
End Class
Voici le débug:
Erreur 1 Type 'IpEndPoint' non défini.
Erreur 2 Identificateur attendu. ( AddressList[0])
J'ai beau faire de nombreuses manipulations, impossible pour Visual studio 2008 de reconnaître "IpEndPoint".
Aidez-moi, je vous en prie
Configuration: Windows Vista Firefox 3.0.1 Net Framework 3.5
5 réponses
-
ipendpoint non défini.tu dois entrer directement l'adresse ip
par exemple,_socket.Connect ("87.98.134.54", 80)) -
Merci beaucoup pour ton aide, vraiment.
Le debuf n'affiche aucune erreur, mais le problème c'est que lorsque Apache est coupé, le programme plante à
_socket.connect(...) , c'est compréhensible mais problématique.
Impossible de faire une condition avec _socket.connect(...) car il ne renvoi pas de valeur... Je refais donc appel à vous.
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim _socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
_socket.Connect("87.98.134.54", 80)
If _socket.Connected = True Then
MsgBox("ok")
Else
MsgBox("NON")
End If
End Sub -
Un petit UP
-
Alors un gros UP
-
Vive les monologues!
