Guten Tag liebe vb-paradise.de Mitglieder,
ich hab folgendes Problem, ich möchte ein Tool schreiben das mir auf einer Internet Seite 2 Eingabefelder beliebig ausfüllt und diese dann abschickt. Auf meiner Suche habe ich aber nur Tutorials gefunden die sich mit Logins beschäftigen!
Es handelt sich um eine POST-Routine, die folgendermaßen ausschaut:
Allerdings wird, wie im Code zu sehen, trotzdem ein Cookie mitgesendet. Kann ich diesen einfach übernehmen?
Mein bisheriger Code sieht so aus:
Immoment meldet Visual Basic 2012 aber noch ein Fehler in dieser Zeile, die ich selber nicht verstehe:
Freue mich über jede Antwort!
~Mfg
Pinkywesen
Edit by ErfinderDesRades: sieht mir doch sehr nach einem Spam-Bot aus --> closed
ich hab folgendes Problem, ich möchte ein Tool schreiben das mir auf einer Internet Seite 2 Eingabefelder beliebig ausfüllt und diese dann abschickt. Auf meiner Suche habe ich aber nur Tutorials gefunden die sich mit Logins beschäftigen!
Es handelt sich um eine POST-Routine, die folgendermaßen ausschaut:
Allerdings wird, wie im Code zu sehen, trotzdem ein Cookie mitgesendet. Kann ich diesen einfach übernehmen?
Mein bisheriger Code sieht so aus:
VB.NET-Quellcode
- Imports System.Net, System.IO, System.Text.RegularExpressions
- Public Class Form1
- Dim Nummer = "", SMSText = ""
- Private tempCookie = New CookieContainer
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim Source As String = New WebClient().DownloadString("http://smsfriend.de/sms-senden/")
- Dim FormKey As String = Regex.Match(Source, "formkey"" value=""([^""]+)""").Groups(1).Value
- Dim Iv As String = Regex.Match(Source, "iv"" value=""([^""]+)""").Groups(1).Value
- Dim R As HttpWebRequest = HttpWebRequest.Create("http://EXAMPLE.de/EXAMPLE/")
- R.Method = "POST"
- R.CookieContainer = tempCookie
- R.Host = "EXAMPLE.de"
- R.Headers("useragent") = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8"
- R.ContentType = "application/x-www-form-urlencoded"
- Dim Post As String = "username=" & TextBox1.Text & "password=" & TextBox2.Text
- FormKey & "&iv=" & Iv '
- R.ContentLength = Post.Length
- Dim Writer As New StreamWriter(R.GetRequestStream(), System.Text.Encoding.ASCII)
- Writer.Write(Post)
- Writer.Close()
- Dim Reader As New StreamReader(R.GetResponse.GetResponseStream())
- Dim Response As String = Reader.ReadToEnd
- Reader.Close()
- If Response.Contains("SMS versendet") Then
- MessageBox.Show("Erfolgreich versendet!")
- Else
- MessageBox.Show("Fehler!")
- End If
- End Sub
- End Class
Immoment meldet Visual Basic 2012 aber noch ein Fehler in dieser Zeile, die ich selber nicht verstehe:
Freue mich über jede Antwort!
~Mfg
Pinkywesen
Edit by ErfinderDesRades: sieht mir doch sehr nach einem Spam-Bot aus --> closed
