DP Tool Club 12/CD_ASCQ_12_0294.iso/vrac/getyour.zip/FORM1.FRM

Text File | 1993-11-20 | 5KB | 130 lines

VERSION 2.00
Begin Form Form1
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "GetYour$"
   ClientHeight    =   960
   ClientLeft      =   4152
   ClientTop       =   6252
   ClientWidth     =   3372
   Height          =   1704
   Icon            =   FORM1.FRX:0000
   Left            =   4104
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   960
   ScaleWidth      =   3372
   Top             =   5556
   Width           =   3468
   Begin Menu RDME
      Caption         =   "&Read Me"
   End
   Begin Menu hlp
      Caption         =   "&Help"
      Begin Menu abt
         Caption         =   "&About..."
      End
      Begin Menu Sep1
         Caption         =   "-"
      End
      Begin Menu Ord
         Caption         =   "&Order..."
      End
      Begin Menu EntReg
         Caption         =   "&Enter Registration Number..."
      End
   End
End

Sub abt_Click ()
AboutBox.Show MODAL
End Sub

Sub EntReg_Click ()
RegNum.Show MODAL
End Sub

Sub Form_Load ()




    RegStat = Space$(31)
    i% = GetPrivateProfileString("GetYour$", "Serial", "Unregistered Copy", RegStat, 30, INIFILENAME$)
    RegStat = Left$(RegStat, i%)
    RegStat = LTrim$(RTrim$(RegStat))


    First = Space$(31)
    i% = GetPrivateProfileString("GetYour$", "FirstName", "First Name", First, 30, INIFILENAME$)
    First = Left$(First, i%)
    First = LTrim$(RTrim$(First))

    Last = Space$(31)
    i% = GetPrivateProfileString("GetYour$", "LastName", "Last Name", Last, 30, INIFILENAME$)
    Last = Left$(Last, i%)
    Last = LTrim$(RTrim$(Last))

 If RegStat = SerialNum$ Then
    Ord.Visible = 0
    EntReg.Visible = 0
    Sep1.Visible = 0
    Else
    Const MB_OK = 0, MB_OKCANCEL = 1
    Const MB_YESNOCANCEL = 3, MB_YESNO = 4
    Const MB_ICONSTOP = 16, MB_ICONQUESTION = 32
    Const MB_ICONEXCLAMATION = 48, MB_ICONINFORMATION = 64
    Const MB_DEFBUTTON2 = 0, IDYES = 6, IDNO = 7
    Title$ = "Shareware Reminder"
        Msg$ = "GetYour$ is Shareware. If you find it useful, please register it! Registering the program will eliminate this reminder! We accept VISA And MasterCard. Would you like to order now?"
    DgDef% = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2
    Response% = MsgBox(Msg$, DgDef%, Title$)
    If Response% = IDYES Then
    Order.Show MODAL
    End If
End If


End Sub

Sub Form_Unload (Cancel As Integer)

i% = WritePrivateProfileString("GetYour$", "Serial", RegStat, INIFILENAME$)
i% = WritePrivateProfileString("GetYour$", "FirstName", First, INIFILENAME$)
i% = WritePrivateProfileString("GetYour$", "LastName", Last, INIFILENAME$)


 If RegStat <> SerialNum$ Then
    Const MB_OK = 0, MB_OKCANCEL = 1
    Const MB_YESNOCANCEL = 3, MB_YESNO = 4
    Const MB_ICONSTOP = 16, MB_ICONQUESTION = 32
    Const MB_ICONEXCLAMATION = 48, MB_ICONINFORMATION = 64
    Const MB_DEFBUTTON2 = 0, IDYES = 6, IDNO = 7
    Title$ = "Shareware Reminder"
        Msg$ = "GetYour$ is Shareware. If you find it useful, please register it! Registering the program will eliminate this reminder! We accept VISA And MasterCard. Would you like to order now?"
    DgDef% = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2
    Response% = MsgBox(Msg$, DgDef%, Title$)
    If Response% = IDYES Then
    Order.Show MODAL
    End
    Else
    End
    End If
End If

End

End Sub

Sub Ord_Click ()
Order.Show MODAL
End Sub

Sub RDME_Click ()
Msg1 = "GetYour$ is a demo of code I use regularly in my apps to politely remind the user that they are using Shareware, provide an order form that will always stay with the unregistered app and provide for registration number entry to disable the Shareware nag screens and customize the app with the user's name. It really works well! To enter the password click on Enter Registration Number. The password for this demo is 1234567. Note that if you enter it correctly or incorrectly a corresponding message comes up. Entering the password also disables the menu selections for the order and registration items and customizes the About box with the registrant's name. The order form's Text1.LostFocus event contains all the code for pricing, tax, shipping, etc. The order form includes provision for VISA and MasterCard. If you would like to get approved to accept credit cards for payment, contact me. The included 3Dlabel custom control is public domain."
Msg2 = "If you find this code useful, please send the author $5. Choose Order to print an order form. If you have any questions, my CIS number is 73027,3307 and my AOL id is MikeH1259."
MsgBox Msg1 + " " + Msg2
End Sub