module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 13 行

Module Module1
    Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    '对API变量的定义
    Public Const MOUSEEVENTF_LEFTDOWN As Short = &H2S
    Public Const MOUSEEVENTF_LEFTUP As Short = &H4S
    Public Const MOUSEEVENTF_MIDDLEDOWN As Short = &H20S
    Public Const MOUSEEVENTF_MIDDLEUP As Short = &H40S
    Public Const MOUSEEVENTF_MOVE As Short = &H1S
    Public Const MOUSEEVENTF_ABSOLUTE As Short = &H8000S
    Public Const MOUSEEVENTF_RIGHTDOWN As Short = &H8S
    Public Const MOUSEEVENTF_RIGHTUP As Short = &H10S
End Module