如题
让程序执行后从某网站地址下载exe文件到本地某目录然后执行
类似木马“下载者”的功能
谢谢

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

'DownloadFile 成功返回true，失败返回false
'URL:URL地址
'LocalFilename:保存下载文件的路径

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

多谢提供代码
分析下