Hallo liebe Community,
Ich habe mal wieder einen trotalen Brainfail...
Ich habe in einer Datenbank 3 Spalten:
ID ---- Link ---- Aktiv
Diese sind mit der ID einem link (bspw google.de/scripts/) und True oder False versehen
Die Aktive = True gesetzten Links und IDs lasse ich mir ausgeben und speichere diese in einer List(of String)
Nun habe ich folgenden Code:
Die Sache ist nun folgende: Ich möchte jeden Server in dieser List(of String) einmal anpingen und die Millisekunden speichern. Nachdem alle Gepingt wurden, will ich alle MS miteinander vergleichen und herausfinden, welcher Server die "schnellste" antwort gegeben hat.
Diesen will ich dann als aktiven Server verwenden.
Mein Problem:
Ich habe 3 Server eingetragen wovon einer zum Test auf False steht also nicht aktiv.
Die anderen beiden werden Brav gezogen und gepingt. Nun wird allerdings in das label lblNews immer nur der 1. server rein geschrieben und das Programm zeigt mir ab und an die MSGbox am ende nicht an.
Ich weiß messagebox.show(blabla)
Danke
Ich habe mal wieder einen trotalen Brainfail...
Ich habe in einer Datenbank 3 Spalten:
ID ---- Link ---- Aktiv
Diese sind mit der ID einem link (bspw google.de/scripts/) und True oder False versehen
Die Aktive = True gesetzten Links und IDs lasse ich mir ausgeben und speichere diese in einer List(of String)
Nun habe ich folgenden Code:
VB.NET-Quellcode
- Me.Invoke(Sub() lblStatus.Text = "Server werden ermittelt")
- functions.get_server()
- Dim pingms As New List(Of Integer)
- Dim reply As PingReply
- For Each server In functions.serverlist
- Dim s1 As String
- s1 = Replace(server, "http://", "")
- s1 = Replace(s1, "/patchserver/", "")
- Me.Invoke(Sub() lblNews.Text = "")
- Try
- reply = ping.Send(s1, 5000)
- If Not reply.Status = IPStatus.TimedOut Then
- pingms.Add(reply.RoundtripTime)
- Me.Invoke(Sub() lblNews.Text = lblNews.Text & reply.RoundtripTime & " : " & s1 & vbNewLine)
- ' MsgBox(reply.RoundtripTime)
- Else
- pingms.Add(200000)
- End If
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- Next
- Dim aktserver As Integer = 0
- Dim i As Integer = 0
- Do Until i = pingms.Count - 1
- If i + 1 = pingms.Count Then
- Else
- If pingms(i) < pingms(i + 1) Then
- aktserver = i
- End If
- i += 1
- End If
- Loop
- Me.Invoke(Sub() lblStatus.Text = "Server wurden ermittelt")
- MsgBox(functions.patchserverlist(aktserver))
Die Sache ist nun folgende: Ich möchte jeden Server in dieser List(of String) einmal anpingen und die Millisekunden speichern. Nachdem alle Gepingt wurden, will ich alle MS miteinander vergleichen und herausfinden, welcher Server die "schnellste" antwort gegeben hat.
Diesen will ich dann als aktiven Server verwenden.
Mein Problem:
Ich habe 3 Server eingetragen wovon einer zum Test auf False steht also nicht aktiv.
Die anderen beiden werden Brav gezogen und gepingt. Nun wird allerdings in das label lblNews immer nur der 1. server rein geschrieben und das Programm zeigt mir ab und an die MSGbox am ende nicht an.
Ich weiß messagebox.show(blabla)
Danke
Viele Frauen kamen, viele sind gegangen, eine ist geblieben 12.5.12 ich liebe dich Schatz