Question

怎样用VB模拟鼠标点击某一exe的命令按钮?

Answer 1

exe的按钮有没有快捷键? 如果没有的话你可以用API函数sendmessage或postmessage 来模拟点击它,你可以参考下面代码

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Private Sub Command1_Click()
Print 1
End Sub

Private Sub Command2_Click()
PostMessage Command1.hwnd, WM_LBUTTONDOWN, 0, 0 '对按钮1按下鼠标左键
PostMessage Command1.hwnd, WM_LBUTTONUP, 0, 0 '放开鼠标左键
End Sub

Answer 2

模拟点击用 api 函数PostMessage 发送鼠标双击消息。
个人觉得你要允许某软件的话，直接用Shell比较好点。

追问

大侠，能提供更详细的步骤么？小白不懂。。。

追答

如果您要实现模拟点击参考h598937749的方法，如果你要单纯打开exe文件的话，可以参考Vb的Shell函数，比如：
Shell"calc.exe", vbNormalFocus'运行系统带的计算器
参考http://baike.baidu.com/view/4509355.htm

Answer 3

需要看到屏幕上鼠标指针移动效果么？？

追问

不需要，直接用来点击就行

追答

是点击外部加载的exe程序上的按钮，还是自己编的？

追问

外部的exe上的按钮，求详解

追答

那你参考下SetCursorPos 和mouse_event API函数，用前一个函数获取坐标，后面的模拟单击试试……