vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Re: Einfacher Kopierschutz mit Online-Aktivierung 
Autor: calypso
Datum: 13.08.12 17:14

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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Workshop 119: Einfacher Kopierschutz mit Online-Aktivierung15.880TZollo07.10.10 14:13
Re: Einfacher Kopierschutz mit Online-Aktivierung10.296NiWa09.10.10 13:23
Re: Einfacher Kopierschutz mit Online-Aktivierung9.877+++MaRuSo+++21.11.10 06:50
Re: Einfacher Kopierschutz mit Online-Aktivierung9.673ModeratorRalfE21.11.10 17:05
Re: Einfacher Kopierschutz mit Online-Aktivierung9.574NiWa21.11.10 19:25
Re: Einfacher Kopierschutz mit Online-Aktivierung9.673+++MaRuSo+++18.12.10 10:40
Re: Einfacher Kopierschutz mit Online-Aktivierung9.445+++MaRuSo+++18.12.10 10:34
Re: Einfacher Kopierschutz mit Online-Aktivierung9.377NiWa18.12.10 10:58
Re: Einfacher Kopierschutz mit Online-Aktivierung9.396BasicOpa04.03.11 11:37
Re: Einfacher Kopierschutz mit Online-Aktivierung9.305NiWa24.05.11 20:55
Re: Einfacher Kopierschutz mit Online-Aktivierung9.113vbarchiv_user20.07.11 11:52
Re: Einfacher Kopierschutz mit Online-Aktivierung8.813NiWa20.07.11 14:44
Re: Einfacher Kopierschutz mit Online-Aktivierung8.849pnrooob02.09.11 20:11
Re: Einfacher Kopierschutz mit Online-Aktivierung8.915pnrooob02.09.11 20:30
Re: Einfacher Kopierschutz mit Online-Aktivierung8.803NiWa02.09.11 23:44
Re: Einfacher Kopierschutz mit Online-Aktivierung8.716pnrooob03.09.11 12:03
Re: Einfacher Kopierschutz mit Online-Aktivierung8.722pnrooob03.09.11 12:50
Re: Einfacher Kopierschutz mit Online-Aktivierung8.685NiWa03.09.11 14:42
Re: Einfacher Kopierschutz mit Online-Aktivierung8.790pnrooob03.09.11 16:11
Re: Einfacher Kopierschutz mit Online-Aktivierung8.728NiWa03.09.11 19:27
Re: Einfacher Kopierschutz mit Online-Aktivierung8.804pnrooob04.09.11 12:04
Re: Einfacher Kopierschutz mit Online-Aktivierung8.702derdieter31.01.12 00:20
Re: Einfacher Kopierschutz mit Online-Aktivierung8.694NiWa31.01.12 07:11
Re: Einfacher Kopierschutz mit Online-Aktivierung8.636derdieter31.01.12 09:21
Re: Einfacher Kopierschutz mit Online-Aktivierung8.409derdieter31.01.12 09:32
Re: Einfacher Kopierschutz mit Online-Aktivierung8.592derdieter31.01.12 12:15
Re: Einfacher Kopierschutz mit Online-Aktivierung8.548NiWa31.01.12 12:31
Re: Einfacher Kopierschutz mit Online-Aktivierung8.526derdieter31.01.12 13:11
Re: Einfacher Kopierschutz mit Online-Aktivierung8.510derdieter31.01.12 13:14
Re: Einfacher Kopierschutz mit Online-Aktivierung8.499derdieter31.01.12 13:40
Re: Einfacher Kopierschutz mit Online-Aktivierung8.367NiWa31.01.12 13:50
Re: Einfacher Kopierschutz mit Online-Aktivierung8.305derdieter31.01.12 13:52
Re: Einfacher Kopierschutz mit Online-Aktivierung8.486derdieter31.01.12 22:18
Re: Einfacher Kopierschutz mit Online-Aktivierung8.425NiWa31.01.12 22:40
Re: Einfacher Kopierschutz mit Online-Aktivierung8.330derdieter31.01.12 23:05
Re: Einfacher Kopierschutz mit Online-Aktivierung8.255Glubschi4301.04.12 23:28
Re: Einfacher Kopierschutz mit Online-Aktivierung8.190NiWa01.04.12 23:39
Re: Einfacher Kopierschutz mit Online-Aktivierung8.183Glubschi4302.04.12 11:11
Re: Einfacher Kopierschutz mit Online-Aktivierung8.276derdieter03.05.12 23:08
Re: Einfacher Kopierschutz mit Online-Aktivierung8.151NiWa03.05.12 23:22
Re: Einfacher Kopierschutz mit Online-Aktivierung8.121Tausch09.05.12 13:32
Re: Einfacher Kopierschutz mit Online-Aktivierung8.160NiWa09.05.12 13:40
Re: Einfacher Kopierschutz mit Online-Aktivierung8.193Tausch09.05.12 13:45
Re: Einfacher Kopierschutz mit Online-Aktivierung8.204derdieter03.05.12 23:34
Re: Einfacher Kopierschutz mit Online-Aktivierung8.229NiWa03.05.12 23:39
Re: Einfacher Kopierschutz mit Online-Aktivierung8.080calypso01.06.12 12:30
Re: Einfacher Kopierschutz mit Online-Aktivierung8.063NiWa01.06.12 20:52
Re: Einfacher Kopierschutz mit Online-Aktivierung8.192calypso02.06.12 18:30
Re: Einfacher Kopierschutz mit Online-Aktivierung7.976calypso13.08.12 17:14
Re: Einfacher Kopierschutz mit Online-Aktivierung7.888NiWa13.08.12 18:42
Re: Einfacher Kopierschutz mit Online-Aktivierung8.015calypso14.08.12 06:28
Re: Einfacher Kopierschutz mit Online-Aktivierung7.972calypso17.08.12 08:15

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel