Hey,
ich hab ein Problem mit meinem Webbot.

Er soll automatisch in einem Chat Messages verschicken.

Das Problem ist:
Es kommt immer ein InternetExplorer Script Fehler.

Wenn ich aber Manuell den Button anklicke funktioniert alles

Hier ein Teil vom Source

Code:
Dim generator As New Random()
        Dim zahl As Integer = generator.Next(1, 30000)
        WebBrowser1.Navigate("http://www.lakeparty.de/messagecenter.php?cmd=new&recipient=325577")
        Application.DoEvents()
        While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
            Application.DoEvents()
        End While
        Application.DoEvents()
        WebBrowser1.Document.GetElementById("body").InnerText = zahl
        Application.DoEvents()
        Sleep(1000)
        WebBrowser1.Document.Forms(0).InvokeMember("submit")