Hallo Com ,
Ich arbeite an einem Psc Manager .
Nun wollte ich aus einer Richtextbox die zB : 1234-1234-1234-1234 enthält in 4 Teile aufteilen .
Ich habe hier mal was versucht , aber dies funktioniert nicht
Und nun will ich Guthaben Seriennummer & Produtktionsdatum angeben lassen .
Guthaben habe ich so gelöst :
Nur bei Seriennummer & Produtktionsdatum scheitere ich .
Ich hollfe ihr könnt mir helfen .
Ich arbeite an einem Psc Manager .
Nun wollte ich aus einer Richtextbox die zB : 1234-1234-1234-1234 enthält in 4 Teile aufteilen .
Ich habe hier mal was versucht , aber dies funktioniert nicht
Und nun will ich Guthaben Seriennummer & Produtktionsdatum angeben lassen .
Guthaben habe ich so gelöst :
VB.NET-Quellcode
- Dim sCode As String = GetSourceCodePost("https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet", "mainPagePart&mainPagePart%3Arn1=" & RichTextBox4.Text & "&mainPagePart%3Arn2=" & RichTextBox1.Text & "&mainPagePart%3Arn3=" & RichTextBox2.Text & "&mainPagePart%3Arn4=" & RichTextBox3.Text & "&mainPagePart%3ApassField=" & TextBox2.Text & "&mainPagePart%3AverifyCaptcha=" & TextBox3.Text & "&mainPagePart%3Anext=Absenden&javax.faces.ViewState=" & javax)
- Dim Reg As New Regex("\<td valign=\""bottom\"" nowrap=\""nowrap\"" bgcolor=\""#FFFFFF\"" class=\""textgrey\"">(?<value>(.*)) EUR<br />(?<serial>(.*))<br />(?<available_credit>(.*)) EUR<br />(?<in_transaction>(.*)) EUR<br />(?<date_of_manufacture>(.*))<\/td\>")
- Dim PinCode As ListViewItem
- Dim MC2 As MatchCollection = Regex.Matches(sCode, "<tr class\=\""price\"">(\s+)*<td>.*?<\/td>", RegexOptions.IgnoreCase)
- Dim Preis As String = MC2(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>", "")
- Msg(Final & "€")
Nur bei Seriennummer & Produtktionsdatum scheitere ich .
Ich hollfe ihr könnt mir helfen .