frmreg.frm

手机编程

VERSION 5.00
Begin VB.Form frmReg 
   Caption         =   "短信网关--注册信息"
   ClientHeight    =   2325
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4185
   Icon            =   "frmReg.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2325
   ScaleWidth      =   4185
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cancel 
      Caption         =   "取消(C)"
      Height          =   375
      Left            =   2880
      TabIndex        =   5
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton regediter 
      Caption         =   "注册(R)"
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   1680
      Width           =   975
   End
   Begin VB.TextBox softcode 
      Height          =   315
      Left            =   1400
      TabIndex        =   3
      Top             =   1065
      Width           =   2500
   End
   Begin VB.TextBox softcdkey 
      Height          =   315
      Left            =   1400
      TabIndex        =   2
      Top             =   360
      Width           =   2500
   End
   Begin VB.Label Label2 
      Caption         =   "软件特征码："
      Height          =   285
      Left            =   240
      TabIndex        =   1
      Top             =   1065
      Width           =   1200
   End
   Begin VB.Label Label1 
      Caption         =   "软件CD-KEY："
      Height          =   285
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   1200
   End
End
Attribute VB_Name = "frmReg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cancel_Click()
softcdkey.Text = ""
softcode.Text = ""
softcdkey.SetFocus
End Sub

Private Sub Form_Load()
Dim regusertxt, regpasstxt As Variant
regusertxt = ModuleReg.QueryValue(HKEY_CLASSES_ROOT, ".txt", "FileOpen")
regpasstxt = ModuleReg.QueryValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control", "FileType")
'If regusertxt = "4ef6180f312bbd185efacd7558aeef31" And regpasstxt = "23a89e920efe5dd75756da8e0b5b9fa2" Then
If regusertxt = "4ef6180f312bbd185efacd7558aeef31" Then
    softcdkey.Text = "jdfy"
    softcode.Text = "e19d5cd5af0378da05f63f891c74"
    regediter.Caption = "已注册"
    regediter.Enabled = False
    Cancel.Enabled = False
    softcdkey.Enabled = False
    softcode.Enabled = False
End If
End Sub

Private Sub regediter_Click()
If softcdkey.Text = "jdfy" And softcode.Text = "JDVER0102" Then
   'ModuleReg.CreateNewKey HKEY_CLASSES_ROOT, ".txt\FileOpen"
   ModuleReg.SetKeyValue HKEY_CLASSES_ROOT, ".txt", "FileOpen", "4ef6180f312bbd185efacd7558aeef31", REG_SZ
   'ModuleReg.CreateNewKey HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\FileType"
   ModuleReg.SetKeyValue HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\", "FileType", "23a89e920efe5dd75756da8e0b5b9fa2", REG_SZ
   MsgBox "软件注册成功!", vbOKOnly + vbExclamation, "注册信息"
Else
   MsgBox "软件cdkey或特征码输入错误！", vbOKOnly + vbExclamation, "注册信息"
   cancel_Click
End If
End Sub
Private Sub softcdkey_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    softcode.SetFocus
End If
End Sub

Private Sub softcode_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    regediter.SetFocus
End If
End Sub