![Paysafecard Guthaben abfrage (Source Code)[VB]](https://www.elitepvpers.com/forum/iconimages/net-languages/paysafecard-guthaben-abfrage-source-code-vb_ltr.gif){kind=small}
--
Ihr könnt das gut brauchen wenn ihr euch einen PSC Manager oder so Erstellen wollt
Sprache VB.net
Form1:
tb1,tb2,tb3,tb4,tbPW
Button1
LinkLabel1
Code
Code:
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
---------------------------------------
Form2
pictureBox (pbCaptcha)
LinkLabel1
tbCaptcha
Button1
Label1
Code:
Code:
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
removed
Wenn ihr was braucht Hilfe oder so PM oder Skype.
