如何用vb向网页发送数据（up有分）

Question

一、用Webbrowser 代码：Webbrowser.navigate ("http://xxx/1.htm?name=apple&id=001")二、用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&id=001"
3、发送地址：
strsendadd="http://xxx/1.htm
3、发送数据:
Inet.execute strsendadd,"POST",strsenddata,strsendHead Inet (Get方式）  GET方式比POST简单的多
代码：
strsenddata = "http://xxx/1.htm?apple&id=001"
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&id=001"
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