用VB6的WebBrowser1开发了一个自动登录网站并自动定时刷新的工具

近来工作需要，经常性登录一些网站后台看数据，由于是付费的网站后台，所以登录好了以后每个一阵子还自动退出，必须再次登录，有时候工作一忙给忘记刷新了，那就需要不断登录，登录登到手软。于是想一想，干脆开发个软件算了，让它自动登录，自动刷新，不需要老是人工操作了。

想到这里就去干，由于CS端开发比较顺手的就是VB简单好入门，更主要是大学学的就是这个比较容易哈。

界面大概就是这样的，webBrower1控件，然后两个按钮，1个时钟，还弄了一个标签用来显示刷新了多少次，其它就没了。

代码的实现也比较简单，主要是本身这个网站登录框没有验证码，这一点节省了开发的时间成本。要不然，还要通过一些图片识别技术来获取验证码，太麻烦了。所以，这种自动登录网站后台代码的实现，最好不要有验证码之类的。

这种也简单，其实就通过元素ID获取到自动提交即可。实现的代码如下：

上图涉及到隐私部分，做了马赛克处理，已经删除了敏感信息，因为密码什么的都要写进去才可以实现自动登录。大家也可以自行尝试尝试。

最终的效果：

1、双击打开EXE文件，自动登录到后台；

2、每隔1分钟，自动刷新后台数据；

本代码不共享源码，如果有需要可以跟作者联系。

vb html ie弹出窗口,vb6.0 webbrowser控件做的浏览器,怎样解决ie打开新窗口问题

方法一：

Private Sub Command1_Click()

WebBrowser1.Navigate Text1.Text

点击Command1打开Text1的网址

End Sub

Private Sub Form_Resize()

If Me.WindowState <> 1 Then

WebBrowser1.Width = Me.ScaleWidth: WebBrowser1.Height =

Me.ScaleHeight - WebBrowser1.Top 让Webbrowser1适应窗口大小

End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As

Object, Cancel As Boolean)

If Option1.Value = True Then

如果单选框Option1(在当前窗口打开)

Set ppDisp = WebBrowser2.Application

WebBrowser2.ZOrder

在Webbrowser2中打开，请跳到WebBrowser2_BeforeNavigate2看

Else 如果选择了在新窗口中打开

Dim NewForm. As New Form1

NewForm.Show 弹出一个新的Form1窗口

Set ppDisp = NewForm.WebBrowser1.Application

NewForm.WebBrowser1.ZOrder

在新弹出的Form1窗口打开

End If

End Sub

Private Sub WebBrowser2_BeforeNavigate2(ByVal

pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName

As Variant, PostData As Variant, Headers As Variant, Cancel As

Boolean)

WebBrowser2.Stop Webbrowser2停止

WebBrowser1.Stop Webbrowser1停止

WebBrowser1.Navigate URL Webbrowser1打开网址

End Sub

方法二：

Private Sub WebBrowser1_NewWindow2(ppDisp As

Object, Cancel As Boolean)

Cancel = True

WebBrowser1.Navigate2

WebBrowser1.Document.activeElement.href

End Sub

方法三：

Dim WithEvents Web_V1 As

SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()

Set Web_V1 = WebBrowser1.Object

WebBrowser1.Navigate2 "www.sina.com"

End Sub

Private Sub Web_V1_NewWindow(ByVal URL As

String, _

ByVal Flags As Long, _

ByVal TargetFrameName As String, _

PostData As Variant, _

ByVal Headers As String, _

Processed As Boolean)

Processed = True

WebBrowser1.Navigate URL

End Sub

注意 这句Dim WithEvents Web_V1 As

SHDocVwCtl.WebBrowser_V1

放在通用代码里

自动登录的VB源码获取地址(未防止同行搬运，回复可见)：