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 / Form10.frm < prev    next >
Text File  |  2004-09-25  |  6KB  |  198 lines
  1. VERSION 5.00
  2. Begin VB.Form Form10 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Trial Expired"
  6.    ClientHeight    =   3360
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   7170
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form10"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3360
  15.    ScaleWidth      =   7170
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.CommandButton next 
  19.       Caption         =   "Next"
  20.       Default         =   -1  'True
  21.       Height          =   735
  22.       Left            =   5640
  23.       TabIndex        =   7
  24.       Top             =   2520
  25.       Width           =   1455
  26.    End
  27.    Begin VB.OptionButton Option4 
  28.       Appearance      =   0  'Flat
  29.       BackColor       =   &H80000005&
  30.       Caption         =   "Enter PUK Code"
  31.       Enabled         =   0   'False
  32.       BeginProperty Font 
  33.          Name            =   "Arial"
  34.          Size            =   9.75
  35.          Charset         =   0
  36.          Weight          =   700
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       ForeColor       =   &H80000008&
  42.       Height          =   255
  43.       Left            =   2520
  44.       TabIndex        =   6
  45.       Top             =   2160
  46.       Width           =   1815
  47.    End
  48.    Begin VB.OptionButton Option3 
  49.       Appearance      =   0  'Flat
  50.       BackColor       =   &H80000005&
  51.       Caption         =   "Close the software"
  52.       BeginProperty Font 
  53.          Name            =   "Arial"
  54.          Size            =   9.75
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H80000008&
  62.       Height          =   255
  63.       Left            =   2520
  64.       TabIndex        =   5
  65.       Top             =   2520
  66.       Width           =   2175
  67.    End
  68.    Begin VB.OptionButton Option2 
  69.       Appearance      =   0  'Flat
  70.       BackColor       =   &H80000005&
  71.       Caption         =   "Go to Main Start-UP Screen"
  72.       BeginProperty Font 
  73.          Name            =   "Arial"
  74.          Size            =   9.75
  75.          Charset         =   0
  76.          Weight          =   700
  77.          Underline       =   0   'False
  78.          Italic          =   0   'False
  79.          Strikethrough   =   0   'False
  80.       EndProperty
  81.       ForeColor       =   &H80000008&
  82.       Height          =   255
  83.       Left            =   2520
  84.       TabIndex        =   4
  85.       Top             =   1800
  86.       Width           =   3015
  87.    End
  88.    Begin VB.OptionButton Option1 
  89.       Appearance      =   0  'Flat
  90.       BackColor       =   &H80000005&
  91.       Caption         =   "Go to Registration page"
  92.       BeginProperty Font 
  93.          Name            =   "Arial"
  94.          Size            =   9.75
  95.          Charset         =   0
  96.          Weight          =   700
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       ForeColor       =   &H80000008&
  102.       Height          =   255
  103.       Left            =   2520
  104.       TabIndex        =   3
  105.       Top             =   1440
  106.       Value           =   -1  'True
  107.       Width           =   2655
  108.    End
  109.    Begin VB.PictureBox Picture1 
  110.       BackColor       =   &H00FFFFFF&
  111.       BorderStyle     =   0  'None
  112.       Height          =   3015
  113.       Left            =   120
  114.       Picture         =   "Form10.frx":0000
  115.       ScaleHeight     =   3015
  116.       ScaleWidth      =   2175
  117.       TabIndex        =   0
  118.       Top             =   120
  119.       Width           =   2175
  120.    End
  121.    Begin VB.Label Label2 
  122.       BackStyle       =   0  'Transparent
  123.       Caption         =   "Your 30 minute trial has Expired.  What whould you like to do now?"
  124.       BeginProperty Font 
  125.          Name            =   "Arial"
  126.          Size            =   12
  127.          Charset         =   0
  128.          Weight          =   400
  129.          Underline       =   0   'False
  130.          Italic          =   0   'False
  131.          Strikethrough   =   0   'False
  132.       EndProperty
  133.       Height          =   615
  134.       Left            =   2520
  135.       TabIndex        =   2
  136.       Top             =   720
  137.       Width           =   4455
  138.    End
  139.    Begin VB.Label Label1 
  140.       BackStyle       =   0  'Transparent
  141.       Caption         =   "Your trial is now Expired"
  142.       BeginProperty Font 
  143.          Name            =   "Arial"
  144.          Size            =   18
  145.          Charset         =   0
  146.          Weight          =   400
  147.          Underline       =   0   'False
  148.          Italic          =   0   'False
  149.          Strikethrough   =   0   'False
  150.       EndProperty
  151.       Height          =   375
  152.       Left            =   2520
  153.       TabIndex        =   1
  154.       Top             =   120
  155.       Width           =   3975
  156.    End
  157. End
  158. Attribute VB_Name = "Form10"
  159. Attribute VB_GlobalNameSpace = False
  160. Attribute VB_Creatable = False
  161. Attribute VB_PredeclaredId = True
  162. Attribute VB_Exposed = False
  163. Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long
  164.  
  165. Private Sub next_Click()
  166. If Option1.Value = True Then
  167. reg.labelpuk.Caption = GetSetting(Me.Name, "PUK", "TimesOpen")
  168. Dim PCName As String
  169. Dim P As Long
  170.  P = NameOfPC(PCName)
  171.  reg.Text1.Text = PCName
  172. Form10.Visible = False
  173. Form1.Visible = True
  174. reg.Visible = True
  175. End If
  176. If Option2.Value = True Then
  177. Form10.Visible = False
  178. Form1.Visible = True
  179. End If
  180. If Option3.Value = True Then
  181. Form10.Visible = False
  182. End
  183. End If
  184. If Option4.Value = True Then
  185. Form10.Visible = False
  186. Form8.Visible = True
  187. End If
  188. End Sub
  189.  
  190.  
  191. Public Function NameOfPC(MachineName As String) As Long
  192.     Dim NameSize As Long
  193.     Dim x As Long
  194.     MachineName = Space$(16)
  195.     NameSize = Len(MachineName)
  196.     x = GetComputerName(MachineName, NameSize)
  197. End Function
  198.