VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form frmWebB 
   BackColor       =   &H00000000&
   ClientHeight    =   8595
   ClientLeft      =   255
   ClientTop       =   150
   ClientWidth     =   11415
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   8595
   ScaleWidth      =   11415
   WindowState     =   2  'Maximized
   Begin VB.Frame FraUnlock 
      BackColor       =   &H00000000&
      Caption         =   "Unlock Code:"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   735
      Left            =   3960
      TabIndex        =   12
      Top             =   2520
      Visible         =   0   'False
      Width           =   3735
      Begin VB.TextBox SmtSysManTech2 
         BeginProperty Font 
            Name            =   "Comic Sans MS"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   120
         PasswordChar    =   "*"
         TabIndex        =   14
         Top             =   240
         Width           =   2055
      End
      Begin VB.CommandButton CmdOK 
         BackColor       =   &H00000000&
         Caption         =   "OK"
         BeginProperty Font 
            Name            =   "Comic Sans MS"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2280
         MaskColor       =   &H00000000&
         TabIndex        =   13
         Top             =   240
         Width           =   1335
      End
   End
   Begin VB.Frame fraSetup 
      BackColor       =   &H00000000&
      Caption         =   "Setup"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   2535
      Left            =   3960
      TabIndex        =   3
      Top             =   2520
      Visible         =   0   'False
      Width           =   3735
      Begin VB.TextBox txtPassword2 
         Enabled         =   0   'False
         Height          =   285
         IMEMode         =   3  'DISABLE
         Left            =   1575
         PasswordChar    =   "*"
         TabIndex        =   8
         Top             =   1320
         Width           =   2055
      End
      Begin VB.TextBox txtOrig 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1575
         PasswordChar    =   "*"
         TabIndex        =   7
         Top             =   480
         Width           =   2085
      End
      Begin VB.CommandButton cmdsetupOK 
         Caption         =   "OK"
         Default         =   -1  'True
         Enabled         =   0   'False
         Height          =   390
         Left            =   480
         TabIndex        =   6
         Top             =   1920
         Width           =   1140
      End
      Begin VB.CommandButton cmdCancel 
         Cancel          =   -1  'True
         Caption         =   "Cancel"
         Height          =   390
         Left            =   2160
         TabIndex        =   5
         Top             =   1920
         Width           =   1140
      End
      Begin VB.TextBox txtPassword1 
         Enabled         =   0   'False
         Height          =   330
         IMEMode         =   3  'DISABLE
         Left            =   1560
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   840
         Width           =   2085
      End
      Begin VB.Label lblCon 
         BackColor       =   &H00000000&
         Caption         =   "&Confirm Password"
         Enabled         =   0   'False
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   135
         TabIndex        =   11
         Top             =   1320
         Width           =   1335
      End
      Begin VB.Label lblOrig 
         BackColor       =   &H00000000&
         Caption         =   "&Original Password"
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Index           =   0
         Left            =   120
         TabIndex        =   10
         Top             =   510
         Width           =   1320
      End
      Begin VB.Label lblPass 
         BackColor       =   &H00000000&
         Caption         =   "&New Password:"
         Enabled         =   0   'False
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Index           =   1
         Left            =   120
         TabIndex        =   9
         Top             =   900
         Width           =   1320
      End
   End
   Begin VB.PictureBox picAddress 
      Align           =   1  'Align Top
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   435
      Left            =   0
      ScaleHeight     =   435
      ScaleWidth      =   11415
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   0
      Width           =   11415
      Begin VB.ComboBox cboAddress 
         Height          =   315
         Left            =   120
         TabIndex        =   2
         Top             =   120
         Width           =   4515
      End
   End
   Begin VB.Timer timTimer 
      Enabled         =   0   'False
      Interval        =   5
      Left            =   5760
      Top             =   1440
   End
   Begin SHDocVwCtl.WebBrowser brwWebBrowser 
      Height          =   4350
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   5400
      ExtentX         =   9525
      ExtentY         =   7673
      ViewMode        =   1
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   0
      AutoArrange     =   -1  'True
      NoClientEdge    =   -1  'True
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   "http:///"
   End
   Begin VB.Frame fraAbout 
      BackColor       =   &H00000000&
      Caption         =   "About System Security 1.5"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   2655
      Left            =   4080
      TabIndex        =   15
      Top             =   2520
      Visible         =   0   'False
      Width           =   3495
      Begin VB.Label Label1 
         BackColor       =   &H00000000&
         Caption         =   "Author: Jeremy Anderson"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   840
         TabIndex        =   21
         Top             =   2040
         Width           =   1935
      End
      Begin VB.Label Label2 
         BackColor       =   &H00000000&
         Caption         =   "For Windows 95 - 98 - 98 SE && ME"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   480
         TabIndex        =   20
         Top             =   480
         Width           =   2535
      End
      Begin VB.Label Label3 
         BackColor       =   &H00000000&
         Caption         =   "Description: This program is basic security for any home computer system running the supported windows platforms above. "
         ForeColor       =   &H00FFFFFF&
         Height          =   615
         Left            =   240
         TabIndex        =   19
         Top             =   840
         Width           =   3015
      End
      Begin VB.Label Label4 
         BackColor       =   &H00000000&
         Caption         =   "NOTE: Will NOT work on windows 2000, NT, or XP."
         ForeColor       =   &H00FFFFFF&
         Height          =   375
         Left            =   240
         TabIndex        =   18
         Top             =   1560
         Width           =   3015
      End
      Begin VB.Label lblClose 
         BackColor       =   &H00000000&
         Caption         =   "Close"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   2880
         TabIndex        =   17
         Top             =   2280
         Width           =   495
      End
      Begin VB.Label Label5 
         BackColor       =   &H00000000&
         Caption         =   "Revision: 2"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   240
         TabIndex        =   16
         Top             =   2280
         Width           =   855
      End
   End
   Begin VB.Label lblDisp 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "Please enter your Unlock code."
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   735
      Left            =   0
      TabIndex        =   24
      Top             =   6840
      Visible         =   0   'False
      Width           =   11895
   End
   Begin VB.Label lblTitle1 
      BackColor       =   &H00000000&
      Caption         =   "System Security 1.5"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   3960
      TabIndex        =   23
      Top             =   0
      Visible         =   0   'False
      Width           =   3975
   End
   Begin VB.Label lblTitle2 
      BackColor       =   &H00000000&
      Caption         =   "Lock Out Screen "
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   4200
      TabIndex        =   22
      Top             =   600
      Visible         =   0   'False
      Width           =   3975
   End
   Begin ComctlLib.ImageList imlIcons 
      Left            =   5640
      Top             =   2040
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   24
      ImageHeight     =   24
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   6
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmBrowser.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmBrowser.frx":0692
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmBrowser.frx":0D24
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmBrowser.frx":13B6
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmBrowser.frx":1A48
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmBrowser.frx":20DA
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuBack 
      Caption         =   "&Back"
   End
   Begin VB.Menu mnuForward 
      Caption         =   "&Forward"
   End
   Begin VB.Menu mnuRefresh 
      Caption         =   "&Refresh"
   End
   Begin VB.Menu mnuStop 
      Caption         =   "&Stop"
   End
   Begin VB.Menu mnuHome 
      Caption         =   "&Home"
   End
   Begin VB.Menu mnuGeneral 
      Caption         =   "&General"
      Begin VB.Menu mnuSetup 
         Caption         =   "&Setup"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "&About"
      End
   End
   Begin VB.Menu mnuSearch 
      Caption         =   "&Search"
   End
   Begin VB.Menu mnuExit 
      Caption         =   "&Exit"
   End
End
Attribute VB_Name = "frmWebB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Add code so the whole form doesnt look like it moves when the
'menu apears at the top of the screen
'us if statements,.top,.height,and move all objects up the
'amount of space that the menu took up
Option Explicit
Public StartingAddress, origpass, inFile As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
mnuBack.Visible = False
mnuForward.Visible = False
mnuRefresh.Visible = False
mnuStop.Visible = False
mnuHome.Visible = False
mnuGeneral.Visible = False
mnuExit.Visible = False
mnuSearch.Visible = False
On Error GoTo ErrorCorrection
Open "C:\windows\system\smt.txt" For Input As #2
Input #2, SmtSysMan
Close #2
GoTo EndError:
ErrorCorrection:
FraUnlock.Visible = False
lblTitle1.Visible = False
lblTitle2.Visible = False
lblDisp.Visible = False
cmdCancel.Enabled = False
fraSetup.Visible = True
txtOrig.Enabled = False
lblOrig(0).Enabled = False
txtPassword1.Enabled = True
lblPass(1).Enabled = True
txtPassword2.Enabled = True
lblCon.Enabled = True
EndError:



'mnuGeneral.Visible = False
'CmdOK.Enabled = False
'   SmtSysManTech2.Enabled = True
'   SmtSysManTech2.Text = ""
'   FraUnlock.Enabled = True
'   lblDisp.Enabled = True
'   lblDisp.Caption = "Please Enter Your System Security Unlock Code"
'   CmdOK.Enabled = True
commons True
    On Error Resume Next
    Me.Show
    Form_Resize
    cboAddress.Move 50
    If Len(StartingAddress) > 0 Then
        cboAddress.Text = StartingAddress
        cboAddress.AddItem cboAddress.Text
        'try to navigate to the starting address
        timTimer.Enabled = True
        brwWebBrowser.Navigate StartingAddress
    End If
