`
coub63coub
  • 浏览: 11552 次
最近访客 更多访客>>
社区版块
存档分类
最新评论

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

 
阅读更多

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

相关推荐

Global site tag (gtag.js) - Google Analytics