动态加载和卸载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态加载和卸载

共有4403人关注过本帖树形打印复制链接主题：动态加载和卸载

qianqian1530

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00

动态加载和卸载 发帖心情

Post By：2014/4/21 11:24:00 [只看该作者]

想做一个动态加载网页并采集数据的软件

但是发现，动态加载 WebBrowser 后不能卸载，倒是预览100个左右的网页后开始很卡.. 有办法卸载后重新加载么？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/21 11:26:00 [只看该作者]

你说的是你往里面动态加入了100个webbrowser控件？

不是直接控制webbrowser所打开的地址就行了？

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/21 11:27:00 [只看该作者]

直接更改地址就可以了.创建那么多干嘛

如果确实需要动态创建,也是可以动态移除的啊.

参考这里http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=49594

qianqian1530

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00

Post By：2014/4/21 12:13:00 [只看该作者]

Dim i As Long

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

For i = 3123456789 To 3123456790

web.address="http://thira.plavox.info/transport/api/?t=sagawa&no=" & i

If web.ReadyState=System.Windows.Forms.WebBrowserReadyState.Complete'

e.Form.Controls("Label1").text= i

System.Threading.Thread.Sleep(5000)

End If

这句话要怎么改呢？

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/21 14:46:00 [只看该作者]

以下是引用qianqian1530在2014-4-21 12:13:00的发言：

Dim i As Long

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

For i = 3123456789 To 3123456790

web.address="http://thira.plavox.info/transport/api/?t=sagawa&no=" & i

If web.ReadyState=System.Windows.Forms.WebBrowserReadyState.Complete'

e.Form.Controls("Label1").text= i

System.Threading.Thread.Sleep(5000)

End If

这句话要怎么改呢？

说明意图，你说的卡，是指浏览网页卡，还是什么？

qianqian1530

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00

回复：（有点甜）以下是引用qianqian1530在2014-4-21 ... 发帖心情

Post By：2014/4/21 15:35:00 [只看该作者]

电脑卡... 运行半小时左右，内存就 80%了....继续运行的话怕电脑死机，所以没试过

Bin

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/21 15:36:00 [只看该作者]

Dim i As Long

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

For i = 3123456789 To 3123456790

web.address="http://thira.plavox.info/transport/api/?t=sagawa&no=" & i

If web.ReadyState=System.Windows.Forms.WebBrowserReadyState.Complete'

e.Form.Controls("Label1").text= i

System.Threading.Thread.Sleep(5000)

End If

如果是这段代码,不应该会这样.

qianqian1530

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00

Post By：2014/4/21 15:38:00 [只看该作者]

一会儿上例子.. 我现在改的，都不知道怎么整了...

qianqian1530

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00

Post By：2014/4/21 15:53:00 [只看该作者]

在窗口1 里

下载信息 [文件大小：下载次数： ]
点击浏览该文件:单号查询.zip

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/21 16:37:00 [只看该作者]

我用下面的代码测试了几次，没发现有什么问题。

Dim i As Long
Dim web As New System.Windows.Forms.WebBrowser
For i = 564410245050 To 564410245067 '564410245267
    e.Form.Controls("Label1").text= i
    web.Navigate("http://k2k.sagawa-exp.co.jp/p/web/okurijosearch.do?okurijtable")
        For Each elem As System.Windows.Forms.Htmlelement In elems
            If elem.GetAttribute("id") Like "_id46:tb1" Then
                Dim e_Info As System.Windows.Forms.HtmlElement = elem.GetElementsByTagName("tbody")(0)
                Dim e_Info1 As System.Windows.Forms.HtmlElement = e_Info.GetElementsByTagName("tr")(0).GetElementsByTagName("td")(2)
                If e_Info1.InnerText <>"お問い合わせNo.をお確かめ下さい." Then '判断货号存在的时候保存
                    Tables("表A").AddNew
                    Tables("表A").Current("第一列") = i
                    DataTables("表A").Save()
                End If
            End If

        Next
    End If
Next

[此贴子已经被作者于2014-4-21 16:36:54编辑过]

下一主题 >> << 上一主题

总数 16 1 2 下一页

主题：动态加载和卸载