757 lines
22 KiB
Plaintext
757 lines
22 KiB
Plaintext
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
|
|
|