set xh=new msxml2.xmlhttpxh.open "head","http://www.xxx.com",false
xh.addrequestheader "Connection","close"xh.send在send的时候程序死掉, 请问是什么原因?
xh.addrequestheader "Connection","close"xh.send在send的时候程序死掉, 请问是什么原因?
解决方案 »
- VB数据绑定不能绑定数据表中英文字段
- 请问怎样用CopyMemory函数copy整数变量到字符串变量
- 百分求教VB的串口通信问题(非控件写法),高手请进,低手帮顶!~~~~~
- 我这样可以锁住数据库吗??不然怎么锁住数据库、数据库的表或数据库中的一条记录呢??
- vb中如何连上*.ocx文件?
- 如何取得系统的My Documents路径?
- 如何获取mediaplayer控件的句柄?
- 这样的SQL语句怎么写?
- 高分求教关于Internet打包问题!!!请各位高手帮忙!!!!!!!!
- 运行vb5.0时提示出现未知的错误请退出,可我刚才还是很好用的,怎么回事
- vb与电子邮件?请教!
- 求 IcmpSendEcho2 的VB声明,谢谢!
删除这话是偶大叔讲的偶灭验证,错了去找他
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