- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关闭指定标签页 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83233)
-- 发布时间：2016/4/4 20:55:00
-- [求助]关闭指定标签页
showAppWindow方法可以关闭窗口。有什么方法可以关闭指定网址的标签页？
-- 发布时间：2016/4/5 0:18:00
--
没有办法。
已经叫你用这个方法啊。
Dim ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate("http://www.foxtable.com")
vars("ie1") = ie
-- 发布时间：2016/4/5 10:45:00
--
很难说清楚，终于有网络可以上了。上传个附件，狐友们指教
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:延时打开网页.rar |
-- 发布时间：2016/4/5 11:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:延时打开网页.foxdb |
-- 发布时间：2016/4/5 15:39:00
--
袍兄，实际验证情况如下：
static i As Integer = 1
static idx As Integer = 1
If i > 6 Then ‘加入的这段代码本来是希望如果打开的页面超过6个就自动关闭第一个，但实际上所有的网页都会打开不会关闭任何一个，如果网页多的话，CPU会迅速到100%，内存也会用光
If vars("ies").count > 0 Then
vars("ies")(0).Visible = False
vars("ies").RemoveAt(0)
End If
End If
i += 1
Dim t As Table = Tables("d")
If idx > t.count - 1 Then
idx = 0
e.Form.TimerEnabled = False ‘应当直接加上这一个，否则idx＝0以后，可能会继续循环执行下去’
Else
idx += 1
End If
‘以下这段代码应当放在上面的else后面，否则会报出idx为负数的错误’
Dim ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate(t.Rows(idx)("Link"))
vars("ies").add(ie)
[此贴子已经被作者于2016/4/5 15:40:44编辑过]
-- 发布时间：2016/4/5 16:03:00
--
1、加入msgbox测试是否执行了里面的代码；
If vars("ies").count > 0 Then
msgbox(1)
vars("ies")(0).Visible = False
vars("ies")(0) = Nothing
vars("ies").RemoveAt(0)
End
2、你想循环结束就暂停那就暂停呗；
3、你可以放进else里面。
-- 发布时间：2016/4/5 16:24:00
--
1、msgbox是执行了，但是测试了4轮。
1轮：除第8行的网页关闭，其它都全部显示直至结束
2轮：这次是第3行
3轮：这次是全部显示
4轮：这次是第9行
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:延时打开网页2.rar |
vars("ies")(0).Visible = False
vars("ies")(0) = Nothing
vars("ies").RemoveAt(0)
－－－－是不是这个方法对网页不起作用？
[此贴子已经被作者于2016/4/5 16:24:23编辑过]
-- 发布时间：2016/4/5 16:30:00
--
哦，写错了，这样
vars("ies")(0).Quit
vars("ies").RemoveAt(0)
http://blog.csdn.net/darkread/article/details/7241098
-- 发布时间：2016/4/5 16:40:00
--
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.3.27.1
错误所在事件：窗口,窗口1,TimerTick
详细错误信息：
未指定的错误 (异常来自 HRESULT:0x80004005 (E_FAIL))
-- 发布时间：2016/4/5 17:15:00
--
测试了一下，7楼、8楼的代码均没有问题。
请认真测试。