在VB中打开浏览器访问网页,怎么用POST传参?

[yingyi8989]

在VB中打开浏览器访问网页,怎么用POST传参?
谢谢!

[yingyi8989]

谢谢你们的回答!
可能是我说的不是很清楚,我是想在VB里调用IE打开我所需的页面.并且要POST传参数实现.
GET传参数我已经实现了,如下所示:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



Private Sub Command1_Click()
Dim ret&
ret& = ShellExecute(Me.hwnd, "Open", "http://192.168.0.1/login.asp?username=admin&userpass=123", "", App.Path, 1)
End Sub

用POST的方面我就不是很清楚了.

[yingyi8989]

请教各位了!呵^

[3q2008Com]

Dim tarr() As Byte
tarr = StrConv("kind=1&UserID=11", vbFromUnicode)
WebBrowser1.Navigate2 http://www.www.com, , , tarr, "Content-Type: application/x-www-form-urlencoded"
'提交数据 以POST方式提交
Do Until WebBrowser1.Busy = False
DoEvents
Loop
'等等加载完成
debug.print WebBrowser1.Document.body.createtextrange.htmltext
'返回打开网页的内容

[TechnoFantasy]

Use the Inet control to post querystring data to a Web site:
http://www.a1vbcode.com/vbtip-144.asp

[yingyi8989]

怎么没有人回答我呀。分少了可以再加呀！

[supergreenbean]

你引用一下Microsoft HTML Object Library

然后
Private Sub Form_Load()
WebBrowser1.Navigate2 "d:\1.htm"
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim oDoc As HTMLDocument
Set oDoc = pDisp.document
Dim oForm As HTMLFormElement
Set oForm = oDoc.Forms("login1")
If Not oForm Is Nothing Then
oForm.submit
End If
End Sub

[killl]

WebBrowser1.Navigate2 "d:\1.htm?参数＝参数值&参数2＝参数2值"

[蒋晟]

How To Automate Internet Explorer to POST Form Data
http://support.microsoft.com/kb/167658