如何查看封包，以及如何填写WebBrowser1.Navigatec参数POST提交

下面是网上找的POST提交表单的源代码---------------------------
Private Sub Button1_Click()
Dim URL As String
Dim Flags As Long
Dim TargetFrame As String
Dim PostData() As Byte
Dim Headers As String

URL = " ?rru=inbox" ' A URL that will accept a POST
Flags = 0
TargetFrame = ""

PostData = "true,false,true,{" & "00000000-0000-0000-0000-000000000005" & ",0,0,Date,false,null,null,1,1,false,null,-1,-1,Off},false,null"

' VB creates a Unicode string by default so we need to
' convert it back to Single byte character set.
PostData = StrConv(PostData, vbFromUnicode)

Headers = "Content-Type: application/x-www-form-urlencoded" & _
vbCrLf
WebBrowser1.Navigate URL, Flags, TargetFrame, PostData, Headers
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate " "
End Sub