| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp) -- 高级功能研发区 (http://www.weistock.com/bbs/list.asp?boardid=5) ---- Win7 64位系统，查找窗口并发送F1键，不好使，请帮忙！ (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=159663) |
| -- 作者：msedu -- 发布时间：2017/11/20 11:31:36 -- Win7 64位系统，查找窗口并发送F1键，不好使，请帮忙！ Win7 64位系统，查找窗口并发送F1键，不好使，请帮忙！ 以下内容为程序代码: 1 sub findwin() 2 VK_F1=&H112 3 Set Wrap = CreateObject("DynamicWrapperX") 4 Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l" 5 WindowHandle = Wrap.FindWindow("#32770", "交易窗口") 6 If WindowHandle＜＞0 then 7 MsgBox "找到了" 8 Wrap.Register "USER32.DLL", "keybd_event", "i=ccll", "f=s" 9 REM Wrap.keybd_event VK_F1, 0, 0, 0 10 REM Wrap.keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0 11 else 12 MsgBox “找不到" 13 end if 14 end sub [此贴子已经被作者于2017/11/20 11:33:29编辑过]
|