[VB.NET] PSC-Checker Problem

[DK007]

hab ich schon probiert, hab es auch nur durch ein Wort "Seriennummer" ersetzt.
Doch beides erfolglos

[<~Engel~>]

Habe hier letztens schon eine Source gepostet (ist aber nicht von mir ,weiß leider auch nicht mehr wo ich die her habe.)
http://free-hack.com/sonstige/59579-...tml#post480528

[BlackHook]

OK Ich habe es gefixt Uploaded with ImageShack.us

Ich habe es mir leicht getan, keine Ahnung wie man Language US als standart stellen muss, also fange ich beide ab. Hier die Änderungen: (Code von meiner PN) - - -

If sCode.Contains("Credit on your paysafecard") Then
Dim Reg AsNewRegex("\<td valign=\""bottom\"" nowrap=\""nowrap\"" bgcolor=\""#FFFFFF\"" class=\""textgrey\"">(?<value>(.*))&nbsp;EUR<br />(?<serial>(.*))<br />(?<available_credit>(.*))&nbsp;EUR<br />(?<in_transaction>(.*))&nbsp;EUR<br />(?<manufacture>(.*))<\/td\>")
Label11.Text = Reg.Match(sCode).Groups("value").ToString()
Label10.Text = Reg.Match(sCode).Groups("serial").ToString()
Label9.Text = Reg.Match(sCode).Groups("available_credit").ToString()
Label8.Text = Reg.Match(sCode).Groups("in_transaction").ToString()
Label7.Text = Reg.Match(sCode).Groups("manufacture").ToString()
ElseIf sCode.Contains("Guthaben deiner paysafecard") Then
Dim Value AsNewRegex(">Wert</td>(\s*)<td class=""cell2""><table>(\s*)<tbody>(\s*)<tr>(\s*)< td>(?<value>(.*))</td>(\s*)<td>(?<Waehrung>(.*))</td>")
Label11.Text = Value.Match(sCode).Groups("value").ToString() & " " & Value.Match(sCode).Groups("Waehrung").ToString()
Dim Serial AsNewRegex("Seriennummer</td>(\s*)<td class=""cell2"">(?<Serial>(.*))</td>")
Label10.Text = Serial.Match(sCode).Groups("Serial").ToString()
Dim Credit AsNewRegex("gbares Guthaben</td>(\s*)<td class=""cell2""><table>(\s*)<tbody>(\s*)<tr class=""price"">(\s*)<td>(?<Credit>(.*))</td>(\s*)<td>(?<Waehrung>(.*))</td>")
Label9.Text = Credit.Match(sCode).Groups("Credit").ToString() & " " & Credit.Match(sCode).Groups("Waehrung").ToString()
Dim InZahlung AsNewRegex("In Zahlung</td>(\s*)<td class=""cell2""><table>(\s*)<tbody>(\s*)<tr>(\s*)< td>(?<InZahlung>(.*))</td>(\s*)<td>(?<Waehrung>(.*))</td>")
Label8.Text = InZahlung.Match(sCode).Groups("InZahlung").ToString() & " " & InZahlung.Match(sCode).Groups("Waehrung").ToString()
Dim Produktionsdatum AsNewRegex("Produktionsdatum</td>(\s*)<td class=""cell2"">(?<Produktionsdatum>(.*))</td>")
Label7.Text = Produktionsdatum.Match(sCode).Groups("Produktionsdatum").ToString()
Else
MessageBox.Show("PSC ungültig")
EndIf
Es war wie ich vermutet habe nur ein Problem mit der Sprache. Viel Spass damit. - -

[DK007]

Funktioniert immernoch nicht, habs genauso übernommen.
Magst du über Teamviewer helfen?

[BlackHook]

Jetzt hätte ich etwas Zeit schicke mir ne PN mit Nummer und Pass ICQ 197234644

[DDW111]

Also wie ist der Stand? ist er jetzt funktionsfähig? wenn ja könnte bitte jemand nen Downloadlink schicken?

[BlackHook]

DK007 hat sich bei mir nicht gemeldet, sein checker scheint noch nicht zu funzen. Mein funktioniert, allerdings mache ich meine Tools nie Public. Du wirst dich wohl noch gedulden müssen, ich wollte DK007 helfen, allerdings habe ich nicht ewig Zeit.

[DDW111]

DK007 hat sich bei mir nicht gemeldet, sein checker scheint noch nicht zu funzen. Mein funktioniert, allerdings mache ich meine Tools nie Public. Du wirst dich wohl noch gedulden müssen, ich wollte DK007 helfen, allerdings habe ich nicht ewig Zeit.

Ok , schade... naja dann werde ich jetzt mal in anderen foren suchen!
ach ja dein Profilbild ist von Tränen der Sonne xD

[DK007]

Sry musste noch etwas erledigen
Hoffe du hast noch Zeit, hab dich im ICQ geaddet.

[BlackHook]

Ich habe dich in ICQ angeschrieben. 1 Stunde Heute auf dich gewartet, du bist nicht online.
Nanu, wenn man Hilfe braucht sollte man auch online sein oder sagen was Sache ist.
Ich bin bis Freitag unterwegs auf Montage.