~~~ Public Function URLDownloadToFileB(ByVal strSourceFile$, Optional strLocalFile$ = "Default") As Boolean On Error GoTo err1 Dim xObj, sObj, v Set xObj = CreateObject("Microsoft.XMLHTTP") xObj.Open "GET", strSourceFile, 0 xObj.send Set sObj = CreateObject("ADODB.Stream") sObj.Mode = 3 sObj.Type = 1 sObj.Open sObj.Write (xObj.ResponseBody) If strLocalFile = "Default" Then v = Split(strSourceFile, "/") strLocalFile = v(UBound(v)) If strLocalFile = "" Then strLocalFile = strAppPath & "tmp.dat" If Dir(strLocalFile) <> "" Then Kill strLocalFile End If End If sObj.SaveToFile strLocalFile, 2 sObj.Close Set xObj = Nothing Set sObj = Nothing URLDownloadToFileB = True Exit Function err1: URLDownloadToFileB = False End Function 以下方法会被当做木马 Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Sub Command1_Click() URLDownloadToFile 0, "https://res0.shangshi360.com/up/2004/kmsg0/15/5166/u1r6o.jpg", "xxx.jpg", 0, 0 End Sub ~~~