sub7even
Mitglied
Hallo,
ich möchte ein kleines tool schreiben, das meine datenbank automatisch
füllen soll, indem es ein HTML Script auf meinem Webserver ausfüllt und absendet.
Ich habe es schon mit hilfe eines Timers hinbekommen,
das, dass Feld immer neu ausgefüllt wird.
Jedoch wird das eingetragene nicht Abgesendet.
Hier mal der Source Code:
Danke schonmal im voraus für eure Hilfe
Hat sich schon Erledigt, habe es doch noch gefunden:
ich möchte ein kleines tool schreiben, das meine datenbank automatisch
füllen soll, indem es ein HTML Script auf meinem Webserver ausfüllt und absendet.
Ich habe es schon mit hilfe eines Timers hinbekommen,
das, dass Feld immer neu ausgefüllt wird.
Jedoch wird das eingetragene nicht Abgesendet.
Hier mal der Source Code:
Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
Label1.Text = "Status: -"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 1
If ProgressBar1.Value = 10000 Then Timer1.Stop()
Label1.Text = ("Status: " & ProgressBar1.Value)
WebBrowser1.Document.GetElementById("pass").InnerText = ProgressBar1.Value
WebBrowser1.Document.Forms(0).InvokeMember("submit")
End Sub
End Class
Danke schonmal im voraus für eure Hilfe
Hat sich schon Erledigt, habe es doch noch gefunden:
Code:
WebBrowser1.Document.All("submit").InvokeMember("Click")
Zuletzt bearbeitet: