模拟鼠标在别人程序里的某个 文本框里点击一下 模拟鼠标在别人程序里的某个 文本框里点击一下.假设我总是希望在别人程序列的(100,100)点处按下鼠标左键,,现在不知道怎么实现总是能得到 这个程序窗体的(100,100)位置? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果你懂Windows消息机制,那么这个问题应该没有问题。首先得到窗口句柄:FindWindow然后向该窗口发送单击左键消息:SendMessage(hwnd,WM_***,**,**)至于位置如何得到,你可以得到客房区的范围,窗口位置,那(100,100)那肯定是没有问题的,可以使用函数:GetWindowRect Dim Rec As RECT Dim i As Long i = FindWindow(vbNullString, "新建地标") 'Get Left, Right, Top and Bottom of Form1 GetWindowRect i, Rec 'Set Cursor position on X SetCursorPos Rec.Right - 15, Rec.Top + 15这样子就可以了谢谢 海 兄弟散粉 疑惑,下述代码是如何实现模拟下雪的? vsflexgrid控件的findrow方法请教? 一运行程序就提示[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并且未指定默 在由byte转为UTF-8的时候见鬼了,求救 請問各位高手:VB6.0中的WORD問題 请问通常要形成饼形图或柱形图用什么控件比较好 求救,关于紧急事件处理方面的问题 (急急急……) 为什么不能接受焦点了? 急:如何判断设计模式与运行模式的状态, 其怪问题,快帮帮我,,/////\\\\\ InternetConnect连接超时,程序不往下运行. 如何关ie弹出对话框
首先得到窗口句柄:FindWindow
然后向该窗口发送单击左键消息:SendMessage(hwnd,WM_***,**,**)至于位置如何得到,你可以得到客房区的范围,窗口位置,那(100,100)那肯定是没有问题的,可以使用函数:
GetWindowRect
Dim i As Long
i = FindWindow(vbNullString, "新建地标")
'Get Left, Right, Top and Bottom of Form1
GetWindowRect i, Rec
'Set Cursor position on X
SetCursorPos Rec.Right - 15, Rec.Top + 15这样子就可以了谢谢 海 兄弟散粉