Dim sRet = ""
sRet = HTTP.GetFile("https://pics5.baidu.com/feed/b8389b504fc2d562bc463dfc2a0238eb76c66c69.jpeg?token=092ddbddb9f7dbf3e1847e510d3553e7&s=01D1AB6C841D1D7E0357F99A0300A09A", '''C:\Users\Administrator\Desktop\新建文件夹''', {}, 60000)
TracePrint sRet