VB自动登陆网络站点详解(二):Inet控件与WebBrowser控件配合使用

原创 2004年05月29日 15:51:00

 

 

 

URL

帐号

密码

其它参数

SOHU邮箱

http://login.sohu.com/chkpwd.php

UserName

Password

 

网易通行证

http://reg4.163.com/CheckUser.jsp

username

password

 

CSDN通行证

http://www.csdn.net/member/logon.asp

login_name

password

cookietime=0&

x=42&y=10

表格中的参数就是按照前面介绍的方法得到的,在程序中将要用到。

先说明一点, WebBrowser也是可以直接POST数据给Web服务器的,我将在第四部分给出代码。这里先看看InetWebBrowser相互配合的效果。

新建一个工程,部件中勾选中“Microsoft Internet Transfer Controls 6.0”、“Microsoft Internet Controls”,依次添加Inet1WebBrowser1Text1Text2Combo1在窗体上,可以把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

 

大家可以挑选一个自己已经注册过的站点看看效果。

可以看到,登陆成功之后, InetWebBrowser是可以保持住同一个Session对话的!不过当我们在WebBrowser中显示出来的页面上点击了一个连接之后,请求却不能成功(请读者自己试一下,在登陆成功的站点中任意点击一个与用户相关的连接,弹出来的将是一个“你没有登陆”的页面)。为什么?

因为我们现在点击的连接还是使用IE(操作系统默认的浏览器)打开的,而IE请求页面的时候使用的是服务器新发送过来的Session,这个新的Session与你在WebBrowser中使用的Session也就是身份ID不一样,至少服务器是这么认为的,它以为是另一个没有登陆的用户。所以说Session的作用范围不是对整个客户机的,通过实际的代码可以很好的理解这一点。(可以利用这一点,使用代码在一台电脑上实现两个以上的用户同时登陆,甚至还能对同一主题进行无缝发言。)

所以接下来我们要使页面继续停在WebBrowser中显示。因为很显然,既然WebBrowserInet是可以保持住同一个Session对话的,那么WebBrowserWebBrowser内部自然也是可以的!

要添加的代码很简单——

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数据才能避免第四个参数。但是浏览器的界面以及功能却是一个比较麻烦的问题(除非你不嫌麻烦,自己再动手写一个)。

vb activeX控件利用Inet控件发送HTTP请求

在控件栏右键  部件 找到Microsoft Internet Transfer control 6.0控件 添加在发送方法中Inet1.Execute “http://ip:port”,"POS...
  • mathewsking
  • mathewsking
  • 2010年12月03日 16:51
  • 2025

VB中用inet控件通过FTP实现单个文件和多个文件的上传

来自:http://lihb810.blog.163.com/blog/static/59451162200810275926721/ 公司里有个VB开发的软件要做个ftp上传文件功...
  • hlzs_01
  • hlzs_01
  • 2013年06月05日 14:49
  • 6561

利用WebBrowser控件实现百度自动搜索

更多精彩内容,请见:http://www.16boke.com (1)新建一个MFC对话框项目 (2)对话框中添加WebBrower控件,添加方法:点击菜单栏工具->选择工具箱项->在弹出的选择工具箱...
  • one_in_one
  • one_in_one
  • 2014年05月20日 16:02
  • 11639

DataGrid控件用法详解

转自:http://www.vckbase.com/document/viewdoc/?id=1164 作者:万建华 下载源代码 写在前面   刚写这个题目,就觉得肩上...
  • banrixianxin
  • banrixianxin
  • 2014年05月16日 00:23
  • 4220

VB中 MSComm控件使用详解

MSComm        控件通过串行端口传输和接收数据,为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便,程序员不必去花时间去了解较为复杂的API函数,而且在VC、VB、Delp...
  • niepangu
  • niepangu
  • 2015年06月16日 11:24
  • 4639

去WebBrowser控件的3d边框,示例代码段

MyWebBrowser.h #pragma once #include namespace kagula { class CMyWebBrowser : public IDocHostUIH...
  • lee353086
  • lee353086
  • 2014年08月06日 16:36
  • 1812

非常不错的webbrowser控件教程

http://www.cctry.com/thread-262528-1-1.html 大家好,欢迎大家来到VC驿站。前段时间陆续给大家更新了三套VC实战Http之Post方面的教程: ...
  • net_syc
  • net_syc
  • 2017年02月15日 17:26
  • 842

WebBrowser 控件-说明

WebBrowser 控件-说明 很多地方还是空白,我还不知道用法。望各位赐教,谢谢  这是我自己编制浏览器时的资料,供各位参考。  控件文件:system32/shdocvw.oca  s...
  • liuyi820729
  • liuyi820729
  • 2013年12月06日 13:05
  • 1799

vb中自动调整控件的大小

机房收费系统中有很多查询记录类的窗体用到了MSHFlexGrid控件。当没有调整该控件的大小时,查询结果可能会如图所示: 而我们需要的是: 这本来是一个很简单的调整MSHFlexGrid列宽的...
  • u010930340
  • u010930340
  • 2013年11月17日 21:26
  • 1572

vb.net利用webbrowser下载(加载完成判断、多线程、委托)

下载一个电子书籍,每页有图片,多个图片就是整个教材的页数。 流程:利用webbrowser来判断网页加载完成,对网页代码用正则提取对应的书页实际地址。逐个下载每个书页到一个文件夹。 问题:we...
  • dzweather
  • dzweather
  • 2016年02月26日 12:32
  • 2119
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB自动登陆网络站点详解(二):Inet控件与WebBrowser控件配合使用
举报原因:
原因补充:

(最多只允许输入30个字)