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

 我来答

1个回答

#热议# 网上掀起『练心眼子』风潮，真的能提高情商吗？

huanglenzhi
推荐于2016-08-01 · 知道合伙人数码行家

huanglenzhi
知道合伙人数码行家

采纳数：117538 获赞数：517192

长期从事计算机组装，维护，网络组建及管理。对计算机硬件、操作系统安装、典型网络设备具有详细认知。

向TA提问私信TA

关注

展开全部

下面是网上找的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