Imports System.IO, System.Net, System.Text
Public Class Form1
Dim CookieCon As New CookieContainer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser2.Navigate("https://customer.cc.at.paysafecard.com/seam/resource/captcha")
End Sub
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, "Seriennummer") Then
Label1.Text("Valid")
Else
Label1.Text("Not Valid")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser2.Refresh()
End Sub