Question

VBS怎么让被激活的窗口得焦点(位于前台)

窗口被激活后只在下面闪烁，不在前台VBS无法发送按键。
Dim wsh,ie
Set wsh = CreateObject("wscript.shell")
Set ie = WScript.CreateObject("InternetExplorer.Application")
URL="http://192.168.1.33/web/"
WScript.Sleep 1000*5
ie.visible = True
ie.navigate URL
WScript.Sleep 1000*5
wsh.AppActivate "http://192.168.1.33/ - 物流工程系统 - Windows Internet Explorer" ' 引号中填浏览器最上面的标题
'激活指定标题的窗口，但只在任务栏闪烁，不是当前窗口，没有焦点。
wsh.SendKeys "+{TAB}" 'Shift+Tab组合，向前Tab，因为输密码处默认激活。
WScript.Sleep 1000*1
wsh.SendKeys "3342157015" '引号中填帐号
WScript.Sleep 1000*3
wsh.SendKeys "{TAB}"
WScript.Sleep 1000*3
wsh.SendKeys "19830821" '引号中填密码
WScript.Sleep 1000*1
wsh.SendKeys "{ENTER}"

Answer 1

wsh.AppActivate "http://192.168.1.33/ - 物流工程系统 - Windows Internet Explorer" ' 引号中填浏览器最上面的标题
'激活指定标题的窗口，但只在任务栏闪烁，不是当前窗口，没有焦点。
'在此次加上发送一个enter按键,就行了
wsh.SendKeys "{ENTER}"

Answer 2

激活窗口前加一句
.sendkeys "%{ESC}"