set xh=new msxml2.xmlhttpxh.open "head","http://www.xxx.com",false
xh.addrequestheader "Connection","close"xh.send在send的时候程序死掉, 请问是什么原因?

解决方案 »

  1.   

    xh.addrequestheader "Connection","close"没啥用
    删除这话是偶大叔讲的偶灭验证,错了去找他
      

  2.   

    我刚刚写了这样一个程序成功了,你看看,
    Private Sub UploadFile(ByVal sUrl As String)
        Dim mFileName As String
        Dim rtnStr As String
        Dim cw
        Dim tmpstr As String    
        Set pxmlHttp = New MSXML2.XMLHTTP30    '
        
        pxmlHttp.Open "POST", sUrl & "FileUpload.aspx", False       'pUrl为你的S地址
        pxmlHttp.setRequestHeader "Referer", sUrl & "FileUpload.aspx"
        pxmlHttp.send CVar(GetBinary(mFileName))
      End Sub