vb鼠标点击窗口内某一固定坐标怎么做

[qq_35075199]

请问怎么后台自动点击Command1按钮呢？窗体最小化也能点击到，和前台的鼠标不影响！

不是用 call Command1_Click

求大神给下代码

[of123]

Option Explicit

Private Sub Command1_Click()
    Text1 = Val(Text1) + 1
End Sub

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Command1_Click
End Sub

[无·法]

private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
private Const BM_CLICK = &HF5

Private Sub Timer1_Timer()
    PostMessage  Command1.hwnd  , BM_CLICK, 0&, ByVal 0
End Sub

[赵4老师]

Command1_Click()

[qq_35075199]

赵老师，没有看到代码哦

[赵4老师]

引用 2 楼 qq_35075199 的回复:

赵老师，没有看到代码哦

在你需要模拟按下Command1按钮的地方插入一条语句：

Command1_Click()

[qq_35075199]

引用 2 楼 qq_35075199 的回复:

赵老师，没有看到代码哦

我是想使用timer来控制点击的，把窗体最小化后依然可以触发Command1

[vansoft]

在自己的程序里，就用TIMER控件，定时调用Command1_Click。 如果是二个不同的程序，需要枚举窗口，再枚举命令按钮，最后给他发送消息。

[嗷嗷叫的老马]

Private Function SendClick(hwnd As Long, mX As Long, mY As Long) 
     '发送点击消息 
    Dim I As Long 
      
    I = PostMessage(hwnd, WM_LBUTTONDOWN, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000) 
    I = PostMessage(hwnd, WM_LBUTTONUP, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000) 
End Function