在WebBrowser中发送POST请求

最新推荐文章于 2021-12-31 16:46:01 发布

weixin_33887443

最新推荐文章于 2021-12-31 16:46:01 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

文章标签： python

原文链接：http://www.cnblogs.com/lbnnbs/p/4784635.html

本文介绍如何利用Visual Basic中的WebBrowser控件完成网页的自动登录过程，包括发送POST请求并携带登录所需的用户名和密码等参数。此外，还提供了一个示例，展示如何通过XMLHTTP对象获取网页内容，并将其保存为本地文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我们要用到的也是WebBrowser的“Navigate”方法，其函数原型如下所示：

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

新建一个工程，部件中勾选中 “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.youkuaiyun.com/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