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

2022-04-26  栏目:网络技术   投稿:VB程序员

摘要:用VB6的WebBrowser1开发了一个自动登录网站并自动定时刷新的工具,解决复杂繁琐操作,让一切自动化的代码……

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

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

image.png

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

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

image.png


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

image.png

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

最终的效果:

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

2、每隔1分钟,自动刷新后台数据;

image.png

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

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源码获取地址(未防止同行搬运,回复可见):



文章分享二维码:


友情提示:该文章仅代表编辑本人,不代表八羊公司。下载资源若失效请联系微信haracle解决。