利用vb向网页提交表单数据的实现代码

首先，先建立一个工程，加一个窗体form1，上面添加一个textbox控件text1，和两个按钮
分别为command1和command2，
然后实现按下command1按钮就向网页提交text1的内容
先打开菜单里的，工程-〉引用-〉选中microsoft xml，必须先这样，因为下面要用到msxml对象
button1的实现代码如下：
Private Sub Command1_Click()
On Error Resume Next
Dim oXmlHttp As New MSXML.XMLHTTPRequest
Dim sPostString As String, sRespText As String

sPostString = "ID = " + Text1.Text '需要提交的数据"
oXmlHttp.open "POST", "http://127.0.0.1", False

'一定要加上下面的这一句，说明提交类型的
oXmlHttp.setRequestHeader "content-type", "multipart/form-data"
oXmlHttp.send (sPostString)
sRespText = oXmlHttp.responseText '得到处理后response回来的数据
'sRespText为返回的结果，可以根据结果进行处理，具体处理请根据需要编写
oXmlHttp = Nothing
End Sub