VB自动登陆网络站点详解(二)：Inet控件与WebBrow

1、VB自动登陆网络站点详解（二）：Inet控件与WebBrowser控件配合使用2009-04-25 00:26您正在看的VB教程是:VB自动登陆网络站点详解（二）：Inet控件与WebBrowser控件配合使用。 URL帐号密码其它参数SOHU邮箱UserNamePassword网易通行证usernamepasswordCSDN通行证login_namepasswordcookietime=0&x=42&y=10表格中的参数就是按照前面介绍的方法得到的，在程序中将要用到。先说明一点， WebBrowser也是可以直接POST数据给Web服务器的，我将在第四部分给出代码。这里先看

2、看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 Stri

3、ng: Dim C2(2 As String: Dim C3(2 As StringPrivate Sub Form_Load(       Text1.Text = ""    Text2.Text = ""    Text2.PasswordChar = "*"   Combo1.AddItem "SOHU邮箱", 0    Combo1.Ad

4、dItem "网易通行证", 1    Combo1.AddItem "CSDN通行证", 2Combo1.AddItem "请选择一个登陆", 3     Combo1.Text = Combo1.List(3    URL1(0 = " URL2(0 = "    URL1(1 = " URL2(1 = "    URL1(2 = "

5、 URL2(2 = "    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 = "

6、cookietime=0&x=42&y=10"End SubPrivate Sub Form_Resize(If Me.WindowState <> 1 Then    WebBrowser1.Left = 10    WebBrowser1.Width = Me.Width - 120    WebBrowser1.Height = Me.Height - 800End IfEnd SubPrivate Sub Text2_KeyUp(KeyCode As Inte

7、ger, 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

8、 MsgBox "请输入密码": Exit SubDim strFormData As String     strFormData = C1(Combo1.ListIndex + "=" + Text1.Text + "&" + C2(Combo1.ListIndex + "=" + Text2.Text + "&" + C3(Combo1.ListIndex    Inet1.Execute URL1(Combo1.

9、ListIndex, "Post", strFormData, "Content-Type: application/x-www-form-urlencoded "    Do Until Inet1.StillExecuting = False '这里阻塞前面的Inet1，确保登陆成功之后再取页面，你可以将此Do取消了试一次。        DoEvents    Loop    If

10、Combo1.ListIndex = 1 Then        WebBrowser1.Navigate URL2(Combo1.ListIndex + C1(Combo1.ListIndex + "=" + Text1.Text    Else        WebBrowser1.Navigate URL2(Combo1.ListIndex    End IfEnd Su

11、b大家可以挑选一个自己已经注册过的站点看看效果。图文可以看到，登陆成功之后， Inet与WebBrowser是可以保持住同一个Session对话的！不过当我们在WebBrowser中显示出来的页面上点击了一个连接之后，请求却不能成功（请读者自己试一下，在登陆成功的站点中任意点击一个与用户相关的连接，弹出来的将是一个“你没有登陆”的页面）。为什么？ 因为我们现在点击的连接还是使用IE（操作系统默认的浏览器）打开的，而IE请求页面的时候使用的是服务器新发送过来的Session，这个新的Session与你在WebBrowser中使用的Session也就是身份ID不一样，至少服务器是这么认为的，它以为

12、是另一个没有登陆的用户。所以说Session的作用范围不是对整个客户机的，通过实际的代码可以很好的理解这一点。(可以利用这一点，使用代码在一台电脑上实现两个以上的用户同时登陆，甚至还能对同一主题进行无缝发言。所以接下来我们要使页面继续停在WebBrowser中显示。因为很显然，既然WebBrowser与Inet是可以保持住同一个Session对话的，那么WebBrowser与WebBrowser内部自然也是可以的！要添加的代码很简单 Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean  

13、;  Dim frm2 As New Form2    frm2.WebBrowser1.RegisterAsBrowser = True    Set ppDisp = frm2.WebBrowser1.Object    frm2.ShowEnd Sub然后在工程中添加一个Form2，上面再放一个WebBrowser1，调整好位置，Form2的代码窗口添加上以下代码：Private Sub Form_Load(WebBrowser1.Silent = TrueEnd SubPrivate S

14、ub Form_Resize(If Me.WindowState <> 1 Then    WebBrowser1.Left = 10    WebBrowser1.Width = Me.Width - 120    WebBrowser1.Height = Me.Height - 600End IfEnd SubPrivate 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.ShowEnd Sub 利用Inet发送登陆请求，WebBrowser浏览实际页面，的确是个很不错的构思，在登陆站点相对教少的情况下应该