Windows批处理实现邮件远程控制电脑的操作方法(第三方批处理）

echo off for /f "tokens=2,* delims=#" %%i in ('type MSG1.TXT ^| findstr /b Subject:') do ( set mode=%%i set para="%%j" ) echo mode:%mode% echo command:%para% pause

start /MIN cmd.exe /c %para%

REM 仅隐藏运行 echo set ws=WScript.CreateObject("WScript.Shell") > start.vbs echo ws.Run "%~dp0run.bat /start",0 >> start.vbs start.vbs del /f /q start.vbs REM 隐藏运行并获取管理员权限 ECHO SET UAC = CreateObject^("Shell.Application"^) > Getadmin.vbs ECHO UAC.ShellExecute "run.bat", "此处可以加一个参数", "", "runas", 0 >> Getadmin.vbs Getadmin.vbs del /f /q Getadmin.vbs

rem 此处需要开机启动的批处理文件为startgo.bat set file='%~dp0startgo.bat' schtasks /Create /SC ONLOGON /TN \Windows\MailService /TR "%file%" /F /RL HIGHEST /DELAY 0001:00 rem 延时启动用于防止电脑还未联网导致开机邮件发送失败 pause

mshta vbscript:msgbox("content",64,"title")(window.close) 

echo off for /f "tokens=1,2,3 delims=$" %%i in ('echo %~1') do ( set tit=%%i set num=%%j set text=%%k ) mshta vbscript:msgbox("%text%",%num%,"%tit%")(window.close) exit

echo off cd /d "%~dp0" echo set ws=WScript.CreateObject("WScript.Shell") > start.vbs echo ws.Run "%~dp0run.bat /start",0 >> start.vbs start.vbs rem 发送开机提醒邮件；读取配置文件 :euser for /f "eol=# tokens=* delims=" %%i in (mail.cfg) do ( set euser=%%i goto ename ) :ename for /f "eol=# skip=4 tokens=* delims=" %%i in (mail.cfg) do ( set ename=%%i goto epw ) :epw for /f "eol=# skip=6 tokens=* delims=" %%i in (mail.cfg) do ( set epw=%%i goto smtp ) :smtp for /f "eol=# skip=10 tokens=* delims=" %%i in (mail.cfg) do ( set smtp=%%i goto eto ) :eto for /f "eol=# skip=12 tokens=* delims=" %%i in (mail.cfg) do ( set eto=%%i goto getcfgend ) :getcfgend set subj="[MailCTRL]%DATE% %TIME% %COMPUTERNAME%" echo host has started.>hello.txt echo for more info:>> hello.txt echo date and time:%DATE% %TIME%>> hello.txt echo computer:%COMPUTERNAME%>> hello.txt echo userdomain:%USERDOMAIN%>> hello.txt echo username:%USERNAME%>> hello.txt echo -------------------->>hello.txt systeminfo >> hello.txt ipconfig >> hello.txt set content=hello.txt ::------------------ blat %content% -to %eto% -charset gbk -subject %subj% -server %smtp% -f %euser% -u %ename% -pw %epw% del /f /q %content% del /f /q start.vbs exit 

cd /d "%~dp0" del /F /Q z*.todo del /F /Q Extract*.out del /F /Q html*.out @echo off timeout /t 3 cls echo "mail.cfg"> usedcfg.cfg ::echo %~dp0> dir.cfg echo ########################## echo setting email service...... :euser for /f "tokens=* delims=" %%i in (usedcfg.cfg) do set cfgfile=%%~i echo setted cfgfile:%cfgfile% for /f "eol=# tokens=* delims=" %%i in (%cfgfile%) do ( set euser=%%i goto epw ) :epw for /f "eol=# skip=6 tokens=* delims=" %%i in (%cfgfile%) do ( set epw=%%i goto pop ) :pop for /f "eol=# skip=8 tokens=* delims=" %%i in (%cfgfile%) do ( set pop=%%i goto getcfgend ) :getcfgend echo service started successfully AT %DATE% %TIME% echo ------------------------------------ :see TIMEOUT /T 5 echo checking new messages at %TIME% for /f "skip=3 tokens=3 delims=# " %%i in ('getmail -u %euser% -pw %epw% -s %pop% -headersonly') do set newmsg=%%i echo new message received:%newmsg% if %newmsg% GEQ 1 goto get goto see :get set mode= set para= del /F /Q MSG*.TXT del /F /Q Extract*.out echo downloading the new messages... getmail -u %euser% -pw %epw% -s %pop% -delete -xtract -n 1 ::                                    -delete :tell for /f "tokens=2,* delims=#" %%i in ('type MSG1.TXT ^| findstr /b Subject:') do ( set mode=%%i set para="%%j" ) set htext=%RANDOM% del /f /q html%htext%.out echo use html2txt.exe------------------------ html2txt Extract1.out html%htext%.out echo ---------------------------------------- echo information read from MSG.TXT: echo mode: %mode% echo command: %para% echo html file:html%htext%.out echo RUNNING THE PROGRAM...... ::if %mode%==cmd goto directcmd ::if %mode%==back goto backcmd ::if %mode%==xcmd goto xcmd ::if %mode%==xback goto xbackcmd if %mode%==cmd goto textcmd if %mode%==back goto textback if %mode%==xcmd goto textX if %mode%==xback goto textXback if %mode%==popup goto popup if %mode%==poptext goto poptext if %mode%==upfile goto upfile if %mode%==use goto changecfg ::if %mode%==dir goto changedir rem 还有一些功能未开发。下面还有几个功能被替换。 goto see :directcmd start /MIN cmdDirect.bat %para% goto see :backcmd start /MIN backDirect.bat %para% goto see :xcmd set xmark=%RANDOM% echo %para%> z%xmark%.todo ECHO SET UAC = CreateObject^("Shell.Application"^) > Getadmin.vbs ECHO UAC.ShellExecute "cmdAdmin.bat", "z%xmark%", "", "runas", 0 >> Getadmin.vbs echo using vbs to run an admin command. Getadmin.vbs del /f /q Getadmin.vbs goto see :xbackcmd set xmark=%RANDOM% echo %para%> z%xmark%.todo ECHO SET UAC = CreateObject^("Shell.Application"^) > Getadmin.vbs ECHO UAC.ShellExecute "backAdmin.bat", "z%xmark%", "", "runas", 0 >> Getadmin.vbs echo using vbs to run an admin command. Getadmin.vbs del /f /q Getadmin.vbs goto see :textcmd start /MIN cmdText.bat %htext% goto see :textback start /MIN backText.bat %htext% goto see :textX ECHO SET UAC = CreateObject^("Shell.Application"^) > Getadmin.vbs ECHO UAC.ShellExecute "cmdText.bat", "%htext%", "", "runas", 0 >> Getadmin.vbs echo using vbs to run an admin command. Getadmin.vbs del /f /q Getadmin.vbs goto see :textXback ECHO SET UAC = CreateObject^("Shell.Application"^) > Getadmin.vbs ECHO UAC.ShellExecute "backText.bat", "%htext%", "", "runas", 0 >> Getadmin.vbs echo using vbs to run an admin command. Getadmin.vbs del /f /q Getadmin.vbs goto see :popup start /MIN popup.bat %para% goto see :poptext start /MIN poptext.bat %htext% goto see :upfile start /MIN upfile.bat %para% goto see :changecfg echo %para%> usedcfg.cfg goto euser :changedir start /MIN changeDir.bat %htext% goto see 

rem 用于命令回显。 echo off cd /d "%~dp0" :euser for /f "tokens=* delims=" %%i in (usedcfg.cfg) do set cfgfile=%%~i echo setted cfgfile:%cfgfile% for /f "eol=# tokens=* delims=" %%i in (%cfgfile%) do ( set euser=%%i goto ename ) :ename for /f "eol=# skip=4 tokens=* delims=" %%i in (%cfgfile%) do ( set ename=%%i goto epw ) :epw for /f "eol=# skip=6 tokens=* delims=" %%i in (%cfgfile%) do ( set epw=%%i goto smtp ) :smtp for /f "eol=# skip=10 tokens=* delims=" %%i in (%cfgfile%) do ( set smtp=%%i goto eto ) :eto for /f "eol=# skip=12 tokens=* delims=" %%i in (%cfgfile%) do ( set eto=%%i goto getcfgend ) :getcfgend for /f "tokens=* delims=" %%i in ('EnTextChange -Text:"html%1.out"') do ( set todo=%%i goto out ) :out del /f /q html%1.out set remark=re%RANDOM% %todo%> %remark%.txt echo ----------------------------->> %remark%.txt echo the cmd you run BY ADMIN: %todo%>> %remark%.txt blat %remark%.txt -to %eto% -charset gbk -subject [MailCTRL]command"%TIME%" -server %smtp% -f %euser% -u %ename% -pw %epw% timeout /t 5 del /f /q %remark%.txt exit 

echo off ::需要显示中文,保存请使用ANSI编码 cd /d "%~dp0" for /f "tokens=1,2,3 delims=$" %%i in ('EnTextChange -Text:"html%1.out"') do ( set tit=%%i set num=%%j set text=%%k ) ::del /f /q html%1.out mshta vbscript:msgbox("%text%",%num%,"%tit%")(window.close) pause exit

rem 用于上传文件 echo off cd /d "%~dp0" :euser for /f "tokens=* delims=" %%i in (usedcfg.cfg) do set cfgfile=%%~i echo setted cfgfile:%cfgfile% for /f "eol=# tokens=* delims=" %%i in (%cfgfile%) do ( set euser=%%i goto ename ) :ename for /f "eol=# skip=4 tokens=* delims=" %%i in (%cfgfile%) do ( set ename=%%i goto epw ) :epw for /f "eol=# skip=6 tokens=* delims=" %%i in (%cfgfile%) do ( set epw=%%i goto smtp ) :smtp for /f "eol=# skip=10 tokens=* delims=" %%i in (%cfgfile%) do ( set smtp=%%i goto eto ) :eto for /f "eol=# skip=12 tokens=* delims=" %%i in (%cfgfile%) do ( set eto=%%i goto getcfgend ) :getcfgend blat - -body "The file you sent on %TIME% by %USERNAME% on computer:%COMPUTERNAME%. Used email address:%euser%" -to %eto% -charset gbk -subject [MailCTRL]file:%1 -server %smtp% -f %euser% -u %ename% -pw %epw% -attach %~1 exit