Hallo, also es funktioniert jetzt soweit alles, allerdings habe ich das problem das die PHP Brücke offensichtlich nicht ganz funktioniert.
PHP:
<?php
$h='localhost';
$u='MEINDBUSER';
$p='MEINDBPASSWORT';
$db=MEINEDATENBANK mysqli($h, $u, $p, 'nanticopy');
$c=0;
$cnt=0;
$enable=0;
$app=$_GET['app'];
$key=$_GET['key'];
$q=$db->query("SELECT * FROM `Keys` WHERE `AppID` = '" . $app . "' AND" & _
"`Key` = '" . $key . "'");
while($x=$q->fetch_assoc()) {
$c++;
$cnt=$x['Activated'];
}
if ($c>0) $enable=1;
if ($enable==1) echo '1;';
else echo '0;';
if ($cnt>0) {
$q=$db->query("UPDATE `Keys` SET `Activated`=`Activated`-1 WHERE `AppID`" & _
"LIKE '".
$app."' AND `Key` LIKE '" . $key . "'");
}
echo $cnt;
$db->close();
?> Datenbank:
CREATE TABLE IF NOT EXISTS `Keys` (
`key` varchar(29) NOT NULL,
`AppID` int(3) NOT NULL DEFAULT '0',
`Activated` int(1) unsigned NOT NULL DEFAULT '0',
PRIMARY KEY (`key`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;
-- Daten für Tabelle `Keys`
INSERT INTO `Keys` (`key`, `AppID`, `Activated`) VALUES
('1111122222333334444455555', 10, 1), Bekomme vom programm leider immer nur die definierte meldung:
[Programm] konnte nicht aktiviert werden. Bitte überprüfen Sie ihre Internetverbindung.
der Part aus dem Aktivierungsfenster:
... ...
... ...
Private Sub Keyabfrage_Load(sender As System.Object, e As System.EventArgs) _
Handles MyBase.Load
If Check() Then
IsActivated = True
Me.Close()
End If
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles _
LinkLabel1.LinkClicked
Label5.Show()
Application.DoEvents()
Try
Dim S As String = My.Computer.FileSystem.GetTempFileName()
My.Computer.FileSystem.DeleteFile(S)
My.Computer.Network.DownloadFile( _
"http://MEINEDOMAIN.TDL/nantest/nanticopykeys.php?app=[10]&key=" _
& "M.Text", S)
Dim X As String = My.Computer.FileSystem.ReadAllText(S)
If CInt(X.Split(";"c)(0)) > 0 Then
If CInt(X.Split(";"c)(1)) > 0 Then
Generate()
IsActivated = True
Hauptfenster.Show()
Me.Close()
If Check() Then
MsgBox("Der Schlüssel ist gültig. [Programm] wurde" & _
"aktiviert. " & _
"Sie dürfen diesen Schlüssel noch " & _
(CInt(X.Split(";"c)(1)) - 1) & _
" Mal für eine Neuinstallation auf diesem PC" & _
"verwenden.")
Else
MsgBox("Der Schlüssel ist gültig. [Programm] konnte" & _
"allerdings " & _
"nicht aktiviert werden. " & _
"Bitte überprüfen Sie, ob der Ordner schreibgeschützt" & _
"ist.", _
MsgBoxStyle.Exclamation)
End If
Else
MsgBox("Der Schlüssel ist gültig, aber die maximale Anzahl" & _
"der " & _
"Aktivierungen für diesen " & _
"Schlüssel wurde überschritten.", MsgBoxStyle.Exclamation)
End If
Else
MsgBox("Der Lizenzschlüssel ist ungültig. Bitte überprüfen Sie" & _
"ihn auf " & _
"Tippfehler oder wenden " & _
"Sie sich an Ihren Software-Händler.", MsgBoxStyle.Critical)
Label5.Hide()
Exit Sub
End If
Catch ex As Exception
MsgBox("[Programm] konnte aufgrund eines Fehlers nicht aktiviert" & _
"werden. " & _
"Bitte überprüfen Sie ihre Internetverbindung.", _
MsgBoxStyle.Critical)
Label5.Hide()
Exit Sub
End Try
Label5.Hide()
Me.Close()
End Sub
Private Sub M_MaskInputRejected(sender As System.Object, e As _
System.Windows.Forms.MaskInputRejectedEventArgs) Handles _
M.MaskInputRejected
End Sub
Private Sub M_TextChanged(sender As Object, e As System.EventArgs) Handles _
M.TextChanged
End Sub
End Class MfG calypso |