VB自动登陆网络站点详解(四):在WebBrowser中发送POST请求
2004-05-29 15:51
513 查看
本来这一部分内容也应该放在第二章,但一方面为了醒目,另一方面,这种方法实际上与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协议、Cookie、Session也加深了理解!
全文完!!!
注:本系列文章,请勿用于商业用途,有转载或发表行为的请务必事先与本人联系wshk_18@163.com
相关文章推荐
- VB自动登陆网络站点详解(四):在WebBrowser中发送POST请求
- CSDN_VB自动登陆网络站点详解(四):在WebBrowser中发送POST请求
- VB自动登陆网络站点详解(二):Inet控件与WebBrowser控件配合使用
- VB自动登陆网络站点详解(二):Inet控件与WebBrowser控件配合使用
- VB自动登陆网络站点详解(一):得到参数名
- vb自动登陆网络站点详解(一)
- VB自动登陆网络站点详解(三):Internet Explorer对象
- VB自动登陆网络站点详解
- CSDN_VB自动登陆网络站点详解(一):得到参数名
- VB自动登陆网络站点详解
- VB自动登陆网络站点详解(一):得到参数名
- VB自动登陆网络站点详解(三):Internet Explorer对象
- VB自动登录网络站点详解
- 详解Vue用axios发送post请求自动set cookie
- [导入]C#实现通过HttpWebRequest发送POST请求实现网站自动登陆
- VB.New 自动发送邮件的方法
- WinForm : 利用webBrowser完成填充数据并 自动登陆某网站。。。。。。。
- C#实现通过HttpWebRequest发送POST请求实现网站自动登陆
- 微信公众平台模拟登陆和发送消息详解
- 关于webbrowser控件自动登陆的问题