587 lines
18 KiB
Plaintext
587 lines
18 KiB
Plaintext
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 = 3960
|
|
TabIndex = 6
|
|
Top = 2520
|
|
Visible = 0 'False
|
|
Width = 3735
|
|
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 = 480
|
|
TabIndex = 16
|
|
Top = 480
|
|
Width = 2775
|
|
End
|
|
Begin VB.Label Label1
|
|
Alignment = 2 'Center
|
|
BackColor = &H00000000&
|
|
Caption = "Author: Jeremy Anderson"
|
|
ForeColor = &H00FFFFFF&
|
|
Height = 255
|
|
Left = 360
|
|
TabIndex = 12
|
|
Top = 2760
|
|
Width = 2895
|
|
End
|
|
Begin VB.Label Label2
|
|
BackColor = &H00000000&
|
|
Caption = "For Windows 95 - 98 - 98 SE && ME"
|
|
ForeColor = &H00FFFFFF&
|
|
Height = 255
|
|
Left = 600
|
|
TabIndex = 11
|
|
Top = 960
|
|
Width = 2535
|
|
End
|
|
Begin VB.Label Label3
|
|
Alignment = 2 'Center
|
|
BackColor = &H00000000&
|
|
Caption = $"frmBrowserf.frx":0000
|
|
ForeColor = &H00FFFFFF&
|
|
Height = 855
|
|
Left = 360
|
|
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 = 360
|
|
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 = 2880
|
|
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 = 1095
|
|
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
|
|
'fix about to exit display problem
|
|
|
|
Option Explicit
|
|
Public StartingAddress As String
|
|
Dim mbDontNavigateNow As Boolean
|
|
Private Sub Form_Load()
|
|
BeforeError:
|
|
commons True
|
|
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
|
|
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
|
|
If Err.Number = 53 Then
|
|
'MsgBox "equals 53"
|
|
FileCopy "C:\Program Files\Internet Explorer\IEXPLORE.bak", "C:\Program Files\Internet Explorer\IEXPLORE.exe"
|
|
On Error GoTo error2
|
|
GoTo enderror2
|
|
error2:
|
|
MsgBox "error 2 " & Err.Description
|
|
enderror2:
|
|
Kill "C:\Program Files\Internet Explorer\IEXPLORE.bak"
|
|
On Error GoTo error3
|
|
GoTo enderror3
|
|
error3:
|
|
MsgBox "error 3 " & Err.Description
|
|
enderror3:
|
|
GoTo BeforeError
|
|
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
|
|
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
|
|
fraAbout.Visible = False
|
|
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()
|
|
If SmtSysManTech2.Text = "REDACTED" 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:
|
|
FileCopy "C:\Program Files\Internet Explorer\IEXPLORE.bak", "C:\Program Files\Internet Explorer\IEXPLORE.exe"
|
|
Kill "C:\Program Files\Internet Explorer\IEXPLORE.bak"
|
|
commons False
|
|
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 SmtSysManTech2_KeyPress(KeyAscii As Integer)
|
|
If KeyAscii = 13 Then
|
|
cmdOK_Click
|
|
End If
|
|
End Sub
|
|
|