hallo
wie kann ich in den BW, eine schleife einbauen, die ständig prüft ob der Server online ist ??
wie kann ich in den BW, eine schleife einbauen, die ständig prüft ob der Server online ist ??
VB.NET-Quellcode
- Private Sub bw1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bw1.DoWork
- Dim ping As New System.Net.NetworkInformation.Ping
- Dim reply As System.Net.NetworkInformation.PingReply = ping.Send("google.de")
- Try
- If reply.Status = Net.NetworkInformation.IPStatus.Success Then
- PictureBox1.Image = My.Resources.onlineProcess.Start("http://google.de")
- ElseIf
- reply.Status = Net.NetworkInformation.IPStatus.TimedOut Then
- PictureBox1.Image = My.Resources.ofline
- End If
- Catch ex As Exception
- 'nothing
- End Try
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Alex - AK“ ()