使用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

收藏到：