End Property

Public Sub GetNamePassword()                       ''''获得用户名及密码的公用方法

                                                   ''''调用一次就会给用户名属性和密码属性赋一合法值

 Dim sTotal As String

 sTotal = CalculateNamePassword

 m_Name = Left(sTotal, 8)

 m_Password = Right(sTotal, 25)

End Sub

Public Sub Regest()                                ''''以合法用户名及密码注册软件的公有方法

 Dim sTotal As String

 Dim sSubName As String

 Dim sSubPassword As String

 Dim hEditKey As Long

 sTotal = CalculateNamePassword

 sSubName = Left(sTotal, 8)

 sSubPassword = Right(sTotal, 25)

 Dim lRegOpenError As Long

 lRegOpenError = RegOpenKeyEx(HKEY_LOCAL_MACHINE, m_RegestKey, 0, KEY_SET_VALUE, hEditKey)

 If lRegOpenError <> 0 Then

  MsgBox "Open Reg Error!Terminate!Please examine RegestKey."

  Exit Sub

 End If

 Dim lReturn As Long

 lReturn = RegSetValueEx(hEditKey, "Name", 0, REG_SZ, sSubName, 8)

 lReturn = RegSetValueEx(hEditKey, "Password", 0, REG_SZ, sSubPassword, 25)

End Sub

上一页  [1] [2] [3]