xmlhttp 传递变量消失_xmlhttp.send（） 无法传递参数

Public Sub test()

Dim http As Object

Dim myData As String

Set http = CreateObject("Msxml2.XMLHTTP")

myData = "introduction=fsdfs&name=dfjkdfjdk"

With http

.Open "post", "http://i.sohu.com/profile/home/basic.htm?_sub=post", False

' .setrequestheader "(Request-Line)", "POST /profile/home/basic.htm?_sub=post HTTP/1.1"

.setrequestheader "Host", "i.sohu.com"

'.setrequestheader "User-Agent", "Mozilla/5.0 (Windows NT 5.1; rv:23.0) Gecko/20100101 Firefox/23.0"

.setrequestheader "accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"

.setrequestheader "Accept-Language", "zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3"

.setrequestheader "accept-encoding", "gzip, deflate"

.setrequestheader "Referer", "http://i.sohu.com/profile/home/basic.htm?from=self"

.setrequestheader "Cookie", "spsession=MTU4NTc3fC0xfDEzODAyNjMxMjJ8d3V4aW5ndGlhbnhpYTI=-pVPduYMWKvZ+yLPzoJnnWm/eya4=; domain=.sohu.com; path=/; HttpOnly"

.setrequestheader "Connecion", "keep-alive"

.setrequestheader "contenet-type", "application/x-www.form-urlencoded"

.setrequestheader "Content-Length", Len(myData)

.send (myData)

'  Do While Not .readyState = 4

'       DoEvents

'   Loop

'Debug.Print .responseText

End With

End Sub

Function getPostData() As String

Dim myName, myGender, js As Object

myName = "白云似水chang"

myGender = 1

Set js = CreateObject("msscriptcontrol.scriptcontrol")

js.Language = "javascript"

PostData = js.eval("encodeURIComponent('" & myName & "');")

PostData = "name=" & PostData & "&" & "gender=" & myGender

getPostData = PostData

End Function