He leute habe mal ne frage .. bin grade dabei ein Tool zu machen was eine Listbox hat in der ich ne txt lade diese beinhalted z.b. Email:pw so nun habe ich noch ne webbrowser ne txt box in die txt gebe ich ne Url ein navigiere per Button zu der Url ..
Url bsp : meineseitelogin.php dort sind 2 felder die mit id versehen sind diese id hole ich mit mit getelementbyid so nun würde ich gerne diese 2 id Felder/boxen mit dem inhalt meiner Listwiev füllen nacheinender .. und dann login submit mit getelementbyid ..
Also im prinzip jedes email:pw element testen auf login ..
so weit bin ich atm : für die Setie clanbase.com
Pic imagebanana.com/view/m0wwt03p/Login.jpg
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://clanbase.ggl.com/login.php")
System.Threading.Thread.Sleep(1000)
End Sub
Private Sub login()
WebBrowser1.Document.GetElementById("email").SetAttribute("value", ListBox1.Text)
WebBrowser1.Document.GetElementById("password").SetAttribute("value", ListBox1.Text)
End Sub
Private Sub KryptonButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton2.Click
Dim opi1 As New OpenFileDialog
opi1.Filter = "txt-dateien|*.txt"
opi1.AddExtension = True
If opi1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim sr As New IO.StreamReader(opi1.FileName)
While Not sr.EndOfStream
ListBox1.Items.Add(sr.ReadLine)
End While
sr.Close()
End If
End Sub
Private Sub KryptonButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
login()
End Sub
Private Sub KryptonButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton3.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
End Class
Url bsp : meineseitelogin.php dort sind 2 felder die mit id versehen sind diese id hole ich mit mit getelementbyid so nun würde ich gerne diese 2 id Felder/boxen mit dem inhalt meiner Listwiev füllen nacheinender .. und dann login submit mit getelementbyid ..
Also im prinzip jedes email:pw element testen auf login ..
so weit bin ich atm : für die Setie clanbase.com
Pic imagebanana.com/view/m0wwt03p/Login.jpg
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://clanbase.ggl.com/login.php")
System.Threading.Thread.Sleep(1000)
End Sub
Private Sub login()
WebBrowser1.Document.GetElementById("email").SetAttribute("value", ListBox1.Text)
WebBrowser1.Document.GetElementById("password").SetAttribute("value", ListBox1.Text)
End Sub
Private Sub KryptonButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton2.Click
Dim opi1 As New OpenFileDialog
opi1.Filter = "txt-dateien|*.txt"
opi1.AddExtension = True
If opi1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim sr As New IO.StreamReader(opi1.FileName)
While Not sr.EndOfStream
ListBox1.Items.Add(sr.ReadLine)
End While
sr.Close()
End If
End Sub
Private Sub KryptonButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
login()
End Sub
Private Sub KryptonButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton3.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Smedrik“ ()