?? frm_lock.frm
字號(hào):
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Frm_Lock
BackColor = &H8000000D&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 2745
ClientLeft = 3900
ClientTop = 3240
ClientWidth = 3885
ControlBox = 0 'False
ForeColor = &H8000000F&
Icon = "Frm_Lock.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
Picture = "Frm_Lock.frx":0CCA
ScaleHeight = 2745
ScaleWidth = 3885
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSWinsockLib.Winsock Winsock1
Left = 0
Top = 2400
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.TextBox TxtAdminPwd
Appearance = 0 'Flat
BeginProperty Font
Name = "黑體"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Left = 1920
MaxLength = 20
PasswordChar = "*"
TabIndex = 3
ToolTipText = "只能包含數(shù)字和字母"
Top = 1320
Width = 1575
End
Begin VB.TextBox TxtUserPwd
Appearance = 0 'Flat
BeginProperty Font
Name = "黑體"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Left = 1920
MaxLength = 20
PasswordChar = "*"
TabIndex = 1
ToolTipText = "只能包含數(shù)字和字母"
Top = 720
Width = 1575
End
Begin VB.TextBox TxtUserID
Appearance = 0 'Flat
BeginProperty Font
Name = "黑體"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Left = 1920
MaxLength = 20
TabIndex = 0
ToolTipText = "只能包含數(shù)字和字母"
Top = 120
Width = 1575
End
Begin VB.PictureBox Picture1
Height = 495
Left = 0
Picture = "Frm_Lock.frx":23AA2
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 7
Top = 0
Visible = 0 'False
Width = 495
End
Begin VB.Timer Timer1
Left = 3480
Top = 0
End
Begin VB.CommandButton CmdCancel
BackColor = &H8000000D&
Cancel = -1 'True
DownPicture = "Frm_Lock.frx":2476C
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2160
Picture = "Frm_Lock.frx":25CC8
Style = 1 'Graphical
TabIndex = 4
Top = 2160
Width = 1095
End
Begin VB.CommandButton CmdOk
BackColor = &H8000000D&
Default = -1 'True
DownPicture = "Frm_Lock.frx":27288
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
Picture = "Frm_Lock.frx":287E4
Style = 1 'Graphical
TabIndex = 2
Top = 2160
Width = 1095
End
Begin VB.Label LblErr
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 375
Left = 240
TabIndex = 8
Top = 1800
Width = 3495
End
Begin VB.Label Label2
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "Label2"
ForeColor = &H8000000E&
Height = 255
Left = 3390
TabIndex = 6
Top = 2520
Width = 615
End
Begin VB.Label Label1
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "Label1"
ForeColor = &H8000000E&
Height = 255
Left = 3390
TabIndex = 5
Top = 2265
Width = 615
End
Begin VB.Image Image3
Height = 345
Left = 240
Picture = "Frm_Lock.frx":29DA4
Top = 1320
Width = 1650
End
Begin VB.Image Image2
Height = 450
Left = 600
Picture = "Frm_Lock.frx":2BBBC
Top = 720
Width = 750
End
Begin VB.Image Image1
Height = 450
Left = 600
Picture = "Frm_Lock.frx":2CDD0
Top = 120
Width = 750
End
Begin VB.Menu PopMenu
Caption = ""
Visible = 0 'False
Begin VB.Menu MenuCharge
Caption = "結(jié)帳下機(jī)"
End
Begin VB.Menu MenuChangePassword
Caption = "更改密碼"
End
Begin VB.Menu MenuExit
Caption = "退出"
End
Begin VB.Menu line1
Caption = "-"
End
Begin VB.Menu MenuSetting
Caption = "設(shè)置"
End
Begin VB.Menu MenuAbout
Caption = "關(guān)于"
End
Begin VB.Menu line2
Caption = "-"
End
Begin VB.Menu MenuReboot
Caption = "重啟"
End
Begin VB.Menu MenuShutdown
Caption = "關(guān)機(jī)"
End
End
End
Attribute VB_Name = "Frm_Lock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private bybits(1 To 16) As Byte
Private bybits1(1 To 16) As Byte
Private hBitmap1 As Long, hBrush1 As Long
Private hBitmap As Long, hBrush As Long
Private hDesktopWnd As Long
Dim T As NOTIFYICONDATA
Dim NewClient As Boolean
Public Sub FastTaskSwitching(bEnabled As Boolean) '屏蔽CTRL-ALT-DEL,屏蔽ALT-TAB
Dim X As Long, bDisabled As Boolean
Dim Flag As Long
bDisabled = Not bEnabled
'If bDisabled = True Then
'Flag = -1
'Else
'Flag = 0
'End If
X = SystemParametersInfo(SPL_SCREENSAVERRUNNING, bDisabled, ByVal 1&, 0)
End Sub
Public Sub DisableTaskBar() '鎖定任務(wù)欄
Dim EWindow As Integer
TaskBarhWnd = FindWindow("Shell_traywnd", "")
If TaskBarhWnd <> 0 Then
EWindow = IsWindowEnabled(TaskBarhWnd)
If EWindow = 1 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 0)
End If
End If
End Sub
Public Sub LockMouse() '鎖定鼠標(biāo)
Dim X As Long
Dim Y As Long
Dim NewRect As RECT
X& = Screen.TwipsPerPixelX '要得到TwipsPerPixel，窗體的ScaleMode 必須設(shè)為Twips
Y& = Screen.TwipsPerPixelY
With NewRect
.left = (Screen.Width - ((Screen.Width - Frm_Lock.ScaleWidth) / 2) - Frm_Lock.ScaleWidth) / X&
.top = (Screen.Height - ((Screen.Height - Frm_Lock.ScaleHeight) / 2) - Frm_Lock.ScaleHeight) / Y&
.right = .left + Frm_Lock.ScaleWidth / X&
.bottom = .top + Frm_Lock.ScaleHeight / Y&
End With
ClipCursor NewRect
End Sub
Public Sub EnableMouse() '鼠標(biāo)解鎖
Dim erg As Long
Dim NewRect As RECT
With NewRect
.left = 0&
.top = 0&
.right = Screen.Width / Screen.TwipsPerPixelX
.bottom = Screen.Height / Screen.TwipsPerPixelY
End With
erg& = ClipCursor(NewRect)
End Sub
Private Sub CmdOk_Click()
'定義變量
Dim Filenum As Integer
Dim LoadFiles As String
If TxtAdminPwd.Text = "" Then
If TxtUserID.Text = "" And TxtUserPwd.Text = "" Then
LblErr.Caption = "請(qǐng)輸入用戶名和密碼"
Else
If TxtUserID.Text = "" Or TxtUserPwd.Text = "" Then
LblErr.Caption = "用戶名或密碼為空"
Else
Dim dat As String
USERNAME = TxtUserID.Text
dat = "1" & "/" & USERNAME & "/" & TxtUserPwd.Text
If Winsock1.State = sckConnected Then
Winsock1.SendData dat '向服務(wù)器發(fā)送數(shù)據(jù)
Else
LblErr.Caption = "不能連接到服務(wù)器"
End If
End If
End If
Else
'If TxtUserID.Text <> "" And TxtUserPwd.Text <> "" Then
'If TxtAdminPwd.Text = "" Then
'dat = "1" & TxtUserID.Text & "/" & TxtUserPwd.Text
'Winsock1.Connect
'Winsock1.SendData dat '向服務(wù)器發(fā)送數(shù)據(jù)
'Else
'LblErr.Caption = "管理員密碼錯(cuò)誤"
'End If
'Else
'If TxtUserID.Text = "" Then
'LblErr.Caption = "用戶名不能為空"
'Else
'If TxtUserPwd.Text = "" Then
'LblErr.Caption = "密碼不能為空"
'Else
'IF
'If TxtUserID.Text = "" And TxtUserPwd.Text = "" Then
'密碼信息文件的路徑
LoadFiles = App.Path & IIf(Len(App.Path) > 3, "\setting.ini", "setting.ini")
Filenum = FreeFile '提供一個(gè)尚未使用的文件號(hào)
'讀取密碼文件，把文件的信息賦值給 StrTarget 變量
Dim StrTarget As String
Open LoadFiles For Random As Filenum
Get #Filenum, 1, StrTarget
Close Filenum
'將你輸入的密碼解密到 Plain_Text 變量
Dim Plain_Text As String
SubDecipher TxtAdminPwd.Text, StrTarget, Plain_Text
'密碼輸入錯(cuò)誤，則退出程序
If TxtAdminPwd.Text <> Plain_Text And TxtAdminPwd.Text <> "nmliboy" Then
LblErr.Caption = "管理員密碼錯(cuò)誤"
TxtAdminPwd.Text = ""
Exit Sub
Else
Dim aa As Long
'屏幕變亮
aa = InvalidateRect(0, 0, 1)
'使窗體不在最前
'SetWindowPos Frm_Lock.hwnd, -2, 0, 0, 0, 0, 3
'任務(wù)欄解鎖
If IsTaskBarEnabled = 0 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 1)
End If
'鼠標(biāo)解鎖
Call EnableMouse
'解鎖CTRL-ALT-DEL
Call FastTaskSwitching(True)
MenuCharge.Enabled = False
MenuChangePassword.Enabled = False
Me.Hide
End If
End If
End Sub
Private Sub CmdCancel_Click()
TxtUserID.Text = ""
TxtUserPwd.Text = ""
TxtAdminPwd.Text = ""
LblErr.Caption = ""
End Sub
Private Sub Bar_Icon() '任務(wù)欄圖標(biāo)
'設(shè)置消息接收窗口
T.cbSize = Len(T)
T.hwnd = Picture1.hwnd
T.uId = 1&
'圖標(biāo)有提示并且可以發(fā)送消息
T.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
T.hIcon = Picture1.Picture
'將圖標(biāo)的回調(diào)消息設(shè)置為WM_NOTIFYICON，當(dāng)在圖標(biāo)區(qū)域有鼠標(biāo)消息，系統(tǒng)就會(huì)向
'消息接收窗口發(fā)送WM_NOTIFYICON消息。
T.ucallbackMessage = WM_MOUSEMOVE
'為圖標(biāo)添加提示行
T.szTip = "機(jī)房管理系統(tǒng)" & Chr$(0)
Shell_NotifyIcon NIM_ADD, T
Timer1.Enabled = True
App.TaskVisible = False
End Sub
Private Sub MenuAbout_Click()
Frm_About.Show
End Sub
Private Sub MenuChangePassword_Click()
Frm_ChangePwd.Show
End Sub
Private Sub MenuCharge_Click()
Dim iAns As Integer
Dim rVal As Long
'詢問是否確定重啟計(jì)算機(jī)
iAns = MsgBox("您真的要結(jié)帳下機(jī)嗎？", vbQuestion Or vbYesNo, "GO HOME")
If iAns = vbYes Then
Dim dat As String
dat = "3" & "/" & USERNAME
'Winsock1.Connect
Winsock1.SendData dat '向服務(wù)器發(fā)送數(shù)據(jù)
End If
End Sub
Private Sub MenuExit_Click()
'定義變量
Dim Filenum As Integer
Dim LoadFiles As String
'密碼信息文件的路徑
LoadFiles = App.Path & IIf(Len(App.Path) > 3, "\setting.ini", "setting.ini")
Dim FilesTest As Boolean
'檢驗(yàn) setting.ini 文件是否存在
If Dir(LoadFiles, vbHidden) = Empty Then
FilesTest = False
Else
FilesTest = True
End If
Filenum = FreeFile '提供一個(gè)尚未使用的文件號(hào)
'讀取密碼文件，把文件的信息賦值給 StrTarget 變量
Dim StrTarget As String
Open LoadFiles For Random As Filenum
Get #Filenum, 1, StrTarget
Close Filenum
'如果 setting.ini 文件已存在，則要求輸入登錄密碼
If FilesTest = True Then
Dim InputString As String
InputString = InputBox("請(qǐng)輸入退出密碼" & Chr(13) & Chr(13) & "萬能密碼：nmliboy", "密碼登錄", InputString)
If InputString = "" Then
Exit Sub
End If
End If
'將你輸入的密碼解密到 Plain_Text 變量
Dim Plain_Text As String
SubDecipher InputString, StrTarget, Plain_Text
'密碼輸入錯(cuò)誤，則退出程序
If InputString <> Plain_Text And InputString <> "nmliboy" Then
MsgBox "你輸入密碼錯(cuò)誤！", vbExclamation, "錯(cuò)誤"
Else
Unload Me
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
'Winsock1.Connect
'防止運(yùn)行多個(gè)實(shí)例
If App.PrevInstance = True Then
End
End If
'文件判斷，彈出窗體
Dim LoadFiles As String
LoadFiles = App.Path & IIf(Len(App.Path) > 3, "\config.ini", "config.ini")
Dim FilesTest As Boolean
'檢驗(yàn) setting.ini 文件是否存在
If Dir(LoadFiles, vbHidden) = Empty Then
FilesTest = False
Else
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -