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

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

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

本来这一部分内容也应该放在第二章,但一方面为了醒目,另一方面,这种方法实际上与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也加深了理解!

全文完!!!

 

注:本系列文章,请勿用于商业用途,有转载或发表行为的请务必事先与本人联系wshk_18@163.com

 

WebBrowser 控件获取POST数据

WebBrowser 其实是对 ActiveX 控件 SHDocVw 的封装,而这个SHDocVw的很多底层调用WebBrowser控件并没有提供实现,你这个应用需要直接操作 SHDoceVw 控件才...
  • aasmfox
  • aasmfox
  • 2013年03月21日 12:19
  • 5264

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

   URL帐号密码其它参数SOHU邮箱http://login.sohu.com/chkpwd.phpUserNamePassword 网易通行证http://reg4.163.com/CheckU...
  • lvlvlvlylyly
  • lvlvlvlylyly
  • 2004年05月29日 15:51
  • 4953

用来获取网页的类(转!vb.net参考)

Imports System.NetImports System.IOPublic Class HttpDriverClass HttpDriver    Public Function GetPag...
  • yangtututu
  • yangtututu
  • 2006年11月18日 10:38
  • 778

自动登录:Filter,Session,Cookie综合例子

初始登录Servlet: package cn.xbai.servlet; import java.io.IOException; import javax.servlet.ServletExce...
  • ghbfgb
  • ghbfgb
  • 2016年11月01日 21:54
  • 3750

VB通过webbrowser获取httponly的cookie

大家都知道webbrowser是直接可以获取到cookie的。 可以通过webbrowser1.document.cookie来获取,但是利用这种方法!是获取不到httponly的cookie的! 相...
  • chjqxxxx
  • chjqxxxx
  • 2017年09月15日 14:25
  • 1158

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

 本来这一部分内容也应该放在第二章,但一方面为了醒目,另一方面,这种方法实际上与Internet Explorer对象有很大的联系及相似性,所以特意将之放在Internet Explorer对象之后介...
  • lvlvlvlylyly
  • lvlvlvlylyly
  • 2004年05月29日 15:51
  • 3082

VB.NET通过URL POST请求和GET请求

VB.NET
  • u010803748
  • u010803748
  • 2017年05月16日 16:40
  • 546

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

VB自动登陆网络站点详解(四):在WebBrowser中发送POST请求 ...
  • Edream2
  • Edream2
  • 2007年11月17日 22:57
  • 1643

vb自动登陆网络站点详解(一)

vb自动登陆网络站点详解(一):得到参数名 ...
  • Edream2
  • Edream2
  • 2007年11月17日 22:32
  • 1291

vb程序中webbrowser 接受SendMessage 的消息

webbrowser 不能收到SendMessage的消息主要是因为1webbrowser 的句柄找不到。经过努力搜索,终于解决了。做个记录.Private Declare Function Post...
  • cuizm
  • cuizm
  • 2009年12月26日 22:17
  • 1160
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB自动登陆网络站点详解(四):在WebBrowser中发送POST请求
举报原因:
原因补充:

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