VERSION 5.00
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 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          =   3495
      Left            =   4080
      TabIndex        =   6
      Top             =   2520
      Visible         =   0   'False
      Width           =   3495
      Begin VB.Label Label6 
         BackColor       =   &H00000000&
         Caption         =   "Web Browser Version 1.5"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   360
         TabIndex        =   16
         Top             =   480
         Width           =   2775
      End
      Begin VB.Label Label1 
         BackColor       =   &H00000000&
         Caption         =   "Author: Jeremy Anderson"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   840
         TabIndex        =   12
         Top             =   2760
         Width           =   1935
      End
      Begin VB.Label Label2 
         BackColor       =   &H00000000&
         Caption         =   "For Windows 95 - 98 - 98 SE && ME"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   480
         TabIndex        =   11
         Top             =   960
         Width           =   2535
      End
      Begin VB.Label Label3 
         BackColor       =   &H00000000&
         Caption         =   $"frmBrowser.frx":0000
         ForeColor       =   &H00FFFFFF&
         Height          =   855
         Left            =   240
         TabIndex        =   10
         Top             =   1320
         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        =   9
         Top             =   2280
         Width           =   3015
      End
      Begin VB.Label lblClose 
         BackColor       =   &H00000000&
         Caption         =   "Close"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   375
         Left            =   2640
         TabIndex        =   8
         Top             =   3000
         Width           =   735
      End
      Begin VB.Label Label5 
         BackColor       =   &H00000000&
         Caption         =   "Revision: 1"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   3120
         Width           =   855
      End
   End
   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        =   3
      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        =   5
         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        =   4
         Top             =   240
         Width           =   1335
      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.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.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        =   14
      Top             =   600
      Visible         =   0   'False
      Width           =   3975
   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        =   15
      Top             =   6840
      Visible         =   0   'False
      Width           =   11895
   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        =   13
      Top             =   1320
      Visible         =   0   'False
      Width           =   3975
   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         =   "S&top"
   End
   Begin VB.Menu mnuHome 
      Caption         =   "&Home"
   End
   Begin VB.Menu mnuSearch 
      Caption         =   "&Search"
   End
   Begin VB.Menu mnuPrintPage 
      Caption         =   "&Print WebPage"
   End
   Begin VB.Menu mnuGeneral 
      Caption         =   "&General"
      Begin VB.Menu mnuAbout 
         Caption         =   "&About"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "&Exit"
      End
   End
End
Attribute VB_Name = "frmWebB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
On Error GoTo myer
FileCopy "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "C:\Program Files\Internet Explorer\IEXPLORE.bak"
Kill "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
mnuBack.Visible = False
mnuForward.Visible = False
mnuRefresh.Visible = False
mnuPrintPage.Visible = False
mnuStop.Visible = False
mnuHome.Visible = False
mnuGeneral.Visible = False
mnuExit.Visible = False
mnuSearch.Visible = False
SmtSysMan = "REDACTED"
commons True
On Error Resume Next
    Me.Show
    Form_Resize
    cboAddress.Move 50
    cboAddress.Text = "www.msn.com"
    cboAddress.AddItem cboAddress.Text
    timTimer.Enabled = True
    brwWebBrowser.Navigate "www.msn.com"
Exit Sub
myer:
MsgBox "error is " & Err.Description
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
If brwWebBrowser.Visible = False Then
brwWebBrowser.Visible = True
lblTitle1.Visible = False
lblTitle2.Visible = False
cboAddress.Visible = True
lblDisp.Visible = False
FraUnlock.Visible = False
brwWebBrowser.GoBack
Else
brwWebBrowser.GoBack
End If
End Sub
Private Sub mnuExit_Click()
FraUnlock.Visible = True
lblTitle1.Visible = True
lblTitle2.Visible = True
lblDisp.Visible = True
brwWebBrowser.Visible = False
cboAddress.Visible = False
End Sub
Private Sub mnuForward_Click()
On Error Resume Next
If brwWebBrowser.Visible = False Then
brwWebBrowser.Visible = True
lblTitle1.Visible = False
lblTitle2.Visible = False
cboAddress.Visible = True
lblDisp.Visible = False
FraUnlock.Visible = False
brwWebBrowser.GoForward
Else
brwWebBrowser.GoForward
End If
End Sub
Private Sub mnuHome_Click()
If brwWebBrowser.Visible = False Then
brwWebBrowser.Visible = True
lblTitle1.Visible = False
lblTitle2.Visible = False
cboAddress.Visible = True
lblDisp.Visible = False
FraUnlock.Visible = False
brwWebBrowser.GoHome
Else
brwWebBrowser.GoHome
End If
End Sub

Private Sub mnuPrintPage_Click()
MsgBox " To print right click on the webpage its self, go down the list and click print."
End Sub
Private Sub mnuRefresh_Click()
If brwWebBrowser.Visible = False Then
brwWebBrowser.Visible = True
lblTitle1.Visible = False
lblTitle2.Visible = False
cboAddress.Visible = True
lblDisp.Visible = False
FraUnlock.Visible = False
brwWebBrowser.Refresh
Else
brwWebBrowser.Refresh
End If
End Sub
Private Sub mnuSearch_Click()
If brwWebBrowser.Visible = False Then
brwWebBrowser.Visible = True
lblTitle1.Visible = False
lblTitle2.Visible = False
cboAddress.Visible = True
lblDisp.Visible = False
FraUnlock.Visible = False
brwWebBrowser.GoSearch
Else
brwWebBrowser.GoSearch
End If
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
mnuPrintPage.Visible = False
mnuSearch.Visible = False
Else
mnuBack.Visible = True
mnuPrintPage.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 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!"
    frmWebB.Refresh
    Dim time As Double
beginn:
    time = time + 1
    If Val(time) = 20000 Then GoTo endd
    GoTo beginn
endd:
commons False
FileCopy "C:\Program Files\Internet Explorer\IEXPLORE.bak", "C:\Program Files\Internet Explorer\IEXPLORE.exe"
Kill "C:\Program Files\Internet Explorer\IEXPLORE.bak"
End
Else
FraUnlock.Visible = False
lblTitle1.Visible = False
lblTitle2.Visible = False
lblDisp.Visible = False
brwWebBrowser.Visible = True
cboAddress.Visible = True
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
lblTitle1.Visible = False
lblTitle2.Visible = False
lblDisp.Visible = False
FraUnlock.Visible = False
brwWebBrowser.Visible = True
cboAddress.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
cboAddress.Visible = True
lblTitle1.Visible = False
lblTitle2.Visible = False
lblDisp.Visible = False
FraUnlock.Visible = False
brwWebBrowser.Visible = False
cboAddress.Visible = False
lblClose.ForeColor = vbWhite
End Sub
Private Sub mnuSetup_Click()
FraUnlock.Visible = False
lblTitle1.Visible = False
lblTitle2.Visible = False
lblDisp.Visible = False
End Sub
Private Sub SmtSysManTech2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdOK_Click
End If
End Sub