frm注册.frm

计量器具管理系统

VERSION 5.00
Begin VB.Form Frm注册 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "远望软件注册器"
   ClientHeight    =   2535
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4980
   Icon            =   "Frm注册.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2535
   ScaleWidth      =   4980
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text2 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   360
      Left            =   870
      TabIndex        =   5
      Top             =   660
      Width           =   2055
   End
   Begin VB.TextBox Text1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   360
      Left            =   870
      Locked          =   -1  'True
      TabIndex        =   4
      Top             =   240
      Width           =   2055
   End
   Begin VB.CommandButton Command2 
      Height          =   765
      Left            =   3960
      Picture         =   "Frm注册.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   2
      ToolTipText     =   "退出"
      Top             =   270
      Width           =   945
   End
   Begin VB.CommandButton Command1 
      Height          =   765
      Left            =   2970
      Picture         =   "Frm注册.frx":0614
      Style           =   1  'Graphical
      TabIndex        =   0
      ToolTipText     =   "注册"
      Top             =   270
      Width           =   945
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "联系电话：[phone]  2201234 "
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   210
      TabIndex        =   8
      Top             =   2160
      Width           =   4185
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "获取该软件注册码，输入后点击“注册”按钮即可。"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   210
      TabIndex        =   7
      Top             =   1800
      Width           =   4665
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请将上面的机器码告知济宁远望软件技术有限公司"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   210
      TabIndex        =   6
      Top             =   1410
      Width           =   4620
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "注册码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   150
      TabIndex        =   3
      Top             =   750
      Width           =   630
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "机器码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   150
      TabIndex        =   1
      Top             =   300
      Width           =   630
   End
End
Attribute VB_Name = "Frm注册"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Command1_Click()
Dim ss As String
ss = CStr(Int((zcm("c:\") + 1982) / 910) + 7)
    If Trim(Text2.Text) = ss Then
        SaveSetting "ywsoft", "ykgl", "zcm", ss
        MsgBox "注册成功！", vbOKOnly + vbInformation, "远望软件提示"
        Unload Me
    Else
        MsgBox "注册失败！", vbOKOnly + vbInformation, "远望软件提示"
        Text2.Text = ""
        Exit Sub
    End If
End Sub

Private Sub Form_Load()
Text1.Text = zcm("c:\") '提取本机C盘的序列号至文本框一
End Sub

Private Sub Command2_Click()
Unload Me
End Sub