zhuce.frm

本人长期从事人事管理工作

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Dialog 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "注册"
   ClientHeight    =   3780
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   6030
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3780
   ScaleWidth      =   6030
   ShowInTaskbar   =   0   'False
   Begin TabDlg.SSTab SSTab1 
      Height          =   2895
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Width           =   5775
      _ExtentX        =   10186
      _ExtentY        =   5106
      _Version        =   393216
      Style           =   1
      Tabs            =   2
      Tab             =   1
      TabHeight       =   520
      TabCaption(0)   =   "注册及定制说明"
      TabPicture(0)   =   "zhuce.frx":0000
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "Text1"
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "注册"
      TabPicture(1)   =   "zhuce.frx":001C
      Tab(1).ControlEnabled=   -1  'True
      Tab(1).Control(0)=   "Label1"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "Label2"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).Control(2)=   "Label3"
      Tab(1).Control(2).Enabled=   0   'False
      Tab(1).Control(3)=   "Text2"
      Tab(1).Control(3).Enabled=   0   'False
      Tab(1).Control(4)=   "Command1"
      Tab(1).Control(4).Enabled=   0   'False
      Tab(1).Control(5)=   "Command2"
      Tab(1).Control(5).Enabled=   0   'False
      Tab(1).ControlCount=   6
      Begin VB.CommandButton Command2 
         Caption         =   "网络注册"
         Height          =   375
         Left            =   3840
         TabIndex        =   8
         Top             =   2040
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   2295
         Left            =   -74880
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   7
         Text            =   "zhuce.frx":0038
         Top             =   480
         Width           =   5535
      End
      Begin VB.CommandButton Command1 
         Caption         =   "注册"
         Height          =   375
         Left            =   1320
         TabIndex        =   6
         Top             =   2040
         Width           =   1095
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Left            =   1560
         TabIndex        =   5
         Top             =   1440
         Width           =   1455
      End
      Begin VB.Label Label3 
         Height          =   375
         Left            =   1560
         TabIndex        =   4
         Top             =   840
         Width           =   1575
      End
      Begin VB.Label Label2 
         Caption         =   "注册号："
         Height          =   375
         Left            =   840
         TabIndex        =   3
         Top             =   1440
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "注册名："
         Height          =   375
         Left            =   840
         TabIndex        =   2
         Top             =   840
         Width           =   735
      End
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "关闭"
      Height          =   375
      Left            =   2400
      TabIndex        =   0
      Top             =   3240
      Width           =   1215
   End
End
Attribute VB_Name = "Dialog"
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函数getcomputername获取计算机名，通过“外接程序”的“外接程序管理器”栏目

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()

Dim m As String
Dim fso, txtfile

'm为口令，如果口令为注册名减1，除以30，乘以9，即为注册号。19760518为万用注册号

m = (Val(Label3.Caption) - 1) / 30 * 9
 
If Text2.Text = Abs(m) Or Text2.Text = 19760518 Then
 
  '建立一个文本文件
  '如果注册号正确，建立一个新文本文件，命名为soturip.ini
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set txtfile = fso.CreateTextFile("c:\soturip.ini", True)
    txtfile.Write ("rtyiityur")
    txtfile.Close

  MsgBox "恭喜您成为注册用户!单击确定后,程序将关闭。重新打开程序,即为注册用户", vbOKOnly, "恭喜"
      
  Unload Dialog

  Unload Form1
  
  End

Else

   MsgBox "您的注册码有误!", vbOKOnly, "提示"
   
End If



End Sub

Private Sub Command2_Click()

Dim ret&
ret& = ShellExecute(Me.hwnd, "Open", "http://www.shareware.net.cn/shareware_view.asp?id={612307AD-9DB3-48E6-BD7F-3354A08C124B}", "", App.Path, 1)

End Sub


Private Sub Form_Activate()

    
'本段程序孔小乐提供技术支持
'提取计算机名，并变成数字

Dim a As String * 256

Dim s, num, num1, num2, num3, num4 As Long

s = GetComputerName(a, 256)


Select Case Len(a)

Case Is = 0
  a = "lij"

Case Is = 1
   a = String(3, a)
   
Case Is = 2
   a = String(3, a)
   
Case Is >= 4
   a = Left(a, 3)
  
End Select

a1 = Mid(a, 1, 1)
a2 = Mid(a, 2, 2)
a3 = Mid(a, 3, 3)

num1 = Asc(a1)
num2 = Asc(a2)
num3 = Asc(a3)

num4 = num1 * 10000 + num2 * 100 + num3

num = num4 * 30 + 1

Label3.Caption = num


End Sub

Private Sub OKButton_Click()

Unload Dialog

Close

End Sub