【栏目分类】

返回上级

【最新文章】

【本类热门】

赚了吗联盟

【当前位置】：惠省一派 >> 技术分享 >>　正文

  • vb中利用xmlhttp来下载远程文件
    • 2020-12-15 13:46:26

  • >建立一个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的。

  • 作者：e4snake 浏览：5 评论：0

【相关文章】

【用户评论】

淘宝优惠券免费发放，领券后购买折上折！https://www.zlmlm.cn

惠省派,支持淘宝、品多多、京东等购物，自购省钱，分享赚钱！

ICP备案:申请备案中...　|　管理员信箱：xssoft#qq.com　|　版本：XSCMS 1.0
本站数据来自于网络,如有问题请告知,我们将尽快处理
页面执行时间: 0.1094秒  18次数据查询