Enigma Protector

Code: Select all

Private Sub Form_Load()
    Dim Name As String
    Dim Key As String

  tHardware.Text = EP_RegHardwareID   <<<< This shows Blank text.
  If EP_RegLoadAndCheckKey = 1 Then
    If EP_RegLoadKey(Name, Key) = 1 Then
      tUserInfo.Text = Name
      tKey.Text = Key
      lbUserInfo.Caption = Name
    End If
  Else
    MsgBox "Register this software to remove message!", vbExclamation
  End If
     
End Sub