End Sub
Private Sub brwWebBrowser_DownloadComplete()
    On Error Resume Next
    End Sub
Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
    Dim i As Integer
    Dim bFound As Boolean
        For i = 0 To cboAddress.ListCount - 1
        If cboAddress.List(i) = brwWebBrowser.LocationURL Then
            bFound = True
            Exit For
        End If
    Next i
    mbDontNavigateNow = True
    If bFound Then
        cboAddress.RemoveItem i
    End If
    cboAddress.AddItem brwWebBrowser.LocationURL, 0
    cboAddress.ListIndex = 0
    mbDontNavigateNow = False
End Sub
Private Sub cboAddress_Click()
    If mbDontNavigateNow Then Exit Sub
    timTimer.Enabled = True
    brwWebBrowser.Navigate cboAddress.Text
End Sub
Private Sub cboAddress_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If KeyAscii = vbKeyReturn Then
        cboAddress_Click
    End If
End Sub
Private Sub Form_Resize()
   If frmWebB.WindowState = 1 Then GoTo new1
    cboAddress.Width = Me.ScaleWidth - 200
    brwWebBrowser.Left = 200
    brwWebBrowser.Width = Me.ScaleWidth - 400
    brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 200
new1:
End Sub
Private Sub mnuBack_Click()
  On Error Resume Next
  brwWebBrowser.GoBack
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuForward_Click()
  On Error Resume Next
 brwWebBrowser.GoForward
End Sub
Private Sub mnuHome_Click()
   brwWebBrowser.GoHome
End Sub
Private Sub mnuRefresh_Click()
If brwWebBrowser.Visible = False Then
brwWebBrowser.Visible = True
Else
brwWebBrowser.Refresh
End If
End Sub
Private Sub mnuSearch_Click()
brwWebBrowser.GoSearch
End Sub
Private Sub mnuStop_Click()
timTimer.Enabled = False
brwWebBrowser.Stop
End Sub
Private Sub picAddress_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not Y <= 10 Then
mnuBack.Visible = False
mnuForward.Visible = False
mnuRefresh.Visible = False
mnuStop.Visible = False
mnuHome.Visible = False
mnuGeneral.Visible = False
mnuExit.Visible = False
mnuSearch.Visible = False
Else
mnuBack.Visible = True
mnuForward.Visible = True
mnuRefresh.Visible = True
mnuStop.Visible = True
mnuHome.Visible = True
mnuGeneral.Visible = True
mnuExit.Visible = True
mnuSearch.Visible = True
End If
End Sub
Private Sub timTimer_Timer()
    If brwWebBrowser.Busy = False Then
        timTimer.Enabled = False
           Else
           End If
