VBS窗口获取焦点,高手们请指教!

如下面代码,我在打开记事本之后(等待4000时)把光标移到其它窗口,然后让代码再把焦点选在记事本上并随便输入一些字符!DimWshShellSetWshShell=WSc... 如下面代码,我在打开记事本之后(等待4000时)把光标移到其它窗口,然后让代码再把焦点选在记事本上并随便输入一些字符!
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 4000 "!这时把光标移到另外一个窗口
WshShell.AppActivate "Untitled"
WScript.Sleep 500
WshShell.SendKeys"aadsfadfadbsvzxcv"
照这段代码执行,焦点选择不上记事本,望高手指教,谢谢!
展开
 我来答
sudoku52
推荐于2017-11-24 · TA获得超过7万个赞
知道大有可为答主
回答量:1.2万
采纳率:82%
帮助的人:4862万
展开全部
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 4000 "!这时把光标移到另外一个窗口
WshShell.AppActivate "无标题 - 记事本"
WScript.Sleep 500
WshShell.SendKeys"aadsfadfadbsvzxcv"
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
大神lei
2020-03-19
知道答主
回答量:1
采纳率:0%
帮助的人:634
展开全部
改成这样就可以了
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 4000
WshShell.AppActivate "无标题 - 记事本"
WScript.Sleep 500
WshShell.SendKeys"aadsfadfadbsvzxcv"
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式