VB6.0关于WebBrowser的问题,问题解决追加100分

我用VB做了一个类似QQ迷你窗体的小程序,窗体中有个WebBrowser控件,用来获取我网站的内容。
我想实现的是:当这个小程序隐藏运行时(最小化到任务栏或最小化到托盘),如何使WebBrowser立即获取网页的更新,并及时弹出迷你窗体。
问题解决追加100分。
谢谢各位高手了!
ljl88900朋友理解错误了,我的意思不是说当点击最小化的时候去获取更新,而是在最小化状态下去获取更新,同样感谢您的回答!

要实现此功能,需要2个窗体(Form1为主窗体,Form2为迷你窗体),当Form1最小化到任务栏或最小化到托盘时,会立即调用Form2,并立即获取网页的更新,及时弹出迷你窗体:

Form1关键代码:
Private Sub Form_Resize()
If Me.WindowState = 1 Then
Form2.Show
End If
End Sub

Form2关键代码:
Private Sub Form_Load()
WebBrowser1.Name "www.xxx.com"
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-11-23
提供一个想法
网页中ajax 过几分钟查询一次,有新消息 open window 弹出小窗口(即迷你窗口)
窗体中的webbrowser 定期刷新一次,不让网页过期即可。
弹出窗口是web 不是winform 的话就可以了。

如果不用ajax 可以使用winform查询数据库 或者 服务器即时发送udp包。
udp 需要服务端和客户端,你的winform就是客户端。服务端是发包的
具体实现看自己喽
第2个回答  2009-12-06
对比WebBrowser的Doc对象不可以吗???

VB6.0关于WebBrowser的问题,问题解决追加100分
要实现此功能,需要2个窗体(Form1为主窗体,Form2为迷你窗体),当Form1最小化到任务栏或最小化到托盘时,会立即调用Form2,并立即获取网页的更新,及时弹出迷你窗体:Form1关键代码:Private Sub Form_Resize()If Me.WindowState = 1 Then Form2.Show End If End Sub Form2关键代码:Private Sub...

vb6.0中WebBrowser1控件的问题
首先建立一个新工程,在Form1中加入一个Webbrowser控件,然后在Form1中加入以下代码:Option Explicit Public Sub Some_Procedure()MsgBox "你点击了按钮."End Sub Private Sub Form_Load()'下载空页面 WebBrowser1.Navigate2 "about:blank"End Sub Private Sub WebBr...

VB6.0中使用webbrowser,如何隐藏滚动条?
不能在form_load中使用。在窗口完全引导之后,在WebBrowser1.Navigate 完成以后。然后用WebBrowser1.Document.body.Scroll = "no" 就可以了。从WebBrowser1.Document.body.Scroll = "no" 的结构你就能看出来,是对WebBrowser1的Document对象设置的scroll属性,在form_load中使用时,webbrowser1还没加载...

vb6.0的webbrowse的所有属性方法与事件
VB的工具箱窗口并没有WebBrowser控件,我们可以这样添加:右击工具箱窗口--->部件--->选上Microsoft Internet Controls--->确定 WebBrowser控件 shdocvw.dll 基本操作:Webbrowser用法:goforward 前进 goback 后退 gohome 回主页 navigate 浏览 stop 停止 gosearch 搜索 属性:LocationURL网页地址 Location...

求助:VB6.0利用WebBrowser获取动态图片遇到个问题,见内=>
Set range = WebBrowser1.Document.body.createControlRange()改成 Set range = WebBrowser1.Document.frames("checkcodeframe").Document.body.createControlRange()

VB6.0中使用webbrowser,如何隐藏滚动条?
不能在form_load中使用。在窗口完全引导之后,在WebBrowser1.Navigate 完成以后。然后用WebBrowser1.Document.body.Scroll = "no"就可以了。从WebBrowser1.Document.body.Scroll = "no"的结构你就能看出来,是对WebBrowser1的Document对象设置的scroll属性,在form_load中使用时,webbrowser1还没加载,在...

VB6.0网页点击
VB.net2017方法:WebBrowser1.Document.Body.All.GetElementsByName("0MKKey")(1).InvokeMember("Click")这里的1自己慢慢试,不能确定是什么 1如何尝试,列:第一次改成0然后执行程序,出错则就换成1,在出错就换成2,以此类推,出错就加1 以上是最直接的方法没有任何检查或者循环,本人完整解决...

vb6.0用Webbrowser制作了一个网页浏览器。在ie中淘宝网账号处于登陆状态...
淘宝是SESSION验证登录的,不支持COOKIE验证,COOKIE只是保存上次登录帐号,如果你要在自己的程序里共享登录状态,可以获取IE中的SESSIONID,然后让你的程序也使用此ID去访问淘宝就可以了。

VB6.0获取webbrowser控件网页的表格内容导入数据表中。
Option Explicit '需要添加一个webbrowser控件 和一个按钮 '引用两个库,在菜单的工程-引用里,找到Microsoft HTML object library和 Microsoft activex data object 2.5\/2.6两个库,然后粘贴如下代码 '不明白的百度HI我 Private Sub Command1_Click()WebBrowser1.Navigate "http:\/\/www.szse.cn\/main...

vb6.0中,如何依次点击webbrowser里网页的多个链接?
WebBrowser1.Navigate "你的网址"aa = 0 While aa = 0 DoEvents Wend Static ii Set vdoc = WebBrowser1.Document.frames(3).Document For i = ii To vdoc.All.length - 1 If vdoc.All(i).tagName = "A" Then vdoc.All(i).Click ii = i + 1 Exit For End If Next End Sub ...

相似回答