vb post html,vb post提交url该怎么实现(着急)

VB codeOption Explicit

Public Function GetCode(CodeBase, url, Data)

On Error GoTo HandleErr:

Dim xmlHTTP1

Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")

xmlHTTP1.Open "get", url, True

xmlHTTP1.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xmlHTTP1.send Data

While xmlHTTP1.ReadyState <> 4

DoEvents

Wend

GetCode = xmlHTTP1.responseBody

If CStr(GetCode) <> "" Then GetCode = BytesToBstr(GetCode, CodeBase)

Set xmlHTTP1 = Nothing

Exit Function

HandleErr:

End Function

Public Function BytesToBstr(strBody, CodeBase)

Dim ObjStream

Set ObjStream = CreateObject("Adodb.Stream")

With ObjStream

.Type = 1

.Mode = 3

.Open

.Write strBody

.Position = 0

.Type = 2

.Charset = CodeBase

BytesToBstr = .ReadText

.Close

End With

Set ObjStream = Nothing

End Function