Imports System.Threading
 
Public Class Form1
 
    Dim loginname As String = "***"
    Dim loginpw As String = "***"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        WebBrowser1.ScriptErrorsSuppressed = True
        Dim start As Thread = New Thread(AddressOf startsub)
        start.Start()
    End Sub
 
    Sub startsub()
        CheckForIllegalCrossThreadCalls = False
        log.AppendText("Login...")
        WebBrowser1.Navigate( _
          "http://barym.ogame.de/game/reg/login2.php?&login=" & loginname & _
          "&pass=" & loginpw)
        Wartezeit(1000)
        log.AppendText(" !" & vbCrLf)
        Dim reload As Thread = New Thread(AddressOf reloadsub)
        reload.Start()
    End Sub
 
    Dim it As String = ""
    Dim messages As Integer = 0
 
    Sub reloadsub()
        CheckForIllegalCrossThreadCalls = False
        Do
            MsgBox(WebBrowser1.Document.GetElementById( _
              "message_alert_box").InnerText)
            log.AppendText("Reload...")
            WebBrowser1.Refresh()
            log.AppendText(" !" & vbCrLf)
            Wartezeit(10000)
            log.AppendText("Check Messages...")
            it = WebBrowser1.Document.GetElementById( _
              "message_alert_box").InnerText
            log.AppendText(" " & messages & " !" & vbCrLf)
            Wartezeit(10000)
        Loop
    End Sub
 
    Function test()
        Dim webbrowser1 As System.Windows.Forms.WebBrowser = Me.WebBrowser1
        MsgBox(WebBrowser1.Document.GetElementById( _
          "message_alert_box").InnerText)
    End Function
 
    Private WeiterGehts As Boolean = False
    Private ms As Integer
 
 
    Public Sub Wartezeit(ByVal Sekunden As Integer)
        ms = Sekunden
        WeiterGehts = False
        Dim T As Thread = New Thread(AddressOf Warten)
        T.Start()
        Do
            Application.DoEvents()
        Loop Until WeiterGehts = True
    End Sub
 
    Private Sub Warten()
        Thread.Sleep(ms)
        WeiterGehts = True
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MsgBox(WebBrowser1.Document.GetElementById( _
        "message_alert_box").InnerText)
    End Sub
End Class

Gru? Mr.T


>>>Visit:???