vb中利用xmlhttp来下载远程文件
2005-03-11 09:48
363 查看
建立一个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的。
添加引用: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的。
相关文章推荐
- 利用xmlhttp和adodb.stream加缓存技术下载远程Web文件
- 利用scp 远程上传下载文件/文件夹
- 在.NET中利用XMLHTTP下载文件
- 利用scp 远程上传下载文件/文件夹
- 在.NET中利用XMLHTTP下载文件
- 【ARM-LInux开发】利用scp 远程上传下载文件/文件夹
- 利用WebService实现远程服务器文件的上传和下载
- 利用xmlhttp组件获取远程文件保存到当前空间
- 利用WebService实现远程服务器文件的上传和下载
- 使用SourceCRT利用sftp从远程主机上传下载文件
- java利用jcraft实现和远程服务器交互,实现上传下载文件
- 利用xmlhttp远程下载图片,asp 下载远程图片
- Java利用ssh协议实现从远程Linux服务器下载文件和文件夹
- 在.NET中利用XMLHTTP下载文件
- 利用scp 远程上传下载文件/文件夹,ssh上传下载文件
- 利用scp 远程上传下载文件/文件夹
- [导入]在.NET中利用XMLHTTP下载文件
- 远程获取内容,并将内容存在本地电脑上,包括任何文件!利用xmlhttp和adodb.stream,酷!
- 远程下载http文件--利用WinInet类(转)