?? frmmain.frm
字號:
VERSION 5.00
Begin VB.Form frmMain
AutoRedraw = -1 'True
BorderStyle = 0 'None
ClientHeight = 6390
ClientLeft = 120
ClientTop = 120
ClientWidth = 7635
ControlBox = 0 'False
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6390
ScaleWidth = 7635
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.ListBox List1
Height = 960
Left = 600
TabIndex = 11
Top = 2640
Visible = 0 'False
Width = 1215
End
Begin VB.Timer Timer1
Interval = 100
Left = 2760
Top = 1800
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H8000000A&
BorderStyle = 0 'None
Height = 3870
Left = 120
Picture = "frmMain.frx":0442
ScaleHeight = 3870
ScaleWidth = 6270
TabIndex = 0
Top = 120
Width = 6270
Begin VB.Frame Frame1
BackColor = &H00C7D0D4&
Caption = "請輸入用戶名及密碼："
Height = 1095
Left = 3360
TabIndex = 5
Top = 2040
Visible = 0 'False
Width = 2655
Begin VB.TextBox Text2
Height = 270
IMEMode = 3 'DISABLE
Left = 960
PasswordChar = "*"
TabIndex = 9
Top = 720
Width = 1455
End
Begin VB.TextBox Text1
Height = 270
Left = 960
TabIndex = 7
Top = 360
Width = 1455
End
Begin VB.Label Label3
BackColor = &H00C8D0D4&
BackStyle = 0 'Transparent
Caption = "密碼："
Height = 255
Left = 240
TabIndex = 8
Top = 720
Width = 615
End
Begin VB.Label Label2
BackColor = &H00C8D0D4&
BackStyle = 0 'Transparent
Caption = "用戶名："
Height = 255
Left = 240
TabIndex = 6
Top = 360
Width = 855
End
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "frmMain.frx":4F654
Left = 1080
List = "frmMain.frx":4F667
Style = 2 'Dropdown List
TabIndex = 4
Top = 2040
Width = 2055
End
Begin VB.CommandButton Command2
BackColor = &H00C7D0D4&
Cancel = -1 'True
Caption = "取消"
Height = 375
Left = 4440
Style = 1 'Graphical
TabIndex = 2
Top = 3240
Width = 975
End
Begin VB.CommandButton Command1
BackColor = &H00C7D0D4&
Caption = "確定"
Default = -1 'True
Height = 375
Left = 3000
Style = 1 'Graphical
TabIndex = 1
Top = 3240
Width = 975
End
Begin VB.Label Label4
BackColor = &H00C8D0D4&
BackStyle = 0 'Transparent
Height = 735
Left = 1200
TabIndex = 10
Top = 2400
Width = 1935
End
Begin VB.Label Label1
BackColor = &H00C8D0D4&
BackStyle = 0 'Transparent
Caption = "當前計算機處于等待狀態，你想做什么？"
Height = 255
Left = 1080
TabIndex = 3
Top = 1680
Width = 4575
End
Begin VB.Image Image2
Height = 220
Left = 5950
Top = 80
Width = 255
End
Begin VB.Image Image1
Height = 975
Left = 360
Picture = "frmMain.frx":4F69B
Stretch = -1 'True
Top = 360
Width = 975
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cd105_Click()
On Error Resume Next
ShellExecute hwnd, "Open", "http://lihuasoft.yeah.net", "", SystemPath, 1
End Sub
Private Sub cd12_Click()
'選擇商品
On Error Resume Next
Winsock1.SendData "_gets" + Chr(0) + "good"
DoEvents
End Sub
Private Sub cd13_Click()
'查看上機時間
On Error Resume Next
Winsock1.SendData "_gets" + Chr(0) + "time"
DoEvents
End Sub
Private Sub cd14_Click()
'查看儲金卡
On Error Resume Next
frmGetCard.Show 0
End Sub
Private Sub cd15_Click()
'進入聊天室
On Error Resume Next
frmCharUser.Show
End Sub
Private Sub cdPause_Click()
On Error Resume Next
ShowFrmMain
End Sub
Private Sub cdQuickHTTP_Click(Index As Integer)
'快速
'MsgBox QuickHttp(Index).Host
On Error Resume Next
ShellExecute hwnd, "Open", QuickHttp(Index).Host, "", SystemPath, 1
End Sub
Public Sub Combo1_Click()
'發生改變事件
On Error Resume Next
Select Case Combo1.Text
Case "開始記費"
Frame1.Visible = False
Label4 = "通知主機并開始記費"
Combo1.Width = 4110
Label4.Width = 3870
Case "結帳"
Combo1.Width = 2055
Label4.Width = 1935
Frame1.ToolTipText = "在此輸入儲金卡帳號即可用儲金卡結帳"
Label4 = "停止記費并要求結帳，在右邊的對話框中輸入儲金卡帳號即可用儲金卡結帳"
Frame1.Visible = True
Case "關機"
Combo1.Width = 2055
Label4.Width = 1935
Frame1.ToolTipText = "在此輸入管理員用戶名及密碼才能進行關機"
Label4 = "關閉計算機，在右邊的對話框中輸入管理員用戶名及密碼才能關機"
Frame1.Visible = True
Case "重新啟動"
Combo1.Width = 4110
Label4.Width = 3870
Frame1.Visible = False
Label4 = "重新啟動計算機，但不停止記費"
Case "系統設置"
Combo1.Width = 2055
Label4.Width = 1935
Frame1.ToolTipText = "在此輸入管理員用戶名及密碼才能進行系統設置"
Label4 = "在右邊的對話框中輸入管理員用戶名及密碼才能進行系統設置"
Frame1.Visible = True
Case "退出記費器"
Combo1.Width = 2055
Label4.Width = 1935
Frame1.ToolTipText = "在此輸入管理員用戶名及密碼才能退出計費器"
Label4 = "在右邊的對話框中輸入管理員用戶名及密碼才能退出計費器"
Frame1.Visible = True
End Select
End Sub
Private Sub Command1_Click()
On Error Resume Next
Select Case Combo1.Text
Case "開始記費"
frmButton.Winsock1.SendData "_comm" + Chr(0) + "start"
DoEvents
Case "結帳"
frmButton.Winsock1.SendData "_vali" + Chr(0) + Text1.Text + Chr(0) + Text2.Text + Chr(0) + "cardend"
DoEvents
Case "關機"
frmButton.Winsock1.SendData "_vali" + Chr(0) + Text1.Text + Chr(0) + Text2.Text + Chr(0) + "shutdown"
DoEvents
Case "重新啟動"
frmButton.Winsock1.Close
Reset
Case "退出記費器"
frmButton.Winsock1.SendData "_vali" + Chr(0) + Text1.Text + Chr(0) + Text2.Text + Chr(0) + "close"
DoEvents
Case "系統設置"
If frmButton.Winsock1.State = 7 Then
frmButton.Winsock1.SendData "_vali" + Chr(0) + Text1.Text + Chr(0) + Text2.Text + Chr(0) + "setup"
DoEvents
Else
If Text2.Text = GetSetting("網吧記費器", "Set", "password", "") Then
frmSetup.Show vbModal, Me
End If
End If
End Select
Text1.Text = ""
Text2.Text = ""
Combo1_Click
Unload Me
End Sub
Private Sub Command2_Click()
On Error Resume Next
'If NowJF Then
frmButton.tmrKey = True
Unload Me
frmLabel.Flash
frmButton.Flash
'End If
End Sub
Private Sub Form_Load()
On Error Resume Next
'初始化
'顯示拖盤
frmButton.tmrKey = False
'
NoDelFormatComm = Val(GetSetting("網吧記費器", "Set", "NoDelFormatComm", "0"))
' SysComputerNum = Val(GetSetting("網吧記費器", "Set", "SysComputerNum", "0"))
'
Winsock1.Close
Combo1.Text = Combo1.List(0)
LoadScreen
End Sub
Private Sub Form_Resize()
On Error Resume Next
Picture1.Left = (Me.Width - Picture1.Width) / 2
Picture1.Top = (Me.Height - Picture1.Height) / 2 - 800
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmButton.tmrKey = True
Dim pOld As Boolean
If NowJF = True Then
SystemParametersInfoByRef 97, False, pOld, 0
End If
End Sub
Private Sub Image2_Click()
On Error Resume Next
Command2_Click
End Sub
Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Button = 1 Then Image2.BorderStyle = 1
End Sub
Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Image2.BorderStyle = 0
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
'尋找有破壞性的程序并關閉
List1.Clear
EnumWindows AddressOf EnumWindowsProc, 0&
End Sub
Public Sub LoadScreen()
On Error Resume Next
Dim hdc As Long, sx As Integer, sy As Integer
Dim hOldPattern As Long, bBmp(0 To 15) As Byte
Dim hBitmap As Long, hPattern As Long, hDCScreen As Long
Dim pOld As Boolean
SystemParametersInfoByRef 97, True, pOld, 0
sx = Screen.Width \ Screen.TwipsPerPixelX
sy = Screen.Height \ Screen.TwipsPerPixelY
hdc = GetDC(0)
'抓圖
BitBlt Me.hdc, 0, 0, sx, sy, hdc, 0, 0, vbSrcCopy
ReleaseDC 0, hdc
bBmp(0) = &H55: bBmp(2) = &HAA: bBmp(4) = &H55: bBmp(6) = &HAA
bBmp(8) = &H55: bBmp(10) = &HAA: bBmp(12) = &H55: bBmp(14) = &HAA
'使屏幕變暗
For TmpLoop = -639 To 799 Step 2
Me.Line (TmpLoop * 15, 0)-((TmpLoop + 639) * 15, 639 * 15)
Me.Line ((TmpLoop + 640) * 15, 1)-(TmpLoop * 15, 640 * 15)
Next TmpLoop
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -