home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / mslang / stepon / patchme.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-05-01  |  2.1 KB  |  62 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   1995
  6.    ClientLeft      =   1545
  7.    ClientTop       =   2160
  8.    ClientWidth     =   3195
  9.    Height          =   2400
  10.    Icon            =   PATCHME.FRX:0000
  11.    Left            =   1485
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1995
  16.    ScaleWidth      =   3195
  17.    Top             =   1815
  18.    Width           =   3315
  19.    Begin CommandButton Command1 
  20.       Caption         =   "Hier &klicken"
  21.       Height          =   525
  22.       Left            =   630
  23.       TabIndex        =   0
  24.       Top             =   1320
  25.       Width           =   1815
  26.    End
  27.    Begin Label Label1 
  28.       Alignment       =   2  'Center
  29.       Caption         =   "Patch Me demonstriert, wie man mit Hilfe des Befehls PatchFile ein Anwendungsprogramm lizensieren kann. "
  30.       Height          =   1215
  31.       Left            =   90
  32.       TabIndex        =   1
  33.       Top             =   90
  34.       Width           =   3045
  35.    End
  36. Option Explicit
  37. ' Copyright 1993 Markus Kreisel & Renate Reinartz
  38. ' Hinweis: Dieses Beispiel funktioniert nicht im Visual Basic Interpreter.
  39. ' Erstellen Sie bitte zuerst eine EXE-Datei und wenden Sie PatchFile auf die
  40. ' Exedatei an.
  41. ' PatchFile sucht nach 40 X hintereinander und ersetzt diese.
  42. Const A$ = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  43. Sub Command1_Click ()
  44.     ' Achtung: Es w
  45. re falsch zu schreiben If A = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", weil
  46.     ' diese Zeichenkette von Patchfile auch bearbeitet w
  47. rde und das Ergebnis
  48.     ' dadurch immer wahr w
  49. rde. String$(40, Asc("X")) wird erst zur Laufzeit
  50.     ' zu "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" und damit nicht von Patchfile erfa
  51.     If A = String$(40, Asc("X")) Then
  52.         MsgBox "Patch Me ist noch nicht lizensiert"
  53.     Else
  54.         MsgBox "Patch Me ist lizensiert f
  55. r: " & Trim$(A)
  56.     End If
  57. End Sub
  58. Sub Form_Load ()
  59.     Me.Move (screen.Width - Width) / 2, (screen.Height - Height) / 2
  60.     caption = app.Title
  61. End Sub
  62.