查看: 42  |  回复: 0
  VB6 利用API打开开始菜单
楼主
发表于 2024年10月22日 21:13

新建From1(窗体),代码:

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 Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Const mouse_eventC = &H2    '  Event contains mouse event record
Private Const MOUSE_MOVED = &H1
Private Const MOUSEEVENTF_ABSOLUTE = &H8000    '  absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2    '  left button down
Private Const MOUSEEVENTF_LEFTUP = &H4    '  left button up
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20    '  middle button down
Private Const MOUSEEVENTF_MIDDLEUP = &H40    '  middle button up
Private Const MOUSEEVENTF_MOVE = &H1    '  mouse move
Private Const MOUSEEVENTF_RIGHTDOWN = &H8    '  right button down
Private Const MOUSEEVENTF_RIGHTUP = &H10    '  right button up

Private Sub Form_Load()
    SetCursorPos 5, (Screen.Height / Screen.TwipsPerPixelY) - 8
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com