--
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.