JSA有没有像VBA类似下载网页文件的代码

QAZ1234ab

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 test()
    'URLDownloadToFile(0, "网页地址", "保存到本地文件名和地址", 0, 0)
    Call URLDownloadToFile(0, _
    "https://api.piaozone.com/rpa/free/preview/366041334604029952/91330106757229413U/4ac1fe33b9504ca5b434d4206041f977?type=0" _
    , "C:\Users\54240\Desktop\新建文件夹\美女图.pdf", 0, 0)
End Sub