網上有很多關于pos機按鍵記錄,VB6.0 按鍵鼠標自動運行的知識，也有很多人為大家解答關于pos機按鍵記錄的問題，今天pos機之家(www.www690aa.com)為大家整理了關于這方面的知識，讓我們一起來看下吧!
本文目錄一覽：
1、pos機按鍵記錄
pos機按鍵記錄
Option ExplicitPrivate Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal y As Long) As LongPrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Type POINTAPIX As Longy As LongEnd TypePrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Const MOUSEEVENTF_LEFTDOWN = &H2Private Const MOUSEEVENTF_LEFTUP = &H4Private Const MOUSEEVENTF_MIDDLEDOWN = &H20Private Const MOUSEEVENTF_MIDDLEUP = &H40Private Const MOUSEEVENTF_MOVE = &H1Private Const MOUSEEVENTF_ABSOLUTE = &H8000Private Const MOUSEEVENTF_RIGHTDOWN = &H8Private Const MOUSEEVENTF_RIGHTUP = &H10
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long) As LongPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPrivate Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_ADD As Long = &H6B '加號鍵Private Const VK_APPS As Long = &H5D 'Applications 鍵（相當于鼠標右鍵）Private Const VK_BACK As Long = &H8 'BackSpace 鍵Private Const VK_CAPITAL As Long = &H14 'Caps Lock 鍵（大小寫轉換鍵）Private Const VK_CANCEL As Long = &H3 'Ctrl + Break 過程Private Const VK_CONTROL As Long = &H11Private Const VK_DECIMAL As Long = &H6E '小數點號鍵Private Const VK_DELETE As Long = &H2EPrivate Const VK_DIVIDE As Long = &H6F '除號鍵Private Const VK_DOWN As Long = &H28Private Const VK_END As Long = &H23Private Const VK_ESCAPE As Long = &H1BPrivate Const VK_F1 As Long = &H70Private Const VK_F10 As Long = &H79Private Const VK_F11 As Long = &H7APrivate Const VK_F12 As Long = &H7BPrivate Const VK_F2 As Long = &H71Private Const VK_F3 As Long = &H72Private Const VK_F4 As Long = &H73Private Const VK_F5 As Long = &H74Private Const VK_F6 As Long = &H75Private Const VK_F7 As Long = &H76Private Const VK_F8 As Long = &H77Private Const VK_F9 As Long = &H78Private Const VK_HOME As Long = &H24Private Const VK_INSERT As Long = &H2DPrivate Const VK_LCONTROL As Long = &HA2Private Const VK_LEFT As Long = &H25Private Const VK_LMENU As Long = &HA4 '左 Alt 鍵Private Const VK_LSHIFT As Long = &HA0Private Const VK_LWIN As Long = &H5BPrivate Const VK_MENU As Long = &H12 'Alt 鍵Private Const VK_MULTIPLY As Long = &H6A '乘號鍵Private Const VK_NEXT As Long = &H22 '下翻頁鍵Private Const VK_NUMLOCK As Long = &H90Private Const VK_NUMPAD0 As Long = &H60Private Const VK_NUMPAD1 As Long = &H61Private Const VK_NUMPAD2 As Long = &H62Private Const VK_NUMPAD3 As Long = &H63Private Const VK_NUMPAD4 As Long = &H64Private Const VK_NUMPAD5 As Long = &H65Private Const VK_NUMPAD6 As Long = &H66Private Const VK_NUMPAD7 As Long = &H67Private Const VK_NUMPAD8 As Long = &H68Private Const VK_NUMPAD9 As Long = &H69Private Const VK_PAUSE As Long = &H13Private Const VK_PRINT As Long = &H2APrivate Const VK_PRIOR As Long = &H21 '上翻頁鍵Private Const VK_RCONTROL As Long = &HA3Private Const VK_RETURN As Long = &HD '回車鍵Private Const VK_RIGHT As Long = &H27Private Const VK_RMENU As Long = &HA5 '右 Alt 鍵Private Const VK_RSHIFT As Long = &HA1Private Const VK_RWIN As Long = &H5CPrivate Const VK_SCROLL As Long = &H91 'Scroll Lock 鍵Private Const VK_SEPARATOR As Long = &H6C '小鍵盤上的回車鍵Private Const VK_SHIFT As Long = &H10Private Const VK_SLEEP As Long = &H5F '休眠鍵Private Const VK_SNAPSHOT As Long = &H2C 'Print Screen 鍵Private Const VK_SPACE As Long = &H20Private Const VK_SUBTRACT As Long = &H6D '減號鍵Private Const VK_TAB As Long = &H9Private Const VK_UP As Long = &H26Private Const VK_OEM_1 As Long = &HBA 'Windows 2000：對于 US 標準鍵盤，是“;:”鍵Private Const VK_OEM_2 As Long = &HBF 'Windows 2000：對于 US 標準鍵盤，是“/?”鍵Private Const VK_OEM_3 As Long = &HC0 'Windows 2000：對于 US 標準鍵盤，是“`~”鍵Private Const VK_OEM_4 As Long = &HDB 'Windows 2000：對于 US 標準鍵盤，是“[{”鍵Private Const VK_OEM_5 As Long = &HDC 'Windows 2000：對于 US 標準鍵盤，是“\\|”鍵Private Const VK_OEM_6 As Long = &HDD 'Windows 2000：對于 US 標準鍵盤，是“]}”鍵Private Const VK_OEM_7 As Long = &HDE 'Windows 2000：對于 US 標準鍵盤，是“單/雙引號”鍵Private Const VK_OEM_COMMA As Long = &HBC 'Windows 2000：對于任何國家/地區，是“,”鍵Private Const VK_OEM_MINUS As Long = &HBD 'Windows 2000：對于任何國家/地區，是“-”鍵Private Const VK_OEM_PERIOD As Long = &HBE 'Windows 2000：對于任何國家/地區，是“.”鍵Private Const VK_OEM_PLUS As Long = &HBB 'Windows 2000：對于任何國家/地區，是“+”鍵
Private Const KEYEVENTF_KEYUP = &H2
Dim AA As LongDim MouseCurpos As POINTAPI
Dim Pcolor As LongDim R As Long, G As Long, B As Long
Dim s As StringDim hwd As Long
Private Sub Command1_Click()SetCursorPos CLng(Text1.Text), CLng(Text2.Text)
End Sub
Private Sub Command2_Click()GetCursorPos MouseCurposText3.Text = "鼠標位置為: " + CStr(MouseCurpos.X) + "- -" + CStr(MouseCurpos.y)Timer2.Enabled = TrueEnd Sub
Private Sub Command3_Click()Sleep 500
SetCursorPos 292, 437mouse_event MOUSEEVENTF_LEFTDOWN, 292 * 65536 / 1920, 437 * 65536 / 1080, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 292 * 65536 / 1920, 437 * 65536 / 1080, 0, 0
Sleep 500
keybd_event Asc("V"), 0, 0, 0 '模擬回車Sleep 200keybd_event Asc("V"), 0, KEYEVENTF_KEYUP, 0 '撤消回車Sleep 300
keybd_event Asc("B"), 0, 0, 0 '模擬回車Sleep 200keybd_event Asc("B"), 0, KEYEVENTF_KEYUP, 0 '撤消回車Sleep 300
keybd_event Asc("F"), 0, 0, 0 '模擬回車Sleep 200keybd_event Asc("F"), 0, KEYEVENTF_KEYUP, 0 '撤消回車Sleep 300
keybd_event Asc("O"), 0, 0, 0 '模擬回車Sleep 200keybd_event Asc("O"), 0, KEYEVENTF_KEYUP, 0 '撤消回車Sleep 300
keybd_event Asc("R"), 0, 0, 0 '模擬回車Sleep 200keybd_event Asc("R"), 0, KEYEVENTF_KEYUP, 0 '撤消回車Sleep 300
keybd_event Asc("M"), 0, 0, 0 '模擬回車Sleep 200keybd_event Asc("M"), 0, KEYEVENTF_KEYUP, 0 '撤消回車Sleep 300
keybd_event Asc("8"), 0, 0, 0 '模擬回車Sleep 200keybd_event Asc("8"), 0, KEYEVENTF_KEYUP, 0 '撤消回車
' Sleep 1000'' keybd_event VK_F1, 0, 0, 0 '模擬回車' Sleep 500' keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0 '撤消回車'
End Sub
Private Sub Command4_Click()Sleep 500
SetCursorPos 291, 593
'1920 和1080 為自己電腦屏幕的最大像素
mouse_event MOUSEEVENTF_LEFTDOWN, 291 * 65536 / 1920, 593 * 65536 / 1080, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 291 * 65536 / 1920, 593 * 65536 / 1080, 0, 0
'Sleep 500
SetCursorPos 362, 593
'1920 和1080 為自己電腦屏幕的最大像素mouse_event MOUSEEVENTF_LEFTDOWN, 362 * 65536 / 1920, 593 * 65536 / 1080, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 362 * 65536 / 1920, 593 * 65536 / 1080, 0, 0''''Sleep 500
SetCursorPos 434, 593
'1920 和1080 為自己電腦屏幕的最大像素mouse_event MOUSEEVENTF_LEFTDOWN, 434 * 65536 / 1920, 593 * 65536 / 1080, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 434 * 65536 / 1920, 593 * 65536 / 1080, 0, 0
'Sleep 800
SetCursorPos 515, 593Sleep 500
'1920 和1080 為自己電腦屏幕的最大像素mouse_event MOUSEEVENTF_LEFTDOWN, 515 * 65536 / 1920, 593 * 65536 / 1080, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 515 * 65536 / 1920, 593 * 65536 / 1080, 0, 0
End Sub
Private Sub Timer2_Timer()Text3.Text = ""AA = GetDC(0)
Pcolor = GetPixel(AA, CStr(MouseCurpos.X), CStr(MouseCurpos.y))
R = Pcolor And &HFFG = (Pcolor And 65280) / 256B = (Pcolor And &HFF0000) / 65536
Text5.BackColor = Pcolor
GetCursorPos MouseCurpos
Text3.Text = "鼠標位置為: " + CStr(MouseCurpos.X) + "- -" + CStr(MouseCurpos.y) & " RGB=>" & R & " + " & G & " + " & B
End Sub
以上就是關于pos機按鍵記錄,VB6.0 按鍵鼠標自動運行的知識，后面我們會繼續為大家整理關于pos機按鍵記錄的知識，希望能夠幫助到大家！
