[VB 2010] MsgBox. auto. schließen + Serverstatus aktualisieren

[.Nexitis]

Hi

Ehm ich habe einen Launcher in Virtual Basic "gebaut" und ich brauche Hilfe in :

MsgBox:
Was muss ich eingeben damit sich die MsgBox automatisch nach 3 sekunden schließt.


Aktualisieren was muss ich eingeben damit sich der Serverstatus automatisch jede Minute Aktualisiert?

Und ja ich habe Google.de benutzt aber es hat mich nichts gerade geholfen...

Hier ein Bild vom Stand der Dinge:

Public Class Form1

    Dim AppPath As Object

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If PictureBox1.Visible = True Then
            PictureBox1.Visible = False
        End If

        If Dir("sframe.exe", AppPath) <> "" Then
            Shell("SFrame.exe /auth_ip:------------ /locale:windows-1252 /country:US /cash /commercial_shop /guild", vbNormalFocus)
            MessageBox.Show("Das Spiel wurde gestartet")
            Me.Close()
        Else
            MessageBox.Show("Die SFrame.exe Datei existiert nicht. Überprüfen sie ob der Launcher vom Last-Warriors Game Ordner aus gestartet wurde.                                                      Der Launcher wird geschlossen.")
            Me.Close()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MaximizeBox = False
    End Sub
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("--------------")
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        Process.Start("http://lastwarriors.de/register.php/")
    End Sub

    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
        Try
            My.Computer.Network.Ping("---------------")
            Label4.Visible = True
            Label3.Visible = False
        Catch es As Exception
            Label3.Visible = True
            Label4.Visible = False
        End Try
        Try
            My.Computer.Network.Ping("------------------")
            Label6.Visible = True
            Label5.Visible = False
        Catch es As Exception
            Label5.Visible = True
            Label6.Visible = False
        End Try
    End Sub
    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
        Process.Start("-----------")
    End Sub
End Class

[ZackBlack]

Nen Timer verwenden und dann SendKeys.Send("{Enter}") für die MessageBox...

[Kraizy​]

Für den Serverstatus eine "while" Schleife mit nem Sleep(60000).

Wozu eine While-Schleife (mit einem extra Thread, damit die GUI nicht einfriert), wenn man einfach einen Timer mit einem Intervall von 60000 benutzen kann.

[.Nexitis]

Über einen Timer hab ich auch schon gedacht leider weiß ich nicht wie ich das jetzt da "reinbaue"
Kannst du meinen Code mit dem Timer versehen ? Wäre netet =)

[Kraizy​]

Du packst deinen Code, mit dem du den Serverstatus abfrägst (wahrscheinlich das Network.Ping), in das Tick-Ereignis des Timers..

[.Nexitis]

Meinst du so???

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            My.Computer.Network.Ping("46.4.64.76, 1433")
            Label4.Visible = True
            Label3.Visible = False
        Catch es As Exception
            Label3.Visible = True
            Label4.Visible = False
        End Try
        Try
            My.Computer.Network.Ping("46.4.64.76, 4514")
            Label6.Visible = True
            Label5.Visible = False
        Catch es As Exception
            Label5.Visible = True
            Label6.Visible = False
        End Try
    End Sub
End Class

aber das bringt doch nichts oder?

[Kraizy​]

Woher soll ich wissen ob dir das etwas bringt oder nicht? Ich nehme an, du willst mit dem Network.Ping abfragen ob der Server erreichbar ist oder nicht. Und da du das ja alle 60sec wissen willst, packst du es in einen Timer mit einem Intervall von 60000 ein (Timer starten nicht vergessen).

[.Nexitis]

[COLOR=DarkOrange]        Try
            My.Computer.Network.Ping("46.4.64.76, 1433")
            Label4.Visible = True
            Label3.Visible = False
        Catch es As Exception
            Label3.Visible = True
            Label4.Visible = False
        End Try
        Try
            My.Computer.Network.Ping("46.4.64.76, 4514")
            Label6.Visible = True
            Label5.Visible = False
        Catch es As Exception
            Label5.Visible = True
            Label6.Visible = False[/COLOR]
        End Try
    End Sub
End Class

Das Orange ist die Server abfrage mit anzeige und dass soll dann so aussehen?

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            My.Computer.Network.Ping("46.4.64.76, 1433")
            Label4.Visible = True
            Label3.Visible = False
        Catch es As Exception
            Label3.Visible = True
            Label4.Visible = False
        End Try
        Try
            My.Computer.Network.Ping("46.4.64.76, 4514")
            Label6.Visible = True
            Label5.Visible = False
        Catch es As Exception
            Label5.Visible = True
            Label6.Visible = False
        End Try
    End Sub
End Class

Ohne irgendwass noch inzuschreiben? Ist das etwa so einfach gewesen? =)

[Kraizy​]

Ja, wenn du den Timer gestartet hast.

[.Nexitis]

Ok Danke ^^ und wie mache ich das meine Messagebox sich automatisch nach 3 sekunden schließt ?

If Dir("sframe.exe", AppPath) <> "" Then
            Shell("SFrame.exe /auth_ip:46.4.64.76 /locale:windows-1252 /country:US /cash /commercial_shop /guild", vbNormalFocus)
            MessageBox.Show("Das Spiel wurde gestartet")
            Me.Close()
        Else
            MessageBox.Show("Die SFrame.exe Datei existiert nicht. Überprüfen sie ob der Launcher vom Last-Warriors Game Ordner aus gestartet wurde.                                                      Der Launcher wird geschlossen.")
            Me.Close()
        End If

? Ich wollte es schon mit ForceOK Versuchen entweder mach ich was falsch oder es git so einen code nicht

[Kraizy​]

Das hat dir ZackBlack bereits gesagt.

[.Nexitis]

Aber ich weiß nicht was ich damit anfangen soll

[Kraizy​]

Wie wärs wenn du erstmal die Grundlagen lernst?

[.Nexitis]

Ich brauche nur den einen Code nur weiß ich nicht wie ich den benutze mehr brauch ich auch nicht ich will nicht alles durchlesen um 1 code zu finden

[Kraizy​]

Wenn die MessageBox geöffnet wird, kannst du einen Timer starten lassen, der sendet dann die Enter-Taste an die Box damit sich diese schließt. Um die Enter-Taste zu senden benutzt du SendKeys.Send("{ENTER}").