vb+xmlhttp异步POST发送数据，在线求果~

Question

我用VB做了一个利用XMLHTTP异步自动登陆的软件，每第一次启动软件，发送数据总是不成功，就是说，我运行软件--》点确认，登陆不成功，我再点一次确认则成功，然后我关闭软件，再启动，出现以上过程，才能登陆

Answer 1

Public Function xml_httpSend(modth As String, postUrl As String, SynModth As Boolean, sendData As String)'
   Set xml_http = New MSXML2.XMLHTTP
    If SynModth Then             '异步过程
    Timer1.Interval = 1 '定时器实现onreadystatechange事件句丙
    End If
    xml_http.open modth, postUrl, SynModth
    If modth = "post" Then        ' post修改MIME类
               xml_http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
               xml_http.setRequestHeader "Content-Length ", Len(sendData)
    End If
  xml_http.send (sendData)
end functionPrivate Sub Timer1_Timer()'定时器操作
If xml_http.ReadyState = 4 Then
    Timer1.Interval = 0
    If xml_http.Status = 200 Then
     msgbox xml_http.responseText'第一次返回登陆页面代码，第2次返回登陆成功
    End If  
End IfEnd Sub

Answer 2

嘿嘿，找了3天了，终于知道，为什么了，服务器端文件里，夹了一个COOKIES文件，里面对COOKIES进行了设置，需要启动cookies，所以第一次没有返回值，今天忽然一个想法，改变了我