zjl2009 发表于 2009-9-26 10:55:26

例子

我在网上找到一段代码，但不能运行，各位高手帮我修改一下：
Sub CloseWeb()
   ' 此处可以用到描述性编程，把先期打开的IE窗口全关闭
Dim WinIe,Ie,i,m
Set winle=description.Create()
WinIe("regexpwndtitle").value="Microsoft Internet Explorer"'所有页面的regexpwndtitle属性值都是" Microsoft Internet Explorer"，也可以用其他属性
Set Ie=desktop.ChildObjects(WinIe)
m=Ie.count   
For i=1 to m
Ie(i-1).close               ' 0为最后打开的一个,可关闭打开的几个
Next
End Sub
Call CloseWeb()


提示错误：类型不匹配：'Winle'

JDT 发表于 2009-9-26 11:06:53

看不懂，是VB么？
description.Create()可以直接调用？

ermine 发表于 2009-9-26 11:15:22

第一次碰到这种问题。。。换个变量就行了。
你把所有的winle改为win1，就OK了，不晓得为什么。。感觉奇怪的

ermine 发表于 2009-9-26 11:16:30

不是在VBS里，是在QTP中

bluesky1986007 发表于 2009-9-26 12:14:02

是不是“Set winle=description.Create（）”中的winle的首字母没有大写？和你定义中的Winle不一样了

ermine 发表于 2009-9-26 13:15:44

不是的，VBS不区分大小写的。
Sub CloseWeb()
   ' 此处可以用到描述性编程，把先期打开的IE窗口全关闭
Dim Win1,Ie,i,m
Set win1=description.Create()
Win1("regexpwndtitle").value="Microsoft Internet Explorer"'所有页面的regexpwndtitle属性值都是" Microsoft Internet Explorer"，也可以用其他属性
Set Ie=desktop.ChildObjects(Win1)
m=Ie.count   
For i=1 to m
Ie(i-1).close               ' 0为最后打开的一个,可关闭打开的几个
Next
End Sub
Call CloseWeb()
就把winle换成win1，是可以的

zjl2009 发表于 2009-9-28 14:49:51

我按你的代码运行了一下，虽然运行可以，但是不能把原先打开的浏览器关掉，没实现它的功能。

prince198509 发表于 2009-11-30 16:45:03

回复 1# 的帖子

这段代码我也运行过，我也觉得他代码错了，怎么刚开始搞这么难的呀！WinIe啥意思
页: [1]
查看完整版本: 例子