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
Habe ein Problem, wenn ich bei den Sourcecode jetzt alles fertiggestellt habe, kommt bei mir eine Fehlermeldung wenn ich eine 10€ PSC checke die noch FULL ist, was kann ich dagegen machen?
[B] VServer [S] PayPal , O2 Guthaben Code oder Vodafone Guthaben Code 06/15/2011 - Trading - 5 Replies Hey ,
Ich vermiete mein Vserver den ich noch bis : 31.7.2011 habe :)
SyStem :
Also weil ich windows 2008 hab werde ich euch ein neues user öffnen und ich werde auch von meinem account mitusen :) ich spiele ein programm auf meinem vps auf der nur 64 mb verbraucht
2 GB Ram
100 GB Hdd
[HILFE] Serverstats Abfrage per PHP Code 10/23/2010 - Web Development - 0 Replies Schönen guten morgen liebe e*pvpers,
ich hatte mir eine Homepage erstellt und wollte mir dort von mehreren Gameserver den Status anzeigen lassen. Dafür habe ich bis jetzt immer folgende Seite benutzt: Serverstatus - Blackout Gaming. Aber auf der Seite werden mir die verschiedenen Online - & Offlineicons nicht angezeigt.
Seit ca. 2 Stunden suche ich verzweifelt nach einem PHP Code um den Status des Server manuell abzufragen, indem ich die IP und den Port angebe. Zusätzlich sollte der Code...
![Paysafecard Guthaben abfrage (Source Code)[VB]](https://www.elitepvpers.com/forum/iconimages/net-languages/paysafecard-guthaben-abfrage-source-code-vb_ltr.gif){kind=small}
