frmreg.frm

GIS+VB开发. GIS+VB开发.

VERSION 5.00
Begin VB.Form FrmReg 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "注册系统"
   ClientHeight    =   2655
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3135
   Icon            =   "FrmReg.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2655
   ScaleWidth      =   3135
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "获取注册码"
      Height          =   375
      Left            =   90
      TabIndex        =   11
      Top             =   1560
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "离开"
      Height          =   375
      Left            =   2160
      TabIndex        =   9
      Top             =   1560
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "注册"
      Height          =   375
      Left            =   1320
      TabIndex        =   8
      Top             =   1560
      Width           =   855
   End
   Begin VB.TextBox TextSerial 
      Height          =   270
      Left            =   840
      Locked          =   -1  'True
      TabIndex        =   7
      Top             =   1170
      Width           =   2175
   End
   Begin VB.TextBox TextCode 
      Height          =   270
      Left            =   840
      TabIndex        =   0
      Top             =   810
      Width           =   2175
   End
   Begin VB.TextBox TextMail 
      Height          =   270
      Left            =   840
      TabIndex        =   6
      Top             =   450
      Width           =   2175
   End
   Begin VB.TextBox TextName 
      Height          =   270
      Left            =   840
      TabIndex        =   5
      Top             =   90
      Width           =   2175
   End
   Begin VB.Label Label5 
      Caption         =   "    本软件完全免费，可以登陆网站免费获取注册码。欢迎大家使用并提出宝贵意见。"
      Height          =   615
      Left            =   120
      TabIndex        =   10
      Top             =   2040
      Width           =   2895
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "序列号："
      Height          =   180
      Left            =   120
      TabIndex        =   4
      Top             =   1200
      Width           =   720
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "注册码："
      Height          =   180
      Left            =   120
      TabIndex        =   3
      Top             =   840
      Width           =   720
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "E-mail："
      Height          =   180
      Left            =   120
      TabIndex        =   2
      Top             =   480
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "用户名："
      Height          =   180
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   720
   End
End
Attribute VB_Name = "FrmReg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long    'API函数，Shell

Private Sub Command1_Click()
Dim fs
Dim StrPath As String, StrB As String
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(App.Path + "\MapSearch.ini") Then
  StrPath = App.Path + "\MapSearch.ini"
    setProfile StrPath, "Register", "RegName", Me.TextName.Text
    setProfile StrPath, "Register", "RegMail", Me.TextMail.Text
  If Me.TextCode = GetMD5Str(Me.TextName.Text & Me.TextMail.Text & Me.TextSerial) Then
    setProfile StrPath, "Register", "RegCode", Me.TextCode.Text
    RegName = Me.TextName.Text
    RegMail = Me.TextMail.Text
    RegCode = Me.TextCode.Text
    MsgBox "注册成功"
    RegFlag = True
    Unload Me
  Else
    MsgBox "注册码错误"
    Me.TextCode.SetFocus
  End If
Else
MsgBox "找不到设置文件"
Unload Me
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
If IsConnected = False Then
  MsgBox "你没有连接网络。"
  Exit Sub
Else
ShellExecute hwnd, "Open", "Http://MapSearch.99model.com", 0, 0, 0
End If
End Sub

Private Sub Form_Load()
Dim fs
Dim StrPath As String, StrB As String
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(App.Path + "\MapSearch.ini") Then
  StrPath = App.Path + "\MapSearch.ini"
  Me.TextName.Text = GetProfile(StrPath, "Register", "RegName")
  Me.TextMail.Text = GetProfile(StrPath, "Register", "RegMail")
  Me.TextCode.Text = GetProfile(StrPath, "Register", "RegCode")
  Me.TextSerial.Text = RegSerial
  If RegFlag Then
    Me.Command1.Enabled = False
    Me.Command3.Enabled = False
  End If
Else
MsgBox "找不到设置文件"
Unload Me
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(App.Path + "\xj.tmp") Then Kill App.Path + "\xj.tmp"
End Sub