如何用vb向网页发送数据？

有一网页1.htm

现要向1.htm提交数据name=apple,id=001

即1.htm?name=apple&id=001

请问如何做？

---

用webbrowser

没人用过吗？

---

winsock

---

一、用Webbrowser

代码：Webbrowser.navigate ("http://xxx/1.htm?name=apple&)

二、用Inet (注意数据接收方式是POST还是GET ，具体的方式是在1.htm的<form>...</form>中

代码：（post方式）

1、设定数据头：

strSendHeader = "POST /hotbuy/myhotbuy.php HTTP/1.1" & vbCrLf

strSendHeader = strSendHeader & "Content-Type: application/x-www-form-urlencoded " & vbCrLf

strSendHeader = strSendHeader & "Content-Length: " & iSendLength & vbCrLf

2、设定要发的数据：

strsenddata= "name=apple&

3、发送地址：

strsendadd="http://xxx/1.htm

3、发送数据:

Inet.execute strsendadd,"POST",strsenddata,strsendHead

Inet (Get方式） GET方式比POST简单的多

代码：

strsenddata = "http://xxx/1.htm?apple&

Inet.execute strsenddata,"GET"

三、用winsock

1、设定数据头：

strSendHeader = "POST /hotbuy/myhotbuy.php HTTP/1.1" & vbCrLf

strSendHeader = strSendHeader & "Content-Type: application/x-www-form-urlencoded " & vbCrLf

strSendHeader = strSendHeader & "Content-Length: " & iSendLength & vbCrLf

2、设定要发的数据：

strsenddata= "name=apple&

strSend = strSendHeader & vbCrLf & strSendData

3、发送地址：

strsendadd="http://xxx/1.htm

4、建立连接

Winsock.RemoteHost = "http:/xxx/"

Winsock.RemotePort = 80

Winsock.Protocol = sckTCPProtocol

winsock.connect

Winsock1.SendData strsend

Winsock.close