Paysafecard Guthaben abfrage (Source Code)[VB]

Public Class Form1

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        TbPW.PasswordChar = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub
End Class

Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions

Public Class Form2

    Dim CookieCon As New CookieContainer
    Dim javax As String

    Private Function GetSourceCodePost(ByVal url As String, ByVal postdata As String) As String
        Dim data() As Byte = System.Text.Encoding.ASCII.GetBytes(postdata)

        Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        req.ContentLength = data.Length
        req.Referer = "https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet"
        req.CookieContainer = CookieCon
        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.AllowAutoRedirect = True

        Dim dataStream As Stream = req.GetRequestStream()
        dataStream.Write(data, 0, data.Length)

        Dim res As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim str As New StreamReader(res.GetResponseStream)

        Return str.ReadToEnd()
    End Function

    Private Function GetImage(ByVal sURL As String) As Image
        Try
            Dim oRequest As HttpWebRequest = WebRequest.Create(sURL)
            oRequest.Method = "GET"
            oRequest.CookieContainer = CookieCon
            oRequest.Referer = "https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet"
            Dim oResponse As WebResponse = oRequest.GetResponse()
            Application.DoEvents()

            Dim oStream As New StreamReader(oResponse.GetResponseStream())
            Dim oImg As Image = Image.FromStream(oStream.BaseStream)

            oStream.Close()
            oResponse.Close()

            Return oImg

        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Private Function GetSourceCode(ByVal url As String) As String
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        req.Method = "GET"
        req.CookieContainer = CookieCon
        req.ContentType = "application/x-www-form-urlencoded"
        req.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"

        Dim res As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim str As New StreamReader(res.GetResponseStream)

        Return str.ReadToEnd()
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sCode As String = GetSourceCodePost("https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet", "mainPagePart&mainPagePart%3Arn1=" & Form1.tb1.Text & "&mainPagePart%3Arn2=" & Form1.tb2.Text & "&mainPagePart%3Arn3=" & Form1.tb3.Text & "&mainPagePart%3Arn4=" & Form1.tb4.Text & "&mainPagePart%3ApassField=" & Form1.TbPW.Text & "&mainPagePart%3AverifyCaptcha=" & tbCaptcha.Text & "&mainPagePart%3Anext=Absenden&javax.faces.ViewState=" & javax)

        If sCode.Contains("Guthaben deiner paysafecard") Then
            Dim MC As MatchCollection = Regex.Matches(sCode, "<tr class\=\""price\"">(\s+)*<td>.*?<\/td>", RegexOptions.IgnoreCase)

            'Preis in eine variable zwischen speichern
            Dim Preis As String = MC(0).Value
            Dim a As String = Preis.Replace("<tr class=""price"">", "")
            Dim b As String = a.Replace("<td>", "")
            Dim Final As String = b.Replace("</td>", "")

            Label1.Text = Final & "€"

        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim sCode As String = GetSourceCode("https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet")
        javax = Split(sCode, "<input type=""hidden"" name=""javax.faces.ViewState"" id=""javax.faces.ViewState"" value=""")(1).Split("""")(0)
        Dim iCaptcha As Image = GetImage("https://customer.cc.at.paysafecard.com/seam/resource/captcha")

        pbCaptcha.Image = iCaptcha
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Dim sCode As String = GetSourceCode("https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet")
        javax = Split(sCode, "<input type=""hidden"" name=""javax.faces.ViewState"" id=""javax.faces.ViewState"" value=""")(1).Split("""")(0)
        Dim iCaptcha As Image = GetImage("https://customer.cc.at.paysafecard.com/seam/resource/captcha")

        pbCaptcha.Image = iCaptcha
    End Sub
End Class