Question

求用WinIo做的VB小程序(带源码)

条件很简单，每当Timer1到期驱动级模拟左键按下，上传在这里。

Answer 1

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
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 MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 '  left button up
Dim key1 As Integer
Dim key2 As Integer
Dim bolStage As Boolean
Dim lngTimer As Long
Private Sub Form_Load()
    Timer1.Interval = 10
    Timer1.Enabled = True
    'Me.Visible = False
    key1 = GetKeyState(vbKeyF11)
    key2 = GetKeyState(vbKeyF12)
    lngTimer = GetTickCount
End Sub

Private Sub Timer1_Timer()
    If GetKeyState(vbKeyF11) <> key1 Then key1 = GetKeyState(vbKeyF11): bolStage = True: Beep
    If GetKeyState(vbKeyF12) <> key2 Then key2 = GetKeyState(vbKeyF12): bolStage = False: Beep
    '按F11开启功能，按F12关闭功能，如果不需要这样，将上两行删除即可
    
    If bolStage And (GetTickCount - lngTimer) >= 1000 Then '此处的1000表示每一秒执行一次，如有改动修改此参数即可。
        lngTimer = GetTickCount
        'SetCursorPos 288, 718     '设置鼠标位置(1024X768)
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0    '单击时用左按键下or左按键上，双击时写两句
    End If
End Sub

在窗体添加一个Timer控件并将上述代码复制上就行了。

追问

这不是驱动级的吧

追答

否，用的是API

追问

不会用驱动级么？==很需要啊

追答

不会，难道这个不满足你的需要吗

追问

我只想学习，之前驱动级键盘已经成功了唯独鼠标一直失败

追答

我觉得API已经很接近硬件了吧

追问

这个我也不是很清楚耶

追答

你究竟想要什么结果？你这么关心过程干嘛？目的达到了不就行了么

追问

目的就是学习啊……因为驱动级的模拟是不会被检测的吧

追答

不会的。因为安全软件的存在意义就是防止程序假装操作员对计算机操作，否则也安全软件要之何用？

或者你发现了windows的新安全漏洞，你行么？

追问

所以API也不会被检测？

追答

否定，API也会被检测出来。

还记得360的隐私保护器么。

Answer 2

我到现在还不明白你所谓的驱动级.左键是鼠标左键吗?如果是,那在Timer事件中写鼠标单击出发事件就好了,何必搞得这么大费周章,还API的、驱动级的搞一大堆.
驱动鼠标事件是指要寻找是否有鼠标吗?或者是安装鼠标设备吗?又或者是.....

追问

到底谁在提问啊