Imports System.IO, System.Net, System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dcaptcha As Image = cCapture("https://customer.cc.at.paysafecard.com/seam/resource/captcha")
PictureBox1.Image = dcaptcha
End Sub
Dim CookieCon As New CookieContainer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Req As HttpWebRequest = CType(WebRequest.Create("https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet?&language=de"), HttpWebRequest)
Req.Method = "Post"
Req.ContentType = "application/x-www-form-urlencoded"
Req.Referer = "https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet"
Req.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
Req.CookieContainer = CookieCon
Req.AllowAutoRedirect = True
Dim Num1 As String = TextBox1.Text
Dim Num2 As String = TextBox2.Text
Dim Num3 As String = TextBox3.Text
Dim Num4 As String = TextBox4.Text
Dim PW As String = TextBox5.Text
Dim CA As String = TextBox6.Text
Dim Post As String = "mainPagePart=mainPagePart&mainPagePart%3Arn1= " & Num1 & "&mainPagePart%3Arn2=" & Num2 & "&mainPagePart%3Arn3=" & Num3 & "&mainPagePart%3Arn4=" & Num4 & "&mainPagePart%3ApassField=" & PW & "&mainPagePart%3AverifyCaptcha=" & CA & "&mainPagePart%3Anext=Absenden&javax.faces.ViewSta te=j_id2"
Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
Req.ContentLength = byteArray.Length
Dim DataStream As Stream = Req.GetRequestStream()
DataStream.Write(byteArray, 0, byteArray.Length)
DataStream.Close()
Dim Response As HttpWebResponse = Req.GetResponse()
DataStream = Response.GetResponseStream()
Dim reader As New StreamReader(DataStream)
Dim ServerResponse As String = reader.ReadToEnd()
reader.Close()
DataStream.Close()
Response.Close()
If InStr(ServerResponse, "<td class=" & "cell1" & ">Seriennummer</td>") Then
Label1.Text = "Login OK"
Else
Label1.Text = "Login nicht OK"
End If
End Sub
Private Function cCapture(ByVal URL As String) As Image
Dim req As HttpWebRequest = WebRequest.Create(URL)
req.Method = "GET"
req.CookieContainer = CookieCon
req.Referer = "https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet"
Dim Res As WebResponse = req.GetResponse()
Application.DoEvents()
Dim str As New StreamReader(Res.GetResponseStream())
Dim bild As Image = Image.FromStream(str.BaseStream)
str.Close()
Res.Close()
Return bild
End Function
End Class