VBS或批处理同时打开两个网站如何指定大小？

gx528

VBS或批处理同时打开两个网站如何指定大小？
用 VBS 或批处理同时打开两个网站 能能定大小
指定IE
我已经做到了 就是控制不了大小
高手们帮下
Set oShell = WScript.CreateObject ("WSCript.shell")

oShell.run("iexplore.exe http://baidu.com")
oShell.run("iexplore.exe http://zhidao.baidu.com")

在我的基础上 帮我做个能控制打开窗口大小
如果可以能做到一打开就两个窗口拼排 最好

gx528

高手们帮下啦 ,谢谢 !

broly

这样吗？

dim ie1,ie2,avW,avH
set ie1 = wscript.createobject("internetexplorer.application")
set ie2 = wscript.createobject("internetexplorer.application")
avW = createobject("htmlfile").parentWindow.screen.availWidth
avH = createobject("htmlfile").parentWindow.screen.availHeight
with ie1
.visible = true
.navigate("http://www.baidu.com")
.width = avw/2
.height = avh
.left = 0
.top = 0
end with
wscript.sleep 1000
with ie2
.visible = true
.navigate(http://zhidao.baidu.com)
.width = avw/2
.height = avh
.left = avw/2
.top = 0
end with
set ie1 = nothing
set ie2 = nothing
复制代码

gx528

原帖由 broly 于 2010-11-5 22:54 发表
这样吗？
dim ie1,ie2,avW,avH
set ie1 = wscript.createobject("internetexplorer.application")
set ie2 = wscript.createobject("internetexplorer.application")
avW = createobject("htmlfile").parentWind ...

运行不了啊朋友

wc726842270

学习了，原来WITH是这么用的啊，看来方便不少啊。不过.navigate(http://zhidao.baidu.com)
少了两个引号。呵呵