form2.frm

根据硬盘序列号加密程序

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "注册软件演示"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "要获得注册码请点击这里"
      Height          =   375
      Left            =   1200
      TabIndex        =   6
      Top             =   2640
      Width           =   2175
   End
   Begin VB.CommandButton Command2 
      Caption         =   "返回"
      Height          =   375
      Left            =   2760
      TabIndex        =   5
      Top             =   2040
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "注册"
      Height          =   375
      Left            =   600
      TabIndex        =   4
      Top             =   2040
      Width           =   855
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Left            =   1920
      TabIndex        =   1
      Top             =   1080
      Width           =   1815
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   1920
      TabIndex        =   0
      Top             =   480
      Width           =   1935
   End
   Begin VB.Label Label2 
      Caption         =   "输入注册码"
      Height          =   615
      Left            =   360
      TabIndex        =   3
      Top             =   1200
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "机器码"
      Height          =   495
      Left            =   480
      TabIndex        =   2
      Top             =   480
      Width           =   1215
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

 If Text2.Text = jsid(getid()) Then
  Call writeid
  r = True
  MsgBox "注册成功,请重新启动软件"
Else
  r = False
  MsgBox "你的注册码不对！"
End If


End Sub
Private Sub Command2_Click()
  Unload Me
End Sub

Private Sub Command3_Click()
 Form3.Show
End Sub

Private Sub form_activate()
 Text1.Text = getid()
 
End Sub
Private Sub Form_load()
Call firs
End Sub
Sub firs()
 Dim s1, s2 As String
 s1 = getfileid()
 s2 = getid()
 If s1 = s2 Then
  Command1.Enabled = False
  Text1.Text = "已注册！"
  Text2.Enabled = False
Else
 Command1.Enabled = True
End If
End Sub
Private Sub writeid()
 Open "c:\register_my.dll" For Random As 4
 Dim s As Long
 s = Text1.Text
 Put 4, 1, s
 Close 4
End Sub