home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / MaxProtect1797319252004.psc / Form1.frm < prev    next >
Text File  |  2004-09-25  |  29KB  |  1,098 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H001449FB&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Software - MaxProtector"
  7.    ClientHeight    =   6975
  8.    ClientLeft      =   45
  9.    ClientTop       =   480
  10.    ClientWidth     =   10695
  11.    ControlBox      =   0   'False
  12.    Enabled         =   0   'False
  13.    BeginProperty Font 
  14.       Name            =   "Arial"
  15.       Size            =   8.25
  16.       Charset         =   0
  17.       Weight          =   400
  18.       Underline       =   0   'False
  19.       Italic          =   0   'False
  20.       Strikethrough   =   0   'False
  21.    EndProperty
  22.    Icon            =   "Form1.frx":0000
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    Moveable        =   0   'False
  27.    ScaleHeight     =   6975
  28.    ScaleWidth      =   10695
  29.    StartUpPosition =   2  'CenterScreen
  30.    Begin VB.CommandButton Command2 
  31.       Caption         =   "Buy Game"
  32.       Height          =   855
  33.       Left            =   6600
  34.       TabIndex        =   26
  35.       Top             =   5880
  36.       Width           =   1695
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "Try Game"
  40.       Default         =   -1  'True
  41.       Height          =   855
  42.       Left            =   8520
  43.       TabIndex        =   25
  44.       Top             =   5880
  45.       Width           =   1695
  46.    End
  47.    Begin VB.CommandButton exit1 
  48.       Caption         =   "Exit"
  49.       Height          =   855
  50.       Left            =   8520
  51.       TabIndex        =   24
  52.       Top             =   5880
  53.       Width           =   1695
  54.    End
  55.    Begin VB.Timer Timer11 
  56.       Interval        =   10
  57.       Left            =   2400
  58.       Top             =   0
  59.    End
  60.    Begin VB.Timer Timer10 
  61.       Interval        =   1
  62.       Left            =   1920
  63.       Top             =   480
  64.    End
  65.    Begin VB.Timer Timer9 
  66.       Interval        =   1
  67.       Left            =   1920
  68.       Top             =   0
  69.    End
  70.    Begin VB.Timer Timer8 
  71.       Enabled         =   0   'False
  72.       Interval        =   10
  73.       Left            =   1440
  74.       Top             =   480
  75.    End
  76.    Begin VB.Timer Timer7 
  77.       Interval        =   1
  78.       Left            =   1440
  79.       Top             =   0
  80.    End
  81.    Begin VB.Timer Timer6 
  82.       Enabled         =   0   'False
  83.       Interval        =   10
  84.       Left            =   960
  85.       Top             =   480
  86.    End
  87.    Begin MSComctlLib.ProgressBar time 
  88.       Height          =   375
  89.       Left            =   6720
  90.       TabIndex        =   16
  91.       Top             =   5160
  92.       Width           =   3375
  93.       _ExtentX        =   5953
  94.       _ExtentY        =   661
  95.       _Version        =   393216
  96.       Appearance      =   0
  97.       Max             =   30
  98.       Scrolling       =   1
  99.    End
  100.    Begin VB.Timer Timer5 
  101.       Interval        =   10
  102.       Left            =   960
  103.       Top             =   0
  104.    End
  105.    Begin VB.Timer Timer4 
  106.       Interval        =   1
  107.       Left            =   480
  108.       Top             =   480
  109.    End
  110.    Begin VB.Timer Timer3 
  111.       Interval        =   1
  112.       Left            =   0
  113.       Top             =   480
  114.    End
  115.    Begin VB.Timer Timer2 
  116.       Interval        =   1
  117.       Left            =   480
  118.       Top             =   0
  119.    End
  120.    Begin VB.Timer Timer1 
  121.       Interval        =   50
  122.       Left            =   0
  123.       Top             =   0
  124.    End
  125.    Begin VB.Label Label23 
  126.       BackStyle       =   0  'Transparent
  127.       Height          =   135
  128.       Left            =   0
  129.       TabIndex        =   23
  130.       Top             =   6840
  131.       Width           =   135
  132.    End
  133.    Begin VB.Label Label22 
  134.       Alignment       =   2  'Center
  135.       BackStyle       =   0  'Transparent
  136.       Caption         =   "ADRANIX"
  137.       BeginProperty Font 
  138.          Name            =   "Arial Black"
  139.          Size            =   48
  140.          Charset         =   0
  141.          Weight          =   400
  142.          Underline       =   0   'False
  143.          Italic          =   -1  'True
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.       ForeColor       =   &H00FFFFFF&
  147.       Height          =   1215
  148.       Left            =   360
  149.       TabIndex        =   22
  150.       Top             =   360
  151.       Width           =   5415
  152.    End
  153.    Begin VB.Label Label21 
  154.       BackStyle       =   0  'Transparent
  155.       Caption         =   "Please Wait while loading remaining time..."
  156.       BeginProperty Font 
  157.          Name            =   "Arial"
  158.          Size            =   14.25
  159.          Charset         =   0
  160.          Weight          =   700
  161.          Underline       =   0   'False
  162.          Italic          =   0   'False
  163.          Strikethrough   =   0   'False
  164.       EndProperty
  165.       Height          =   375
  166.       Left            =   2520
  167.       TabIndex        =   21
  168.       Top             =   3960
  169.       Width           =   5895
  170.    End
  171.    Begin VB.Label Label20 
  172.       BackStyle       =   0  'Transparent
  173.       Caption         =   "Please Wait..."
  174.       BeginProperty Font 
  175.          Name            =   "Arial"
  176.          Size            =   20.25
  177.          Charset         =   0
  178.          Weight          =   700
  179.          Underline       =   0   'False
  180.          Italic          =   0   'False
  181.          Strikethrough   =   0   'False
  182.       EndProperty
  183.       ForeColor       =   &H00000000&
  184.       Height          =   495
  185.       Left            =   2520
  186.       TabIndex        =   20
  187.       Top             =   3240
  188.       Width           =   2775
  189.    End
  190.    Begin VB.Shape Shape4 
  191.       BorderWidth     =   4
  192.       Height          =   1695
  193.       Left            =   2280
  194.       Top             =   3000
  195.       Width           =   6375
  196.    End
  197.    Begin VB.Label Label11 
  198.       Alignment       =   2  'Center
  199.       BackStyle       =   0  'Transparent
  200.       Caption         =   "ADRANIX"
  201.       BeginProperty Font 
  202.          Name            =   "Arial Black"
  203.          Size            =   24
  204.          Charset         =   0
  205.          Weight          =   400
  206.          Underline       =   0   'False
  207.          Italic          =   -1  'True
  208.          Strikethrough   =   0   'False
  209.       EndProperty
  210.       ForeColor       =   &H00FFFFFF&
  211.       Height          =   615
  212.       Left            =   5640
  213.       TabIndex        =   10
  214.       Top             =   3120
  215.       Width           =   2655
  216.    End
  217.    Begin VB.Label Label18 
  218.       BackStyle       =   0  'Transparent
  219.       Caption         =   "Your free time is being counted down even now so click the 'Try Game' button to begin the game so that your time is not wasted."
  220.       BeginProperty Font 
  221.          Name            =   "Arial"
  222.          Size            =   14.25
  223.          Charset         =   0
  224.          Weight          =   400
  225.          Underline       =   0   'False
  226.          Italic          =   0   'False
  227.          Strikethrough   =   0   'False
  228.       EndProperty
  229.       ForeColor       =   &H00FFFFFF&
  230.       Height          =   1335
  231.       Left            =   840
  232.       TabIndex        =   18
  233.       Top             =   5400
  234.       Width           =   4935
  235.    End
  236.    Begin VB.Label Label17 
  237.       BackStyle       =   0  'Transparent
  238.       Caption         =   "*"
  239.       BeginProperty Font 
  240.          Name            =   "Comic Sans MS"
  241.          Size            =   48
  242.          Charset         =   0
  243.          Weight          =   400
  244.          Underline       =   0   'False
  245.          Italic          =   -1  'True
  246.          Strikethrough   =   0   'False
  247.       EndProperty
  248.       ForeColor       =   &H00FFFFFF&
  249.       Height          =   735
  250.       Left            =   0
  251.       TabIndex        =   17
  252.       Top             =   5280
  253.       Width           =   735
  254.    End
  255.    Begin VB.Label Label16 
  256.       BackStyle       =   0  'Transparent
  257.       Caption         =   "*"
  258.       BeginProperty Font 
  259.          Name            =   "Comic Sans MS"
  260.          Size            =   48
  261.          Charset         =   0
  262.          Weight          =   400
  263.          Underline       =   0   'False
  264.          Italic          =   -1  'True
  265.          Strikethrough   =   0   'False
  266.       EndProperty
  267.       ForeColor       =   &H00FFFFFF&
  268.       Height          =   735
  269.       Left            =   0
  270.       TabIndex        =   15
  271.       Top             =   3600
  272.       Width           =   735
  273.    End
  274.    Begin VB.Label Label15 
  275.       BackStyle       =   0  'Transparent
  276.       Caption         =   "*"
  277.       BeginProperty Font 
  278.          Name            =   "Comic Sans MS"
  279.          Size            =   48
  280.          Charset         =   0
  281.          Weight          =   400
  282.          Underline       =   0   'False
  283.          Italic          =   -1  'True
  284.          Strikethrough   =   0   'False
  285.       EndProperty
  286.       ForeColor       =   &H00FFFFFF&
  287.       Height          =   735
  288.       Left            =   0
  289.       TabIndex        =   14
  290.       Top             =   2280
  291.       Width           =   735
  292.    End
  293.    Begin VB.Label Label12 
  294.       Alignment       =   2  'Center
  295.       BackStyle       =   0  'Transparent
  296.       Caption         =   "Welcome to the 30 minute trial of Software"
  297.       BeginProperty Font 
  298.          Name            =   "Arial"
  299.          Size            =   14.25
  300.          Charset         =   0
  301.          Weight          =   400
  302.          Underline       =   0   'False
  303.          Italic          =   0   'False
  304.          Strikethrough   =   0   'False
  305.       EndProperty
  306.       ForeColor       =   &H00FFFFFF&
  307.       Height          =   375
  308.       Left            =   120
  309.       TabIndex        =   11
  310.       Top             =   1560
  311.       Width           =   6015
  312.    End
  313.    Begin VB.Label Label7 
  314.       Alignment       =   2  'Center
  315.       BackStyle       =   0  'Transparent
  316.       Caption         =   "Own the full version for unlimited gameplay."
  317.       BeginProperty Font 
  318.          Name            =   "Comic Sans MS"
  319.          Size            =   15.75
  320.          Charset         =   0
  321.          Weight          =   400
  322.          Underline       =   0   'False
  323.          Italic          =   0   'False
  324.          Strikethrough   =   0   'False
  325.       EndProperty
  326.       ForeColor       =   &H00000000&
  327.       Height          =   975
  328.       Left            =   6600
  329.       TabIndex        =   6
  330.       Top             =   1920
  331.       Width           =   3615
  332.    End
  333.    Begin VB.Label Label6 
  334.       Alignment       =   1  'Right Justify
  335.       BackStyle       =   0  'Transparent
  336.       BeginProperty Font 
  337.          Name            =   "Arial"
  338.          Size            =   11.25
  339.          Charset         =   0
  340.          Weight          =   400
  341.          Underline       =   0   'False
  342.          Italic          =   0   'False
  343.          Strikethrough   =   0   'False
  344.       EndProperty
  345.       ForeColor       =   &H000000FF&
  346.       Height          =   255
  347.       Left            =   8520
  348.       TabIndex        =   5
  349.       Top             =   4800
  350.       Width           =   1575
  351.    End
  352.    Begin VB.Label Label5 
  353.       BackStyle       =   0  'Transparent
  354.       Caption         =   "Demo time reaming:"
  355.       BeginProperty Font 
  356.          Name            =   "Arial"
  357.          Size            =   9.75
  358.          Charset         =   0
  359.          Weight          =   400
  360.          Underline       =   0   'False
  361.          Italic          =   0   'False
  362.          Strikethrough   =   0   'False
  363.       EndProperty
  364.       ForeColor       =   &H00FFFFFF&
  365.       Height          =   255
  366.       Left            =   6720
  367.       TabIndex        =   4
  368.       Top             =   4800
  369.       Width           =   1815
  370.    End
  371.    Begin VB.Label Label4 
  372.       Alignment       =   2  'Center
  373.       BackStyle       =   0  'Transparent
  374.       Caption         =   "of gameplay remaining"
  375.       BeginProperty Font 
  376.          Name            =   "Arial"
  377.          Size            =   14.25
  378.          Charset         =   0
  379.          Weight          =   400
  380.          Underline       =   0   'False
  381.          Italic          =   0   'False
  382.          Strikethrough   =   0   'False
  383.       EndProperty
  384.       ForeColor       =   &H00FF0000&
  385.       Height          =   375
  386.       Left            =   6600
  387.       TabIndex        =   3
  388.       Top             =   1320
  389.       Width           =   3615
  390.    End
  391.    Begin VB.Label Label3 
  392.       Alignment       =   2  'Center
  393.       BackStyle       =   0  'Transparent
  394.       BeginProperty Font 
  395.          Name            =   "Arial"
  396.          Size            =   24
  397.          Charset         =   0
  398.          Weight          =   400
  399.          Underline       =   0   'False
  400.          Italic          =   0   'False
  401.          Strikethrough   =   0   'False
  402.       EndProperty
  403.       ForeColor       =   &H000000FF&
  404.       Height          =   615
  405.       Left            =   6600
  406.       TabIndex        =   2
  407.       Top             =   720
  408.       Width           =   3615
  409.    End
  410.    Begin VB.Label Label2 
  411.       Alignment       =   2  'Center
  412.       BackStyle       =   0  'Transparent
  413.       Caption         =   "You Have"
  414.       BeginProperty Font 
  415.          Name            =   "Arial"
  416.          Size            =   14.25
  417.          Charset         =   0
  418.          Weight          =   400
  419.          Underline       =   0   'False
  420.          Italic          =   0   'False
  421.          Strikethrough   =   0   'False
  422.       EndProperty
  423.       ForeColor       =   &H00FF0000&
  424.       Height          =   375
  425.       Left            =   6600
  426.       TabIndex        =   1
  427.       Top             =   360
  428.       Width           =   3615
  429.    End
  430.    Begin VB.Label Label1 
  431.       BackStyle       =   0  'Transparent
  432.       Caption         =   "X Minutes"
  433.       Enabled         =   0   'False
  434.       BeginProperty Font 
  435.          Name            =   "MS Sans Serif"
  436.          Size            =   8.25
  437.          Charset         =   0
  438.          Weight          =   400
  439.          Underline       =   0   'False
  440.          Italic          =   0   'False
  441.          Strikethrough   =   0   'False
  442.       EndProperty
  443.       Height          =   255
  444.       Left            =   120
  445.       TabIndex        =   0
  446.       Top             =   120
  447.       Visible         =   0   'False
  448.       Width           =   735
  449.    End
  450.    Begin VB.Shape Shape1 
  451.       Height          =   1575
  452.       Left            =   6600
  453.       Shape           =   4  'Rounded Rectangle
  454.       Top             =   240
  455.       Width           =   3615
  456.    End
  457.    Begin VB.Label Label19 
  458.       BackColor       =   &H00009EEA&
  459.       Height          =   1695
  460.       Left            =   2280
  461.       TabIndex        =   19
  462.       Top             =   3000
  463.       Width           =   6375
  464.    End
  465.    Begin VB.Label Label13 
  466.       BackStyle       =   0  'Transparent
  467.       Caption         =   $"Form1.frx":0442
  468.       BeginProperty Font 
  469.          Name            =   "Arial"
  470.          Size            =   14.25
  471.          Charset         =   0
  472.          Weight          =   400
  473.          Underline       =   0   'False
  474.          Italic          =   0   'False
  475.          Strikethrough   =   0   'False
  476.       EndProperty
  477.       ForeColor       =   &H00FFFFFF&
  478.       Height          =   1335
  479.       Left            =   840
  480.       TabIndex        =   13
  481.       Top             =   3720
  482.       Width           =   4935
  483.    End
  484.    Begin VB.Label Label14 
  485.       BackStyle       =   0  'Transparent
  486.       Caption         =   "With this 30 minute trial you can use all of the features in this game with no restrictions of play free for 30 minutes."
  487.       BeginProperty Font 
  488.          Name            =   "Arial"
  489.          Size            =   14.25
  490.          Charset         =   0
  491.          Weight          =   400
  492.          Underline       =   0   'False
  493.          Italic          =   0   'False
  494.          Strikethrough   =   0   'False
  495.       EndProperty
  496.       ForeColor       =   &H00FFFFFF&
  497.       Height          =   1095
  498.       Left            =   840
  499.       TabIndex        =   12
  500.       Top             =   2400
  501.       Width           =   5175
  502.    End
  503.    Begin VB.Label Label9 
  504.       Alignment       =   2  'Center
  505.       BackStyle       =   0  'Transparent
  506.       Caption         =   "* No CD requied to play"
  507.       BeginProperty Font 
  508.          Name            =   "Comic Sans MS"
  509.          Size            =   14.25
  510.          Charset         =   0
  511.          Weight          =   400
  512.          Underline       =   0   'False
  513.          Italic          =   0   'False
  514.          Strikethrough   =   0   'False
  515.       EndProperty
  516.       ForeColor       =   &H00404040&
  517.       Height          =   375
  518.       Left            =   6720
  519.       TabIndex        =   8
  520.       Top             =   3360
  521.       Width           =   3375
  522.    End
  523.    Begin VB.Label Label10 
  524.       Alignment       =   2  'Center
  525.       BackStyle       =   0  'Transparent
  526.       Caption         =   "* Instant Game Activation"
  527.       BeginProperty Font 
  528.          Name            =   "Comic Sans MS"
  529.          Size            =   14.25
  530.          Charset         =   0
  531.          Weight          =   400
  532.          Underline       =   0   'False
  533.          Italic          =   0   'False
  534.          Strikethrough   =   0   'False
  535.       EndProperty
  536.       ForeColor       =   &H00404040&
  537.       Height          =   375
  538.       Left            =   6600
  539.       TabIndex        =   9
  540.       Top             =   3840
  541.       Width           =   3495
  542.    End
  543.    Begin VB.Label Label8 
  544.       Alignment       =   2  'Center
  545.       BackStyle       =   0  'Transparent
  546.       Caption         =   "* Play any where any time"
  547.       BeginProperty Font 
  548.          Name            =   "Comic Sans MS"
  549.          Size            =   14.25
  550.          Charset         =   0
  551.          Weight          =   400
  552.          Underline       =   0   'False
  553.          Italic          =   0   'False
  554.          Strikethrough   =   0   'False
  555.       EndProperty
  556.       ForeColor       =   &H00404040&
  557.       Height          =   375
  558.       Left            =   6720
  559.       TabIndex        =   7
  560.       Top             =   2880
  561.       Width           =   3375
  562.    End
  563.    Begin VB.Shape Shape2 
  564.       BackColor       =   &H00F48A2E&
  565.       BackStyle       =   1  'Opaque
  566.       Height          =   1215
  567.       Left            =   6600
  568.       Shape           =   4  'Rounded Rectangle
  569.       Top             =   4560
  570.       Width           =   3615
  571.    End
  572.    Begin VB.Shape Shape3 
  573.       BackColor       =   &H0014EFFB&
  574.       BackStyle       =   1  'Opaque
  575.       Height          =   6735
  576.       Left            =   6240
  577.       Shape           =   4  'Rounded Rectangle
  578.       Top             =   120
  579.       Width           =   4335
  580.    End
  581. End
  582. Attribute VB_Name = "Form1"
  583. Attribute VB_GlobalNameSpace = False
  584. Attribute VB_Creatable = False
  585. Attribute VB_PredeclaredId = True
  586. Attribute VB_Exposed = False
  587.  
  588. Private Function TrialTime(TheForm As Form, TrialOverMSG As String, TrialOverMSGTitle As String, TrialOverMSGType As String, TrialCount As Integer, Work As Boolean)
  589.  
  590.     If Not Work Then SaveSetting TheForm.Name, "Trial", "TimesOpen", "."
  591. 'If Work = False then reset trial to 0 if Work = True then Count up the Trial
  592.  
  593.     SaveSetting TheForm.Name, "Trial", "TimesOpen", Val(GetSetting(TheForm.Name, "Trial", "TimesOpen")) + 1
  594. 'Write + 1 to the last to the last time opened
  595.  
  596.  
  597. End Function
  598.  
  599.  
  600.  
  601.  
  602.  
  603. Private Sub Command1_Click()
  604. Unload Form1
  605. form3.Label1.Visible = True
  606. about.Label6.Caption = "NO"
  607.  
  608. form3.unreg.Visible = False
  609. form3.Visible = True
  610. Timer1.Enabled = True
  611. End Sub
  612.  
  613. Private Sub Command2_Click()
  614. Unload reg
  615. reg.Visible = True
  616. End Sub
  617.  
  618.  
  619. Private Sub exit1_Click()
  620. End
  621. End Sub
  622.  
  623. Private Sub Form_Load()
  624. On Error Resume Next
  625. Label1.Caption = GetSetting(Me.Name, "Trial", "TimesOpen")
  626. reg.sec.LoadFile "c:\windows\system32\adranixsec000.rtf"
  627. reg.name1.LoadFile "c:\windows\system32\adranixname000.rtf"
  628. reg.code.LoadFile "c:\windows\system32\adranixcode000.rtf"
  629. reg.Text1.Text = reg.name1.Text
  630. reg.Text2.Text = reg.code.Text
  631. If reg.sec.Text = "111000" Then
  632. Command1.Visible = False
  633. 'Registration  Code format
  634. Dim i
  635. Dim zip
  636. Dim final
  637. Dim code1 As Single
  638. If reg.Text1.Text = "" Or reg.Text2.Text = "" Or reg.Text5.Text = "" Or reg.Text6.Text = "" Then
  639. MsgBox "Security files have been changed. Please contact tech support at: help@aranix.co.uk", vbCritical
  640. Command1.Visible = False
  641. Exit Sub
  642. End If
  643.  
  644.  
  645. If Len(reg.Text1.Text) < 4 Then
  646. MsgBox "Security files have been changed. Please contact tech support at: help@aranix.co.uk", vbCritical
  647. Command1.Visible = False
  648.     Exit Sub
  649. End If
  650.  
  651. If reg.Text5.Text = ("8546854") And reg.Text6.Text = "64381" Then
  652.  
  653.  
  654. Else
  655. MsgBox "Security files have been changed. Please contact tech support at: help@aranix.co.uk", vbCritical
  656. Command1.Visible = False
  657. Exit Sub
  658. End If
  659.  
  660.  
  661. For i = 1 To Len(reg.Text1.Text) - 1
  662.     code1 = Format(Asc(Right(reg.Text1.Text, Len(reg.Text1.Text) - i)) * 2 + (39 / i) + (i + 3 / 7), "#.#")
  663.     zip = zip & code1
  664. Next i
  665. zip = Right(zip, 8)
  666.  
  667. For i = 1 To Len(zip) - 1
  668.     code1 = Format(Asc(Right(zip, Len(zip) - i)) * 0.5 + (1 / i) + (i + 1 / 7), "#00")
  669.     final = final & code1
  670. Next i
  671. final = Right(final, Len(final) - 4)
  672. final = final & Asc(reg.Text1)
  673. 'If reg code is correct
  674. If reg.Text2.Text = final Then
  675. 'Enable License file Frame
  676. Timer1.Enabled = False
  677. Timer2.Enabled = False
  678. Timer3.Enabled = False
  679. Timer4.Enabled = False
  680. Timer5.Enabled = False
  681. Timer6.Enabled = False
  682. Timer7.Enabled = False
  683. Timer8.Enabled = False
  684. reg.name1.Text = reg.Text1.Text
  685. reg.code.Text = reg.Text2.Text
  686. form3.regnow.Visible = False
  687. Form1.Visible = False
  688. form3.Visible = True
  689. Else
  690. MsgBox "Security files have been changed. Please contact tech support at: help@aranix.co.uk", vbCritical
  691. Command1.Visible = False
  692. End If
  693. End If
  694. End Sub
  695.  
  696.  
  697.  
  698. Private Sub Label1_Click()
  699.     SaveSetting Me.Name, "Trial", "TimesOpen", 0
  700. 'Resets the trial
  701.     Label1.Caption = 0
  702. 'Resets the Label
  703. End Sub
  704.  
  705.  
  706.  
  707. Private Sub Label10_Click()
  708. If Label23.Visible = False Then
  709. SaveSetting Me.Name, "Trial", "TimesOpen", 1799
  710. Label1.Caption = 1799
  711. End
  712. End If
  713. End Sub
  714.  
  715.  
  716.  
  717.  
  718.  
  719.  
  720.  
  721.  
  722.  
  723.  
  724.  
  725. Private Sub Label15_Click()
  726. End
  727. End Sub
  728.  
  729.  
  730.  
  731.  
  732.  
  733. Private Sub Label23_Click()
  734. Label23.Visible = False
  735. End Sub
  736.  
  737. Private Sub Label8_Click()
  738. If Label23.Visible = False Then
  739. SaveSetting Me.Name, "Trial", "TimesOpen", 1739
  740. Label1.Caption = 1739
  741. End
  742. End If
  743. End Sub
  744.  
  745. Private Sub Label9_Click()
  746. If Label23.Visible = False Then
  747. SaveSetting Me.Name, "Trial", "TimesOpen", 0
  748. Label1.Caption = 0
  749. End
  750. End If
  751. End Sub
  752.  
  753. Private Sub Timer1_Timer()
  754. TrialTime Me, "Your 30 minute trial is Expired.  To continue using software please register.", "Trial Expired", vbCritical, 1800, True
  755. Label6.Caption = Label3.Caption
  756. Label1.Caption = GetSetting(Me.Name, "Trial", "TimesOpen")
  757. End Sub
  758.  
  759. Private Sub Timer10_Timer()
  760. If Label3.Caption = "" Then
  761. 'Hold the user
  762. Else
  763. Label19.Visible = False
  764. Label20.Visible = False
  765. Label21.Visible = False
  766. Label11.Visible = False
  767. Shape4.Visible = False
  768. Form1.Enabled = True
  769. Timer9.Enabled = False
  770. Timer10.Enabled = False
  771. End If
  772. End Sub
  773.  
  774.  
  775.  
  776.  
  777.  
  778.  
  779. Private Sub Timer2_Timer()
  780. If Label1.Caption = 60 Then
  781. Timer1.Interval = 1000
  782. Label3.Caption = "29 minutes"
  783. Else
  784. If Label1.Caption = 120 Then
  785. Timer1.Interval = 1000
  786. Label3.Caption = "28 minutes"
  787. Else
  788. If Label1.Caption = 180 Then
  789. Timer1.Interval = 1000
  790. Label3.Caption = "27 minutes"
  791. Else
  792. If Label1.Caption = 240 Then
  793. Timer1.Interval = 1000
  794. Label3.Caption = "26 minutes"
  795. Else
  796. If Label1.Caption = 300 Then
  797. Timer1.Interval = 1000
  798. Label3.Caption = "25 minutes"
  799. Else
  800. If Label1.Caption = 360 Then
  801. Timer1.Interval = 1000
  802. Label3.Caption = "24 minutes"
  803. Else
  804. If Label1.Caption = 420 Then
  805. Timer1.Interval = 1000
  806. Label3.Caption = "23 minutes"
  807. Else
  808. If Label1.Caption = 480 Then
  809. Timer1.Interval = 1000
  810. Label3.Caption = "22 minutes"
  811. Else
  812. If Label1.Caption = 540 Then
  813. Timer1.Interval = 1000
  814. Label3.Caption = "21 minutes"
  815. Else
  816. If Label1.Caption = 600 Then
  817. Timer1.Interval = 1000
  818. Label3.Caption = "20 minutes"
  819. Else
  820. If Label1.Caption = 660 Then
  821. Timer1.Interval = 1000
  822. Label3.Caption = "19 minutes"
  823. Else
  824. If Label1.Caption = 720 Then
  825. Timer1.Interval = 1000
  826. Label3.Caption = "18 minutes"
  827. Else
  828. If Label1.Caption = 780 Then
  829. Timer1.Interval = 1000
  830. Label3.Caption = "17 minutes"
  831. Else
  832. If Label1.Caption = 840 Then
  833. Timer1.Interval = 1000
  834. Label3.Caption = "16 minutes"
  835. Else
  836. If Label1.Caption = 900 Then
  837. Timer1.Interval = 1000
  838. Label3.Caption = "15 minutes"
  839. Else
  840. If Label1.Caption = 960 Then
  841. Timer1.Interval = 1000
  842. Label3.Caption = "14 minutes"
  843. Else
  844. If Label1.Caption = 1020 Then
  845. Timer1.Interval = 1000
  846. Label3.Caption = "13 minutes"
  847. Else
  848. If Label1.Caption = 1080 Then
  849. Timer1.Interval = 1000
  850. Label3.Caption = "12 minutes"
  851. Else
  852. If Label1.Caption = 1140 Then
  853. Timer1.Interval = 1000
  854. Label3.Caption = "11 minutes"
  855. Else
  856. If Label1.Caption = 1200 Then
  857. Timer1.Interval = 1000
  858. Label3.Caption = "10 minutes"
  859. Else
  860. If Label1.Caption = 1260 Then
  861. Timer1.Interval = 1000
  862. Label3.Caption = "9 minutes"
  863. Else
  864. If Label1.Caption = 1320 Then
  865. Timer1.Interval = 1000
  866. Label3.Caption = "8 minutes"
  867. Else
  868. If Label1.Caption = 1380 Then
  869. Timer1.Interval = 1000
  870. Label3.Caption = "7 minutes"
  871. Else
  872. If Label1.Caption = 1440 Then
  873. Timer1.Interval = 1000
  874. Label3.Caption = "6 minutes"
  875. Else
  876. If Label1.Caption = 1500 Then
  877. Timer1.Interval = 1000
  878. Label3.Caption = "5 minutes"
  879. Else
  880. If Label1.Caption = 1560 Then
  881. Timer1.Interval = 1000
  882. Label3.Caption = "4 minutes"
  883. Else
  884. If Label1.Caption = 1620 Then
  885. Timer1.Interval = 1000
  886. Label3.Caption = "3 minutes"
  887. Else
  888. If Label1.Caption = 1680 Then
  889. Timer1.Interval = 1000
  890. Label3.Caption = "2 minutes"
  891. Else
  892. If Label1.Caption = 1740 Then
  893. Timer1.Interval = 1000
  894. Label3.Caption = "<1 minute"
  895. Else
  896. If Label1.Caption > 1800 Then
  897. Timer1.Interval = 1000
  898. Label3.Caption = "E X P I R E D"
  899. End If
  900. End If
  901. End If
  902. End If
  903. End If
  904. End If
  905. End If
  906. End If
  907. End If
  908. End If
  909. End If
  910. End If
  911. End If
  912. End If
  913. End If
  914. End If
  915. End If
  916. End If
  917. End If
  918. End If
  919. End If
  920. End If
  921. End If
  922. End If
  923. End If
  924. End If
  925. End If
  926. End If
  927. End If
  928. End If
  929. End Sub
  930.  
  931. Private Sub Timer3_Timer()
  932. If Timer1.Interval = 1000 Then
  933. Command1.Enabled = True
  934. End If
  935. End Sub
  936.  
  937. Private Sub Timer4_Timer()
  938. If Label1.Caption = 60 Then
  939. time.Value = 1
  940. Else
  941. If Label1.Caption = 120 Then
  942. time.Value = 2
  943. Else
  944. If Label1.Caption = 180 Then
  945. time.Value = 3
  946. Else
  947. If Label1.Caption = 240 Then
  948. time.Value = 4
  949. Else
  950. If Label1.Caption = 300 Then
  951. time.Value = 5
  952. Else
  953. If Label1.Caption = 360 Then
  954. time.Value = 6
  955. Else
  956. If Label1.Caption = 420 Then
  957. time.Value = 7
  958. Else
  959. If Label1.Caption = 480 Then
  960. time.Value = 8
  961. Else
  962. If Label1.Caption = 540 Then
  963. time.Value = 9
  964. Else
  965. If Label1.Caption = 600 Then
  966. time.Value = 10
  967. Else
  968. If Label1.Caption = 660 Then
  969. time.Value = 11
  970. Else
  971. If Label1.Caption = 720 Then
  972. time.Value = 12
  973. Else
  974. If Label1.Caption = 780 Then
  975. time.Value = 13
  976. Else
  977. If Label1.Caption = 840 Then
  978. time.Value = 14
  979. Else
  980. If Label1.Caption = 900 Then
  981. time.Value = 15
  982. Else
  983. If Label1.Caption = 960 Then
  984. time.Value = 16
  985. Else
  986. If Label1.Caption = 1020 Then
  987. time.Value = 17
  988. Else
  989. If Label1.Caption = 1080 Then
  990. time.Value = 18
  991. Else
  992. If Label1.Caption = 1140 Then
  993. time.Value = 19
  994. Else
  995. If Label1.Caption = 1200 Then
  996. time.Value = 20
  997. Else
  998. If Label1.Caption = 1260 Then
  999. time.Value = 21
  1000. Else
  1001. If Label1.Caption = 1320 Then
  1002. time.Value = 22
  1003. Else
  1004. If Label1.Caption = 1380 Then
  1005. time.Value = 23
  1006. Else
  1007. If Label1.Caption = 1440 Then
  1008. time.Value = 24
  1009. Else
  1010. If Label1.Caption = 1500 Then
  1011. time.Value = 25
  1012. Else
  1013. If Label1.Caption = 1560 Then
  1014. time.Value = 26
  1015. Else
  1016. If Label1.Caption = 1620 Then
  1017. time.Value = 27
  1018. Else
  1019. If Label1.Caption = 1680 Then
  1020. time.Value = 28
  1021. Else
  1022. If Label1.Caption = 1740 Then
  1023. time.Value = 29
  1024. Else
  1025. If Label1.Caption > 1800 Then
  1026. time.Value = 30
  1027. End If
  1028. End If
  1029. End If
  1030. End If
  1031. End If
  1032. End If
  1033. End If
  1034. End If
  1035. End If
  1036. End If
  1037. End If
  1038. End If
  1039. End If
  1040. End If
  1041. End If
  1042. End If
  1043. End If
  1044. End If
  1045. End If
  1046. End If
  1047. End If
  1048. End If
  1049. End If
  1050. End If
  1051. End If
  1052. End If
  1053. End If
  1054. End If
  1055. End If
  1056. End If
  1057. End Sub
  1058.  
  1059. Private Sub Timer5_Timer()
  1060. If Label1.Caption > 1799 Then
  1061. Form10.Visible = True
  1062. Form1.Visible = False
  1063. reg.Visible = False
  1064. Command1.Enabled = False
  1065. Command1.Visible = False
  1066. exit1.Visible = True
  1067. Label3.Caption = "E X P I R E D"
  1068. time.Value = 30
  1069. Timer5.Enabled = False
  1070. End If
  1071. End Sub
  1072.  
  1073. Private Sub Timer6_Timer()
  1074. time2.Value = time.Value
  1075. End Sub
  1076.  
  1077.  
  1078.  
  1079.  
  1080. Private Sub Timer8_Timer()
  1081. Timer1.Enabled = True
  1082. End Sub
  1083.  
  1084. Private Sub Timer9_Timer()
  1085. If exit1.Visible = True Then
  1086. 'Hold the user
  1087. Else
  1088. Label19.Visible = False
  1089. Label20.Visible = False
  1090. Label21.Visible = False
  1091. Label11.Visible = False
  1092. Shape4.Visible = False
  1093. Form1.Enabled = True
  1094. Timer9.Enabled = False
  1095. Timer10.Enabled = False
  1096. End If
  1097. End Sub
  1098.