VB自动登陆网络站点详解（二）：Inet控件与WebBrowser控件配合使用|百信语网络学院（刘少工作室）

08-0802 VB自动登陆网络站点详解（二）：Inet控件与WebBrowser控件配合使用 所属栏目: VB编程关注热度: ℃ 出处: 作者: Plus

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服务器的，我将在第四部分给出代码。这里先看看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()

Text1.Text = ""

Text2.Text = ""

Text2.PasswordChar = "*"

Combo1.AddItem "SOHU邮箱", 0

Combo1.AddItem "网易通行证", 1

Combo1.AddItem "CSDN通行证", 2

Combo1.AddItem "请选择一个登陆", 3

收藏到：