Hallo VB-Paradies Forum User,
Ich habe bei einem User von euch etwas gefunden, und zwar einen Code um Seriennummern abfragen zu können, bzw Überprüfen zu können. So weit so gut hat auch alles geklappt aber, sobald ich den Code in TextBox1 eingebe und auf "OK" klicke, Zeigt er mir immer wieder die gleiche Fehlermeldung an egal welche Nummer ich eingebe. "Die Seriennummer ist ungültig oder wurde bereits
verwendet."
Was Soll ich tun ?! Der User Selbst, der diesen Code geschrieben, zur verfügung gestellt hat, kann mir auch nicht wirklich weite rhelfen! Hier ist der Code:
Hier der Code für den Button:
Ich hoffe ihr könnt mir helfen. Lg Oli
Edit by LaMa5:
- hat nicht mit Sourcecodeaustausch zu tun (auch wenn den Code dort her hast)
--> **moved**
Ich habe bei einem User von euch etwas gefunden, und zwar einen Code um Seriennummern abfragen zu können, bzw Überprüfen zu können. So weit so gut hat auch alles geklappt aber, sobald ich den Code in TextBox1 eingebe und auf "OK" klicke, Zeigt er mir immer wieder die gleiche Fehlermeldung an egal welche Nummer ich eingebe. "Die Seriennummer ist ungültig oder wurde bereits
verwendet."
Was Soll ich tun ?! Der User Selbst, der diesen Code geschrieben, zur verfügung gestellt hat, kann mir auch nicht wirklich weite rhelfen! Hier ist der Code:
VB.NET-Quellcode
- Sub CheckSerial(ByVal serial As String, ByVal httplinktiserverurltolizenztxt As String, _
- ByVal ftplinktoserverurltolizenztxt As String, ByVal username As String, _
- ByVal password As String)
- If serial <> "" Then
- Try
- Dim client As New Net.WebClient
- Dim lizenz As String = client.DownloadString(New Uri(httplinktiserverurltolizenztxt))
- Dim v As Array = Split(lizenz, vbNewLine)
- Dim contains As Boolean = False
- For i As Long = 0 To UBound(v)
- If v(i) = serial Then
- contains = True
- v(i) &= "!"
- End If
- Next
- Select Case contains
- Case True
- client.Credentials = New Net.NetworkCredential(username, password)
- Dim licenses As String = ""
- For i As Long = 0 To UBound(v)
- If licenses = "" Then
- licenses = v(i)
- Else
- licenses &= vbNewLine & v(i)
- End If
- Next
- client.UploadString(ftplinktoserverurltolizenztxt, licenses)
- MessageBox.Show("Das Programm wurde erfolgreich aktiviert." & _
- "Damit ist die Seriennummer ungültig.", "Info", MessageBoxButtons.OK, _
- MessageBoxIcon.Information)
- Case False
- MessageBox.Show("Die Seriennummer ist ungültig oder wurde bereits" & _
- "verwendet.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Select
- Catch
- MessageBox.Show("Entweder ist der Lizenzserver temporär nicht erreichbar" & _
- "oder sie haben keine aktive Verbindung zum Internet.", "Fehler", _
- MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- End If
Hier der Code für den Button:
Ich hoffe ihr könnt mir helfen. Lg Oli
Edit by LaMa5:
- hat nicht mit Sourcecodeaustausch zu tun (auch wenn den Code dort her hast)
--> **moved**
