locking.frm

包括 LIB、DLL 加密模块 各种语言调用加密模块的例子程序等

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "http://Zlocksoft.com"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command3 
      Caption         =   "RUN"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1560
      TabIndex        =   2
      Top             =   2280
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "DEREGISTER"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1560
      TabIndex        =   1
      Top             =   1200
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "REGISTER"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1560
      TabIndex        =   0
      Top             =   240
      Width           =   1455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

Dim I As Long
Dim lpBuffer As String * 10

 'Test registered or not
 
Zhuce = Testkey(30, lpBuffer, 0)
'Zhuce = Testkey(30, lpBuffer, 1)
'Zhuce = TKRegister(2)

For I = 1 To 10
TestLock(I) = Asc(Mid(lpBuffer, I, 1))    'testlock: 10 11 12 13 14 15 16 17 18 19

Next

End Sub

Private Sub Command1_Click()

Dim I As Long

TKRegister (0)              'register

Zhuce = Testkey(0, lpBuffer, 0)
For I = 1 To 10
TestLock(I) = Asc(Mid(lpBuffer, I, 1))
Next

End Sub

Private Sub Command2_Click()

Dim I As Long

If TKRegister(1) = 0 Then             'deregister

Zhuce = -1

For I = 1 To 10
TestLock(I) = -1
Next

End If

End Sub

Private Sub Command3_Click()

Dim I As Long
Dim Myint As Long

If Zhuce = 0 Then
MsgBox "The program can run"
Else: MsgBox "The program cann't run"
End If

'
'
'
'
'
'
If TestLock(1) = 10 Then                  'test testlock
MsgBox "The testlock is ok, the program can run"
Else: MsgBox "The testlock is error, the program cann't run"
End If
'
If TestLock(2) = 11 Then                  'test testlock
MsgBox "The testlock is ok, the program can run"
Else: MsgBox "The testlock is error, the program cann't run"
End If
'
If TestLock(3) = 12 Then                  'test testlock
MsgBox "The testlock is ok, the program can run"
Else: MsgBox "The testlock is error, the program cann't run"
End If
'
If TestLock(4) = 13 Then                  'test testlock
MsgBox "The testlock is ok, the program can run"
Else: MsgBox "The testlock is error, the program cann't run"
End If
'
If TestLock(5) = 14 Then                  'test testlock
MsgBox "The testlock is ok, the program can run"
Else: MsgBox "The testlock is error, the program cann't run"
End If
'
If TestLock(6) = 15 Then                 'test testlock
MsgBox "The testlock is ok, the program can run"
Else: MsgBox "The testlock is error, the program cann't run"
End If
'
If TestLock(7) = 16 Then                 'test testlock
MsgBox "The testlock is ok, the program can run"
Else: MsgBox "The testlock is error, the program cann't run"
End If
'
If TestLock(8) = 17 Then                 'test testlock
MsgBox "The testlock is ok, the program can run"
Else: MsgBox "The testlock is error, the program cann't run"
End If
'
If TestLock(9) = 18 Then                 'test testlock
MsgBox "The testlock is ok, the program can run"
Else: MsgBox "The testlock is error, the program cann't run"
End If
'
If TestLock(10) = 19 Then                  'test testlock
MsgBox "The testlock is ok, the program can run"
Else: MsgBox "The testlock is error, the program cann't run"
End If
''
'
'
'
'
'
'


End Sub