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

Question

请问怎么后台自动点击Command1按钮呢？窗体最小化也能点击到，和前台的鼠标不影响！不是用 call Command1_Click求大神给下代码

Answer 1

Command1_Click()

Answer 2

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

Answer 3

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

Answer 4

Option ExplicitPrivate Sub Command1_Click()
    Text1 = Val(Text1) + 1
End SubPrivate Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    Command1_Click
End Sub

Answer 5

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 = &HF5Private Sub Timer1_Timer()
    PostMessage  Command1.hwnd  , BM_CLICK, 0&, ByVal 0
End Sub

Answer 6

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

Answer 7

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