2024年4月17日发(作者：)
VB自动登陆网络站点详解（二）：Inet控件与WebBrowser控件配合使用
2009-04-25 00:26
您正在看的VB教程是:VB自动登陆网络站点详解（二）：Inet控件与WebBrowser
控件配合使用。
URL
帐号
密码
其它参数
SOHU邮箱
/
UserName
Password
网易通行证
/
username
password
CSDN通行证
/member/
login_name
password
cookietime=0&
x=42&y=10
表格中的参数就是按照前面介绍的方法得到的，在程序中将要用到。
先说明一点， WebBrowser也是可以直接POST数据给Web服务器的，我将
在第四部分给出代码。这里先看看Inet与WebBrowser相互配合的效果。
新建一个工程，部件中勾选中“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()
= ""
= ""
rdChar = "*"
m "SOHU邮箱", 0
m "网易通行证", 1
m "CSDN通行证", 2
m "请选择一个登陆", 3
= (3)
URL1(0) = "/": URL2(0) =
"/control/entry"
URL1(1) = "/": URL2(1) =
"/?"
URL1(2) = "/member/": URL2(2) =
"/Member/"
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 State <> 1 Then
= 10
= - 120
= - 800
End If
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode <> 13 Then Exit Sub
If dex = 3 Then MsgBox "请选择一个登陆": Exit Sub
If = "" Then MsgBox "请输入用户名": Exit Sub
If = "" Then MsgBox "请输入密码": Exit Sub
Dim strFormData As String
strFormData = C1(dex) + "=" + + "&" +
C2(dex) + "=" + + "&" + C3(dex)
e URL1(dex), "Post", strFormData,
"Content-Type: application/x-www-form-urlencoded "
Do Until xecuting = False '这里阻塞前面的Inet1，
确保登陆成功之后再取页面，你可以将此Do取消了试一次。
DoEvents
Loop
If dex = 1 Then
te URL2(dex) +
C1(dex) + "=" +
Else
te URL2(dex)
End If
End Sub
大家可以挑选一个自己已经注册过的站点看看效果。
图文
可以看到，登陆成功之后， 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
erAsBrowser = True
Set ppDisp =
End Sub
然后在工程中添加一个Form2，上面再放一个WebBrowser1，调整好位置，
Form2的代码窗口添加上以下代码：
Private Sub Form_Load()
= True
End Sub
Private Sub Form_Resize()
If State <> 1 Then
= 10
= - 120
= - 600
End If
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As
Boolean)’这里为了避免在Form1中同样发生的事情。
Dim frm2 As New Form2
erAsBrowser = True
Set ppDisp =
End Sub
利用Inet发送登陆请求，WebBrowser浏览实际页面，的确是个很不错的构
思，在登陆站点相对教少的情况下应该是没有什么问题的。但是这也会使事情变
得更加复杂。除了不能缺少的POST地址（URL1）、帐号参数（C1）、密码参数
（C2）、其它参数（C3）之外，还必须要有供WebBrowser请求浏览的页面地址
参数（URL2）。 虽然只是多了一个参数，但却添加了很多麻烦（比如网易邮箱
的请求页面是根据用户的帐号名自动生成的，不固定）。只有利用WebBrowser
直接POST数据才能避免第四个参数。但是浏览器的界面以及功能却是一个比较
麻烦的问题（除非你不嫌麻烦，自己再动手写一个）。
发布评论