如何发送一串“y”命令? 用findwindow找到命令按钮的窗口柄用findowindowex 找到命令按钮的句柄最后,用sendmessage向应用程序发送消息 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 还是sendkeys如果怕焦点出问题可以用api记录当前的窗口的句柄,然后反复激活 窗口句柄我已经找好了,我的问题是如何使用 sendkeys 送 “y” 命令 先用AppActivate激活程序,然后sendkeys SendKeys 语句示例本示例使用 Shell 函数来运行 Microsoft Windows 所附的计算器程序;然后使用 SendKeys 语句来按下计算器的某些数字键,最后退出计算器。(若要观察示例运行过程,可将示例粘贴到过程中,再运行过程即可。因为 AppActivate 会将焦点转移到计算器应用程序,故本示例不能以单步方式来运行。)。Dim ReturnValue, IReturnValue = Shell("Calc.EXE", 1) ' 运行计算器。AppActivate ReturnValue ' 激活计算器。For I = 1 To 100 ' 设置计数循环。 SendKeys I & "{+}", True ' 按下按键给计算器Next I ' 将所有 I 值相加。SendKeys "=", True ' 取得总合。SendKeys "%{F4}", True ' 按 ALT+F4 关闭计算器。 看完VB,我仍在谷底,有高手带我到山顶俯瞰下这VB山谷么?高手指教,低手帮顶 谢谢啊 帮我看看查询语句那里出错了 vb怎么调用dll最好有个示例谢谢! 一个关于C/S结构的数据同步问题 vb 能否实现两端对齐? 求篮球比赛显示屏开发经验及代码 我 运行程序就出现 不能发现我的D:\VB98\libary.mdb?? vb 备份sql2000 数据库 请问能不能用编程的方法设置environment.connection的连接的数据库? 怎样控制文字在页尾的位置? 关于用 DirectDraw 做游戏的问题!!高手来帮帮我!! 怎么向文件中写入特别按键?
如果怕焦点出问题
可以用api记录当前的窗口的句柄,然后反复激活
本示例使用 Shell 函数来运行 Microsoft Windows 所附的计算器程序;然后使用 SendKeys 语句来按下计算器的某些数字键,最后退出计算器。(若要观察示例运行过程,可将示例粘贴到过程中,再运行过程即可。因为 AppActivate 会将焦点转移到计算器应用程序,故本示例不能以单步方式来运行。)。Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE", 1) ' 运行计算器。
AppActivate ReturnValue ' 激活计算器。
For I = 1 To 100 ' 设置计数循环。
SendKeys I & "{+}", True ' 按下按键给计算器
Next I ' 将所有 I 值相加。
SendKeys "=", True ' 取得总合。
SendKeys "%{F4}", True ' 按 ALT+F4 关闭计算器。