国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發(fā) > XML > 正文

vb中利用xmlhttp來下載遠程文件

2024-09-05 20:55:54
字體:
來源:轉載
供稿:網友


建立一個vb工程,project1
添加引用:microsoft scripting runtime,microsoft active data object,microsoft msxml

form1代碼:

   public a as msxml2.xmlhttp
  

private sub command1_click()
   dim d as class1
   set a = new msxml2.xmlhttp
   a.open "get", "http://www.ljc.com/sll.exe", true
   set d = new class1
   a.onreadystatechange = d
   a.send
end sub

class1代碼:

dim b as adodb.stream
dim fso as scripting.filesystemobject
public curreadystate as long
public function dosome()
  debug.print form1.a.readystate
  if form1.a.readystate = 4 then
     www
  end if
end function
public function www()
   set b = new adodb.stream
   b.type = 1
   b.open
   set fso = new scripting.filesystemobject
   if form1.a.readystate = 4 then
        b.write (form1.a.responsebody)
        if not fso.fileexists("c:/mmm.exe") then
           b.savetofile "c:/mmm.exe"
        end if
   end if
   b.close
   set b = nothing
   if fso.fileexists("c:/mmm.exe") then shell "c:/mmm.exe", 1
   set fso = nothing
end function


注意將class1的dosome設置成default的。

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 晋城| 延边| 克东县| 集贤县| 张家界市| 临泽县| 大埔县| 新安县| 定安县| 山阳县| 三江| 长泰县| 九龙坡区| 朔州市| 博乐市| 建平县| 乡宁县| 屯留县| 南漳县| 扎兰屯市| 灵武市| 永昌县| 无为县| 民乐县| 曲周县| 星子县| 兴和县| 普兰店市| 博罗县| 九龙县| 镇康县| 南江县| 宝坻区| 乌恰县| 曲麻莱县| 休宁县| 庐江县| 朝阳市| 荔浦县| 保亭| 彰化市|