vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
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-Aktivierung13.122TZollo07.10.10 14:13
Re: Einfacher Kopierschutz mit Online-Aktivierung8.425NiWa09.10.10 13:23
Re: Einfacher Kopierschutz mit Online-Aktivierung7.900+++MaRuSo+++21.11.10 06:50
Re: Einfacher Kopierschutz mit Online-Aktivierung7.861ModeratorRalfE21.11.10 17:05
Re: Einfacher Kopierschutz mit Online-Aktivierung7.751NiWa21.11.10 19:25
Re: Einfacher Kopierschutz mit Online-Aktivierung7.729+++MaRuSo+++18.12.10 10:40
Re: Einfacher Kopierschutz mit Online-Aktivierung7.628+++MaRuSo+++18.12.10 10:34
Re: Einfacher Kopierschutz mit Online-Aktivierung7.614NiWa18.12.10 10:58
Re: Einfacher Kopierschutz mit Online-Aktivierung7.663BasicOpa04.03.11 11:37
Re: Einfacher Kopierschutz mit Online-Aktivierung7.487NiWa24.05.11 20:55
Re: Einfacher Kopierschutz mit Online-Aktivierung7.263vbarchiv_user20.07.11 11:52
Re: Einfacher Kopierschutz mit Online-Aktivierung7.064NiWa20.07.11 14:44
Re: Einfacher Kopierschutz mit Online-Aktivierung7.086pnrooob02.09.11 20:11
Re: Einfacher Kopierschutz mit Online-Aktivierung7.149pnrooob02.09.11 20:30
Re: Einfacher Kopierschutz mit Online-Aktivierung7.045NiWa02.09.11 23:44
Re: Einfacher Kopierschutz mit Online-Aktivierung6.889pnrooob03.09.11 12:03
Re: Einfacher Kopierschutz mit Online-Aktivierung6.978pnrooob03.09.11 12:50
Re: Einfacher Kopierschutz mit Online-Aktivierung6.948NiWa03.09.11 14:42
Re: Einfacher Kopierschutz mit Online-Aktivierung6.963pnrooob03.09.11 16:11
Re: Einfacher Kopierschutz mit Online-Aktivierung7.007NiWa03.09.11 19:27
Re: Einfacher Kopierschutz mit Online-Aktivierung7.050pnrooob04.09.11 12:04
Re: Einfacher Kopierschutz mit Online-Aktivierung6.911derdieter31.01.12 00:20
Re: Einfacher Kopierschutz mit Online-Aktivierung6.798NiWa31.01.12 07:11
Re: Einfacher Kopierschutz mit Online-Aktivierung6.748derdieter31.01.12 09:21
Re: Einfacher Kopierschutz mit Online-Aktivierung6.680derdieter31.01.12 09:32
Re: Einfacher Kopierschutz mit Online-Aktivierung6.735derdieter31.01.12 12:15
Re: Einfacher Kopierschutz mit Online-Aktivierung6.652NiWa31.01.12 12:31
Re: Einfacher Kopierschutz mit Online-Aktivierung6.623derdieter31.01.12 13:11
Re: Einfacher Kopierschutz mit Online-Aktivierung6.693derdieter31.01.12 13:14
Re: Einfacher Kopierschutz mit Online-Aktivierung6.773derdieter31.01.12 13:40
Re: Einfacher Kopierschutz mit Online-Aktivierung6.630NiWa31.01.12 13:50
Re: Einfacher Kopierschutz mit Online-Aktivierung6.551derdieter31.01.12 13:52
Re: Einfacher Kopierschutz mit Online-Aktivierung6.724derdieter31.01.12 22:18
Re: Einfacher Kopierschutz mit Online-Aktivierung6.621NiWa31.01.12 22:40
Re: Einfacher Kopierschutz mit Online-Aktivierung6.608derdieter31.01.12 23:05
Re: Einfacher Kopierschutz mit Online-Aktivierung6.512Glubschi4301.04.12 23:28
Re: Einfacher Kopierschutz mit Online-Aktivierung6.462NiWa01.04.12 23:39
Re: Einfacher Kopierschutz mit Online-Aktivierung6.467Glubschi4302.04.12 11:11
Re: Einfacher Kopierschutz mit Online-Aktivierung6.417derdieter03.05.12 23:08
Re: Einfacher Kopierschutz mit Online-Aktivierung6.405NiWa03.05.12 23:22
Re: Einfacher Kopierschutz mit Online-Aktivierung6.405Tausch09.05.12 13:32
Re: Einfacher Kopierschutz mit Online-Aktivierung6.436NiWa09.05.12 13:40
Re: Einfacher Kopierschutz mit Online-Aktivierung6.408Tausch09.05.12 13:45
Re: Einfacher Kopierschutz mit Online-Aktivierung6.440derdieter03.05.12 23:34
Re: Einfacher Kopierschutz mit Online-Aktivierung6.439NiWa03.05.12 23:39
Re: Einfacher Kopierschutz mit Online-Aktivierung6.310calypso01.06.12 12:30
Re: Einfacher Kopierschutz mit Online-Aktivierung6.294NiWa01.06.12 20:52
Re: Einfacher Kopierschutz mit Online-Aktivierung6.371calypso02.06.12 18:30
Re: Einfacher Kopierschutz mit Online-Aktivierung6.216calypso13.08.12 17:14
Re: Einfacher Kopierschutz mit Online-Aktivierung6.161NiWa13.08.12 18:42
Re: Einfacher Kopierschutz mit Online-Aktivierung6.156calypso14.08.12 06:28
Re: Einfacher Kopierschutz mit Online-Aktivierung6.233calypso17.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-2019 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