End Sub





















Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Y <= 3 Then
mnuGeneral.Visible = True
Else
mnuGeneral.Visible = False
End If
End Sub
Private Sub cmdOK_Click()
Dim X As Double
If SmtSysManTech2.Text = SmtSysMan Then
    CmdOK.Enabled = False
    SmtSysManTech2.Enabled = False
    FraUnlock.Enabled = False
    lblDisp.Enabled = True
    lblDisp.Caption = "Unlocked!"
    SMTech.Refresh
    Dim time As Double
beginn:
    time = time + 1
    If Val(time) = 20000 Then GoTo endd
    GoTo beginn
endd:
commons False
End
Else
Do Until X = 75000
DoEvents
lblDisp.Caption = "Invalid Unlock Code, Please GO AWAY!."
X = X + 1
Loop
SmtSysManTech2.Text = ""
SmtSysManTech2.SetFocus
lblDisp.Caption = "Please Enter Your System Security Unlock Code"
End If
End Sub
Private Sub fraAbout_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblClose.ForeColor = vbWhite
End Sub
Private Sub lblClose_Click()
fraAbout.Visible = False
fraSetup.Visible = False
lblTitle1.Visible = True
lblTitle2.Visible = True
lblDisp.Visible = True
FraUnlock.Visible = True
End Sub
Private Sub lblClose_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblClose.ForeColor = vbRed
End Sub
Private Sub mnuAbout_Click()
fraAbout.Visible = True
fraSetup.Visible = False
lblTitle1.Visible = False
lblTitle2.Visible = False
lblDisp.Visible = False
FraUnlock.Visible = False
lblClose.ForeColor = vbWhite
End Sub
Private Sub mnuSetup_Click()
FraUnlock.Visible = False
lblTitle1.Visible = False
lblTitle2.Visible = False
lblDisp.Visible = False
fraSetup.Visible = True
End Sub
Private Sub cmdCancel_Click()
fraSetup.Visible = False
FraUnlock.Visible = True
lblDisp.Visible = True
lblTitle1.Visible = True
lblTitle2.Visible = True

txtPassword1.Text = ""
txtPassword2.Text = ""
txtOrig.Text = ""
lblPass(1).Enabled = False
txtPassword1.Enabled = False
lblCon.Enabled = False
txtPassword2.Enabled = False
txtOrig.Enabled = True
lblOrig(0).Enabled = True
End Sub
Private Sub cmdsetupOK_Click()
cmdCancel.Enabled = True
If txtPassword1.Text = txtPassword2.Text Then
'
If txtOrig.Text = SmtSysMan Then
Open "C:\windows\system\smt.txt" For Output As #1
Print #1, txtPassword1.Text
Close #1
End If
'
    SmtSysMan = txtPassword1.Text
'
    txtPassword1.Text = ""
    txtPassword2.Text = ""
    txtOrig.Text = ""
lblPass(1).Enabled = False
txtPassword1.Enabled = False
lblCon.Enabled = False
txtPassword2.Enabled = False
txtOrig.Enabled = True
lblOrig(0).Enabled = True
'
Else:
    If txtPassword1.Text = "" Or txtPassword2.Text = "" Then
        MsgBox ("Please Confirm Your New Password")
        GoTo one:
    End If
     MsgBox "Please Confim you type everything correctly.":
one: End If:
FraUnlock.Visible = True
lblTitle1.Visible = True
lblTitle2.Visible = True
lblDisp.Visible = True
fraSetup.Visible = False
End Sub
Private Sub SmtSysManTech2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdOK_Click
End If
End Sub
Private Sub txtOrig_Change()
cmdCancel.Enabled = True
If txtOrig.Text = SmtSysMan Then
lblPass(1).Enabled = True
txtPassword1.Enabled = True
lblCon.Enabled = True
txtPassword2.Enabled = True
txtOrig.Enabled = False
lblOrig(0).Enabled = False
cmdsetupOK.Enabled = True
End If
End Sub
Private Sub txtPassword1_Change()
cmdsetupOK.Enabled = True
End Sub
Private Sub txtPassword2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdsetupOK_Click
End If
End Sub