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")