- 浏览: 11552 次
最新评论
VB自动登陆网络站点详解(二):Inet控件与WebBrowser控件配合使用
2010年01月21日
新建一个工程,部件中勾选中“Microsoft Internet Transfer Controls 6.0”、“Microsoft Internet Controls”,依次添加Inet1、WebBrowser1、Text1、Text2、Combo1在窗体上,可以把WebBrowser1适当拉大一点,将各控件位置安排好(可以参考运行后的图片),下面是代码:
Dim URL1(2) As String: Dim URL2(2) As String
Dim C1(2) As String: Dim C2(2) As String: Dim C3(2) As String
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.PasswordChar = "*"
Combo1.AddItem "SOHU邮箱", 0
Combo1.AddItem "网易通行证", 1
Combo1.AddItem "CSDN通行证", 2
Combo1.AddItem "请选择一个登陆", 3
Combo1.Text = Combo1.List(3)
URL1(0) = "http://login.sohu.com/chkpwd.php": URL2(0) = "http://www34.mail.sohu.com/control/entry"
URL1(1) = "http://reg4.163.com/CheckUser.jsp": URL2(1) = "http://reg4.163.com/Main.jsp?"
URL1(2) = "http://www.csdn.net/member/logon.asp": URL2(2) = "http://www.csdn.net/Member/Passport.asp"
C1(0) = "UserName": C2(0) = "Password": C3(0) = ""
C1(1) = "username": C2(1) = "password": C3(1) = ""
C1(2) = "login_name": C2(2) = "password": C3(2) = "cookietime=0&x=42&y=10"
End Sub
Private Sub Form_Resize()
If Me.WindowState 1 Then
WebBrowser1.Left = 10
WebBrowser1.Width = Me.Width - 120
WebBrowser1.Height = Me.Height - 800
End If
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode 13 Then Exit Sub
If Combo1.ListIndex = 3 Then MsgBox "请选择一个登陆": Exit Sub
If Text1.Text = "" Then MsgBox "请输入用户名": Exit Sub
If Text2.Text = "" Then MsgBox "请输入密码": Exit Sub
Dim strFormData As String
strFormData = C1(Combo1.ListIndex) + "=" + Text1.Text + "&" + C2(Combo1.ListIndex) + "=" + Text2.Text + "&" + C3(Combo1.ListIndex)
Inet1.Execute URL1(Combo1.ListIndex), "Post", strFormData, "Content-Type: application/x-www-form-urlencoded "
Do Until Inet1.StillExecuting = False '这里阻塞前面的Inet1,确保登陆成功之后再取页面,你可以将此Do取消了试一次。
DoEvents
Loop
If Combo1.ListIndex = 1 Then
WebBrowser1.Navigate URL2(Combo1.ListIndex) + C1(Combo1.ListIndex) + "=" + Text1.Text
Else
WebBrowser1.Navigate URL2(Combo1.ListIndex)
End If
End Sub
大家可以挑选一个自己已经注册过的站点看看效果。
[object]可以看到,登陆成功之后, Inet与WebBrowser是可以保持住同一个Session对话的!不过当我们在WebBrowser中显示出来的页面上点击了一个连接之后,请求却不能成功(请读者自己试一下,在登陆成功的站点中任意点击一个与用户相关的连接,弹出来的将是一个“你没有登陆”的页面)。为什么?
因为我们现在点击的连接还是使用IE(操作系统默认的浏览器)打开的,而IE请求页面的时候使用的是服务器新发送过来的Session,这个新的Session与你在WebBrowser中使用的Session也就是身份ID不一样,至少服务器是这么认为的,它以为是另一个没有登陆的用户。所以说Session的作用范围不是对整个客户机的,通过实际的代码可以很好的理解这一点。(可以利用这一点,使用代码在一台电脑上实现两个以上的用户同时登陆,甚至还能对同一主题进行无缝发言。)
所以接下来我们要使页面继续停在WebBrowser中显示。因为很显然,既然WebBrowser与Inet是可以保持住同一个Session对话的,那么WebBrowser与WebBrowser内部自然也是可以的!
要添加的代码很简单――
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm2 As New Form2
frm2.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frm2.WebBrowser1.Object
frm2.Show
End Sub
然后在工程中添加一个Form2,上面再放一个WebBrowser1,调整好位置,Form2的代码窗口添加上以下代码:
Private Sub Form_Load()
WebBrowser1.Silent = True
End Sub
Private Sub Form_Resize()
If Me.WindowState 1 Then
WebBrowser1.Left = 10
WebBrowser1.Width = Me.Width - 120
WebBrowser1.Height = Me.Height - 600
End If
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)’这里为了避免在Form1中同样发生的事情。
Dim frm2 As New Form2
frm2.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frm2.WebBrowser1.Object
frm2.Show
End Sub
利用Inet发送登陆请求,WebBrowser浏览实际页面,的确是个很不错的构思,在登陆站点相对教少的情况下应该是没有什么问题的。但是这也会使事情变得更加复杂。除了不能缺少的POST地址(URL1)、帐号参数(C1)、密码参数(C2)、其它参数(C3)之外,还必须要有供WebBrowser请求浏览的页面地址参数(URL2)。 虽然只是多了一个参数,但却添加了很多麻烦(比如网易邮箱的请求页面是根据用户的帐号名自动生成的,不固定)。只有利用WebBrowser直接POST数据才能避免第四个参数。但是浏览器的界面以及功能却是一个比较麻烦的问题(除非你不嫌麻烦,自己再动手写一个)。
发表评论
-
[热门][转载]2012年下考酡语一轮温习必建一Unit 2 English
2012-01-20 12:02 557[热门][转载]2012年下考酡语一轮温习必建一Unit 2 ... -
螺丝规格定义与认识
2012-01-20 12:02 531螺丝规格定义与认识 2010年01月28日 论坛首页 & ... -
安徽省皖中省级示范三校08-09学年高二下学期期中考试
2012-01-20 12:02 675安徽省皖中省级示范三 ... -
消息处理函数
2012-01-19 16:53 461消息处理函数 2010年07 ... -
调用API函数
2012-01-19 16:53 551调用API函数 2010年11月26 ... -
从VC6到VC9移植代码问题总结收藏
2012-01-19 16:52 402从VC6到VC9移植代码问题 ... -
窗口和消息
2012-01-19 16:52 411窗口和消息 2011年06月27 ... -
vs2008使用点滴
2012-01-19 16:52 1027vs2008使用点滴 2011年02 ... -
Linux cp命令详解
2012-01-17 06:35 545Linux cp命令详解 2012年01月06日 源:h ... -
最新高配电脑
2012-01-17 06:35 427最新高配电脑 2012年01月09日 电脑型号 技嘉 ... -
协议适配器错误的解决方法
2012-01-17 06:35 550协议适配器错误的解决方法 2011年12月16日 Cas ... -
my.ini(my.cnf)与mysql优化指南
2012-01-17 06:35 855my.ini(my.cnf)与mysql优化指南 2011年 ... -
VB的webbrowser点击网页上的按钮链接问题
2012-01-16 05:16 1284VB的webbrowser点击网页上的按钮链接问题 2010 ... -
关于升级了IE后 VB6.0中添加webBrowser控件的问题
2012-01-16 05:16 852关于升级了IE后 VB6.0中添加webBrowser控件的问 ... -
如何用vb获取指定网页的验证码啊?(可以用webbrowser)
2012-01-16 05:16 570如何用vb获取指定网页的验证码啊?(可以用webbrowser ... -
VB代码VB小程序: 捕获 WebBrowser控件的鼠标和键盘事件
2012-01-16 05:16 1095VB代码VB小程序: 捕获 Web ...
相关推荐
vb 开发的inet控件下载文件带进度条
VB中利用inet空间来连接http或者ftp
VB inet控件下载文件带进度条
vb l利用Inet 控件 post 数据包,实现部分功能 供新手 学习用,望高手 改进!!有意见加 QQ278698593探讨
不用outlook、Winsock、Inet控件发送电子邮件源码。
INET控件Document属性VB技术很实用的源码
收集整理的2个不用控件获得某网页源代码的vb源代码
inet控件中使用需要调用msinet.ocx 1、inet控件中openurl读出网页源码不完整的问题。这是因为msinet.ocx版本没有更新到最新,最新版本为6.1.97.82,约130K,大部分机器版本都是6.0.81.69,约112K。32位系统中将新版...
用VB的INET控件进行文件的自动上传下载服务.pdf
INET控件StillExecuting属性VB技术很实用的源码
INET控件ResponseInfo属性这个是在VBgood找到的源码,传到空间做个备份,
适合初学FTP人员学习。 可以作为参考资料使用。
INET控件Password属性VB技术很实用的源码
iFix中使用INET控件把文件传到远程rar,iFix中使用INET控件把文件传到远程
详细介绍了VB中使用WinSock控件编写网络程序,有使用TCP协议开发的客户端和服务器端例程。附件中有一篇WORD文档和两个调试通过的VB 工程文档。
VB控件属性大全【珍藏版】 1.01、窗体(FORM)的常用属性 2 1.02、标签控件(Lable)的常用属性 7 1.03、文本框控件(TextBox)的常用属性 9 1.04、框架控件(Frame)的常用属性 13 1.05、命令按钮控件(CommandButton)的...
Inet控件下载实例,批量下载大量网页,占用资源非常少!
INET控件Protocol属性本人精心收集的VB源码,绝对实用,有问题联系QQ:353502250
INET控件StillExecuting属性喜欢VB的朋友,相信它肯定可以提高编码的效率! 目录 译者序
用INET控件做的简单的百度注册