如何使用vb向网站的php程序提交信息

Question

Shell "explorer.exe http://xxx.com/xxx.php3?safdasfd="

Answer 1

添加一个webbrowser控件Option ExplicitPrivate Sub Command1_Click()
    Dim szValue As String
    WebBrowser1.Document.body.innerHTML = "<form id=post method=post action=http://地址/xxx.php><input type=text value='" & szValue & "'></form>"
    WebBrowser1.Document.Forms("post").submit
End SubPrivate Sub Form_Load()
    WebBrowser1.Navigate2 "about:blank"
End Sub
记得要给分，写得很辛苦

Answer 2

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 LongDim link
link = ShellExecute(Me.hwnd, "open", "http://www.1.com/1.php?data=111", "", App.Path, 0)