如何用VB截取webbrowser POST的数据？

aydd2004 2006-11-24 01:21:14

程序自己写的，用的控件是webbrowser，请问有什么方法能截取到它向服务器提交的数据！其实就是包括HTTP头和提交内容！只要截取提交的就可以了，别的不要！
说明一点，就是希望能把这些代码嵌到程序中，每次运行的时候都能实时地将POST的数据保存下来！

希望大家帮帮忙拉！觉得分不够的我可以加啊！最好能给一些代码！

...全文

762 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

VBToy 2006-12-09

打赏
举报

'这个更详细一些
Option Explicit

Private Sub Form_Load()
WebBrowser1.Navigate2 "about:blank"
WebBrowser1.Document.open
WebBrowser1.Document.write "<html>" & vbCrLf
WebBrowser1.Document.write "<title>test</title>" & vbCrLf
WebBrowser1.Document.write "<body>" & vbCrLf
WebBrowser1.Document.write "<form action='test.asp' method=post>" & vbCrLf
WebBrowser1.Document.write "<input type=text><br>" & vbCrLf
WebBrowser1.Document.write "<input type=text><br>" & vbCrLf
WebBrowser1.Document.write "<input type=checkbox><br>" & vbCrLf
WebBrowser1.Document.write "<input type='submit' value='提交'" & vbCrLf
WebBrowser1.Document.write "</form>" & vbCrLf
WebBrowser1.Document.write "</body></html>" & vbCrLf
WebBrowser1.Document.Close
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If URL = "about:blank" Then
Exit Sub
Else
Dim s As String
Dim i As Integer
Dim eleNum As Integer
eleNum = WebBrowser1.Document.Forms(0).elements.length
For i = 0 To eleNum - 1
s = s & WebBrowser1.Document.Forms(0).elements(i).Value & ","
Next i
Debug.Print s
Cancel = True '不提交
End If
End Sub

VBToy 2006-12-09

打赏
举报

Option Explicit

Private Sub Form_Load()
WebBrowser1.Navigate2 "about:blank"
WebBrowser1.Document.open
WebBrowser1.Document.write "<html>" & vbCrLf
WebBrowser1.Document.write "<title>test</title>" & vbCrLf
WebBrowser1.Document.write "<body>" & vbCrLf
WebBrowser1.Document.write "<form action='test.asp' method=post>" & vbCrLf
WebBrowser1.Document.write "<input type=text><br>" & vbCrLf
WebBrowser1.Document.write "<input type='submit' value='提交'" & vbCrLf
WebBrowser1.Document.write "</form>" & vbCrLf
WebBrowser1.Document.write "</body></html>" & vbCrLf
WebBrowser1.Document.Close
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If URL = "about:blank" Then
Exit Sub
Else
Dim s As String
s = WebBrowser1.Document.Forms(0).All(0).Value '提交的数据之一
Debug.Print s
Cancel = True '不提交
End If
End Sub

zhanghuajie 2006-12-07