home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Protect_201762486262004.psc / Form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2004-06-27  |  7.2 KB  |  226 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BackColor       =   &H0000FFFF&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Protect 2004"
  6.    ClientHeight    =   2955
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   5955
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Moveable        =   0   'False
  15.    ScaleHeight     =   2955
  16.    ScaleWidth      =   5955
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Timer Timer2 
  20.       Enabled         =   0   'False
  21.       Interval        =   15000
  22.       Left            =   480
  23.       Top             =   0
  24.    End
  25.    Begin VB.CommandButton Command1 
  26.       Caption         =   "&Unlock"
  27.       Default         =   -1  'True
  28.       Height          =   375
  29.       Left            =   4680
  30.       TabIndex        =   4
  31.       Top             =   2520
  32.       Width           =   1095
  33.    End
  34.    Begin VB.Timer Timer1 
  35.       Interval        =   7000
  36.       Left            =   0
  37.       Top             =   0
  38.    End
  39.    Begin VB.Label Label6 
  40.       BackStyle       =   0  'Transparent
  41.       Caption         =   "UNREGISTERED"
  42.       BeginProperty Font 
  43.          Name            =   "MS Sans Serif"
  44.          Size            =   9.75
  45.          Charset         =   0
  46.          Weight          =   400
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       ForeColor       =   &H00FF0000&
  52.       Height          =   255
  53.       Left            =   2760
  54.       TabIndex        =   6
  55.       Top             =   2640
  56.       Width           =   1815
  57.    End
  58.    Begin VB.Label Label5 
  59.       BackStyle       =   0  'Transparent
  60.       Caption         =   "Protect 2004 is registered to:"
  61.       BeginProperty Font 
  62.          Name            =   "MS Sans Serif"
  63.          Size            =   9.75
  64.          Charset         =   0
  65.          Weight          =   400
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       ForeColor       =   &H00000000&
  71.       Height          =   255
  72.       Left            =   120
  73.       TabIndex        =   5
  74.       Top             =   2640
  75.       Width           =   2655
  76.    End
  77.    Begin VB.Line Line3 
  78.       BorderColor     =   &H000000FF&
  79.       X1              =   6000
  80.       X2              =   0
  81.       Y1              =   2400
  82.       Y2              =   2400
  83.    End
  84.    Begin VB.Label Label4 
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   "By Adam Ranshaw"
  87.       BeginProperty Font 
  88.          Name            =   "Arial"
  89.          Size            =   12.75
  90.          Charset         =   0
  91.          Weight          =   700
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       ForeColor       =   &H00000000&
  97.       Height          =   375
  98.       Left            =   3600
  99.       TabIndex        =   3
  100.       Top             =   2040
  101.       Width           =   2295
  102.    End
  103.    Begin VB.Label Label3 
  104.       BackStyle       =   0  'Transparent
  105.       Caption         =   "http://www.adranix.co.uk"
  106.       BeginProperty Font 
  107.          Name            =   "Arial"
  108.          Size            =   12.75
  109.          Charset         =   0
  110.          Weight          =   700
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       ForeColor       =   &H00000000&
  116.       Height          =   255
  117.       Left            =   120
  118.       TabIndex        =   2
  119.       Top             =   2040
  120.       Width           =   3015
  121.    End
  122.    Begin VB.Label Label2 
  123.       Alignment       =   2  'Center
  124.       BackStyle       =   0  'Transparent
  125.       Caption         =   $"Form3.frx":0000
  126.       BeginProperty Font 
  127.          Name            =   "Arial"
  128.          Size            =   12
  129.          Charset         =   0
  130.          Weight          =   400
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       ForeColor       =   &H00000000&
  136.       Height          =   1095
  137.       Left            =   120
  138.       TabIndex        =   1
  139.       Top             =   840
  140.       Width           =   5655
  141.    End
  142.    Begin VB.Line Line2 
  143.       BorderColor     =   &H000000FF&
  144.       X1              =   0
  145.       X2              =   6000
  146.       Y1              =   120
  147.       Y2              =   120
  148.    End
  149.    Begin VB.Line Line1 
  150.       BorderColor     =   &H000000FF&
  151.       X1              =   0
  152.       X2              =   6000
  153.       Y1              =   720
  154.       Y2              =   720
  155.    End
  156.    Begin VB.Label Label1 
  157.       Alignment       =   2  'Center
  158.       BackColor       =   &H000000FF&
  159.       BackStyle       =   0  'Transparent
  160.       Caption         =   "This computer is protected with Protect 2004"
  161.       BeginProperty Font 
  162.          Name            =   "Arial"
  163.          Size            =   14.25
  164.          Charset         =   0
  165.          Weight          =   400
  166.          Underline       =   0   'False
  167.          Italic          =   0   'False
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.       ForeColor       =   &H00000000&
  171.       Height          =   375
  172.       Left            =   120
  173.       TabIndex        =   0
  174.       Top             =   240
  175.       Width           =   5775
  176.    End
  177. Attribute VB_Name = "Form3"
  178. Attribute VB_GlobalNameSpace = False
  179. Attribute VB_Creatable = False
  180. Attribute VB_PredeclaredId = True
  181. Attribute VB_Exposed = False
  182. Private Sub Command1_Click()
  183. password.Visible = True
  184. End Sub
  185. Private Sub Command2_Click()
  186. End Sub
  187. Private Sub Form_Load()
  188. On Error Resume Next
  189. CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
  190. op.text1.LoadFile ("c:\windows\system32\regnamepro04.rtf")
  191. op.text2.LoadFile ("c:\windows\system32\regcodepro04.rtf")
  192. If op.text2.Text = "0040-0110" Then
  193. Label6.Caption = op.text1.Text
  194. op.text2.Enabled = False
  195. op.text2.Locked = True
  196. op.text2.Visible = False
  197. op.Command5.Enabled = False
  198. op.Command6.Enabled = True
  199. op.Label4.Visible = False
  200. op.Check1.Enabled = False
  201. op.Check3.Enabled = False
  202. op.Check5.Enabled = False
  203. op.Check7.Enabled = False
  204. op.Check9.Enabled = False
  205. op.Check11.Enabled = False
  206. op.Check13.Enabled = False
  207. op.Check15.Enabled = False
  208. op.Check17.Enabled = False
  209. op.Check19.Enabled = False
  210. op.Check24.Enabled = False
  211. op.Check27.Enabled = False
  212. op.Check25.Enabled = False
  213. op.Check21.Enabled = False
  214. op.text1.Locked = False
  215. password.demo.Visible = True
  216. password.exit.Enabled = True
  217. password.regnow.Enabled = True
  218. MsgBox "The free Demo version of Protect 2004 is being used, please upgrade to the full version which will allow you to use all the options and remove this message for good.  To buy now go to http://www.adranix.co.uk", vbExclamation
  219. End If
  220. End Sub
  221. Private Sub Timer1_Timer()
  222. Form3.Visible = False
  223. End Sub
  224. Private Sub Timer2_Timer()
  225. End Sub
  226.