加入收藏
联系我们
关于我们
 您现在的位置: 亿聪 >> 网络学院 >> 网络编程 >> 其它 >> 正文  
  VB自动登陆网络站点详解(二)         
VB自动登陆网络站点详解(二)
[ 作者:lvlvlvlylyly    转贴自:CSDN    点击数:7221    更新时间:2004/12/17    文章录入:亿聪 ]
VB自动登陆网络站点详解(三):Internet Explorer对象

使用Internet Explorer对象可以使POST请求在IE中产生,从而脱离程序,远离了美化界面的工作。程序甚至可以隐藏或退出,免去了WebBrowser带来的烦恼,当然也不需要第四个参数。

下面我们还是以登陆CSDN为例,给出实际的代码,您可以根据前面文章中提供的参数换成你注册过的站点:

建新工程,在工程中“引用”Internet Explorer对象,点“浏览”,在系统文件夹下找到Shdocvw.dll(这个文件是IE自带的), Form1中添加Command1,以下是代码——

 

    Dim g_oIE As InternetExplorer

Private Sub Command1_Click()

    Dim vPost As Variant

    Dim vHeaders As Variant

 

    Set g_oIE = New InternetExplorer

    g_oIE.Visible = True

   

    ReDim aByte(0) As Byte

    cPostData = "login_name=帐号&password=密码&cookietime=0"

    PackBytes aByte(), cPostData

   

    vPost = aByte

    vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)

   

    g_oIE.Navigate "http://www.csdn.net/member/logon.asp", , , vPost, vHeaders

   

End Sub

Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)

    iNewBytes = Len(PostData) - 1

    If iNewBytes < 0 Then Exit Sub

    ReDim ByteArray(iNewBytes)

    For i = 0 To iNewBytes

       ch = Mid(PostData, i + 1, 1)

       If ch = Space(1) Then

          ch = "+"

       End If

       ByteArray(i) = Asc(ch)

    Next

End Sub

(请输入自己的帐号及密码试运行。这种方法的好处是显而易见的,你可以按这个方法将前面的代码改造一下。)

PackBytes函数将Post出去的数据转化为一个ASCII数组,另外vHeaders的值必须以“+ Chr(10) + Chr(13)”结束。

 

代码没有什么好解释的,现在已经进入到Shdocvw.dll这个“库”中去了,而前面所说的WebBrowserInternet Explorer都是这个库中所包含的“类”。大家可以打开对象浏览器看看它们互相之间的关系。


VB自动登陆网络站点详解(四):在WebBrowser中发送POST请求

 

本来这一部分内容也应该放在第二章,但一方面为了醒目,另一方面,这种方法实际上与Internet Explorer对象有很大的联系及相似性,所以特意将之放在Internet Explorer对象之后介绍。

 

现在我们要用到的也是WebBrowser的“Navigate”方法,其函数原型如下所示:

Sub Navigate(URL As String, [Flags], [TargetFrameName], [PostData], [Headers])

 

大家不妨与第三章中Internet Explorer对象的“Navigate”方法比较一下,一模一样,原来是同一个接口!!

新建一个工程,部件中勾选中 Microsoft Internet Controls”,添加一个WebBrowser1、一个Command1在窗体上,可以把WebBrowser1适当拉大一点,Form1中添加以下代码:

      Private Sub Command1_Click()

      ReDim aByte(0) As Byte ' Array of bytes to hold data to post

      cPostData = "login_name=帐号&password=密码&cookietime=0&x=42&y=10"

      PackBytes aByte(), cPostData

      Dim vPost As Variant

      vPost = aByte ' Assign the byte array to a VARIANT

      Dim vHeaders As Variant

      vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)

      WebBrowser1.Navigate "http://www.csdn.net/member/logon.asp", , , vPost, vHeaders

      End Sub

      Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)

      iNewBytes = Len(PostData) - 1   ' Get rid of the null termination

      If iNewBytes < 0 Then

       Exit Sub

      End If

      ReDim ByteArray(iNewBytes)

      For i = 0 To iNewBytes

       ch = Mid(PostData, i + 1, 1)

       If ch = Space(1) Then

          ch = "+"

       End If

       Debug.Print ch, Asc(ch)

       ByteArray(i) = Asc(ch)

      Next

    End Sub

(请参考第三章中的代码。)

通过这四篇文章的介绍,我想读者一定不光是对VB登陆Web服务器有了更深的认识,而且同时对HTTP协议、CookieSession也加深了理解!

全文完!!!

  • 上一篇文章: VB自动登陆网络站点详解(一)

  • 下一篇文章: IIS错误代码大汇总
  • 发表评论】【告诉好友】【打印此文】【关闭窗口
     最新5篇热点文章
  • Knoppix 4.0.2 免硬盘免安…[11521]

  • 通过ASP记录进行分页[8301]

  • ASP开发准则[7934]

  • ASP组件指南[7791]

  • ASP指南[7862]

  •  
     最新5篇推荐文章
  • Knoppix 4.0.2 免硬盘免安…[11521]

  • 如何让Win 2003系统更加安…[8826]

  • Nero超刻简明教程[32458]

  • PS商业实战-来杯茶,行吗?…[5652]

  • ASP深度揭密(下)[9012]

  •  
     相 关 文 章
  • VB自动登陆网络站点详解(…[3790]


  •   网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
        没有任何评论
    设为首页 | 加入收藏 | 关于我们 | 联系我们 | 友情链接 | 版权声明 | 管理登录
    Copyright © 2000-2020 Yicong.com.All Rights Reserved.
    亿聪 版权所有 E-mail: