vb中利用xmlhttp来下载远程文件

王朝vb·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航