www.pudn.com > HEX2BIN_VB.zip > Module1.bas

Attribute VB_Name = "Module1" 
Public Declare Function GetSystemMetrics Lib "user32" _ 
               (ByVal nIndex As Long) As Long 
Public Const SM_CXFULLSCREEN = 16 
Public Const SM_CYFULLSCREEN = 17 
Public SCREENx, SCREENy As Long 
Public Const SM_CYSCREEN = 1 
Public Const SM_CXSCREEN = 0 
 
 
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long 
Public Declare Function PostMessage Lib "user32" Alias _ 
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ 
ByVal wParam As Long, lParam As Any) As Long 
 
Public Const WM_LBUTTONDOWN = &H201 
 
Public Const WM_LBUTTONUP = &H202 
 
Public Const WM_RBUTTONDBLCLK = &H206 
 
Public Const WM_RBUTTONDOWN = &H204 
 
Public Const WM_RBUTTONUP = &H205 
 
Public 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) 
 
Public Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move 
 
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down 
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up 
 
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down 
Public Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle button up 
 
Public Const MOUSEEVENTF_MOVE = &H1 ' mouse move 
 
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down 
Public Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up