使用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這個“庫”中去了，而前面所說的WebBrowser及Internet Explorer都是這個庫中所包含的“類”。大家可以打開物件流覽器看看它們互相之間的關係。