skey.bas

来自「星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网」· BAS 代码 · 共 42 行

Attribute VB_Name = "Skey"

Option Explicit

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

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_MOVE = &H1 '  mouse move


Public Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down


Public Const MOUSEEVENTF_LEFTUP = &H4 '  left button up


Public Const MOUSEEVENTF_RIGHTDOWN = &H8 '  right button down


Public Const MOUSEEVENTF_RIGHTUP = &H10 '  right button up


Public Const KEYEVENTF_KEYUP = &H2

Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 '  middle button down

Public Const MOUSEEVENTF_MIDDLEUP = &H40 '  middle button up
Public Const WM_LBUTTONDBLCLK = &H203

Public Type POINTAPI
        x As Long
        y As Long
End Type
Public Const WM_CLOSE = &H10

Public Declare Function GetForegroundWindow Lib "user32" () As Long

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long