home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / FERRAMEN / R_KEY / DEMOAPPW.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-06-05  |  1.9 KB  |  43 lines
  1. ' DemoAppW - Visual BASIC/Windows version of the RegKey demonstration program.
  2. '            Demonstrates the use of file-based registration key validation
  3. '            within a program using the RegKey system. Displays one of two
  4. '            simple messages based upon whether or not the user is
  5. '            registered. To test in registerd mode, use KeyGen to generate
  6. '            a *.KEY registration key file for DemoApp, and place that file
  7. '            in the current default directory. To test in unregistered mode
  8. '            remove any valid *.KEY files from the current default directory.
  9.  
  10.  
  11. Dim Shared RegisteredMode As Integer     ' Variable to store mode to operate in
  12. Dim Shared RegistrationString As String      ' To store name of registered user
  13.  
  14. Sub main ()
  15.    ' Check for a valid registration key file
  16.  
  17.    ' The following information is passed to the RegKeyFileValidate() function
  18.    '    "*.KEY"             - Filespec of registration key file
  19.    '    "0C9HMN1NDL"        - Application's validation code
  20.    '    "Your Name", 0      - Your RegKey registration info
  21.    '    RegistrationString$ - Where registration string will be placed
  22.    '    255                 - Maximum size of registration string
  23.    '    RegisteredMode%     - Where to store result of validation
  24.  
  25.    Result = RegKeyFileValidate("*.KEY", "0C9HMN1NDL", "Your Name", 0, RegistrationString$, 255, RegisteredMode%)
  26.    
  27.    If RegisteredMode% = 1 Then
  28.       ' If we are operating in registered mode, display registered message
  29.  
  30.       sMessage$ = "DemoApp is registered to: " + RegistrationString$ + Chr$(13) + "Thanks for registering DemoApp!"
  31.  
  32.       MsgBox sMessage$, 64, "DemoApp"
  33.  
  34.    Else
  35.       ' If we are operating in UNregistered mode, display UNregistered message
  36.  
  37.       sMessage$ = "DemoApp is NOT registered" + Chr$(13) + "Please remember to register DemoApp!"
  38.  
  39.       MsgBox sMessage$, 16, "DemoApp"
  40.    End If
  41. End Sub
  42.  
  43.