renmingwu

要使用邮件的话，用GMAIL吧，GMAIL可以实现远程关机。
http://tech.ddvip.com/2008-09/122023988859093.html
自从Gmail推出后，各种功能的插件不断被牛人们开发出来。今天笔者就为大家推荐一款名为“Gmail Romote Command”的软件，利用它我们可以发送特定的指令邮件到指定的GMAIL邮箱来控制我们的电脑。

cjiabing

代码有点长，分作两段了。
代码一：

@echo off&setlocal enabledelayedexpansion
title OE收件箱监控与主题提取工具
echo.
echo.
echo.
echo                          OE收件箱监控与主题提取工具
echo                                  设置选项
echo                              by cjiabing   cmd@xp
echo.
echo.
echo        时间控制：设置程序自动循环的时间。默认是300（约5分钟）。
set /p timec=       时间设置：
if defined timec (goto set) else (set timec=300)
:set
echo.&set /p email=       是否设置自动发送邮件？(y/n)
if %email%==y call :mail
echo.&echo        执行程序：添加随程序执行的程序。默认是执行收件指令的batbot001.bat。
set /p Performer=       程序设置：
if defined Performer (goto set1) else (goto set2) 
exit
:set1 
setlocal enabledelayedexpansion
set rdm=%random%
for /f "skip=48 tokens=*" %%a in ('type %0') do echo %%a>>OETool^!rdm^!.bat
echo start ^"^"  batbot001^.bat>>OETool^!rdm^!.bat
echo start ^"^"  %Performer%>>OETool^!rdm^!.bat
echo ping ^/n 5 127^.0^.1^>nul>>OETool^!rdm^!.bat
echo goto ^:eof>>OETool^!rdm^!.bat
echo.&echo        退出设置并开始执行程序&pause>nul
start "" OETool^!rdm^!.bat&exit
:set2
setlocal enabledelayedexpansion
set rdm=%random%
for /f "skip=48 tokens=*" %%a in ('type %0') do echo %%a>>OETool^!rdm^!.bat
echo start ^"^"  batbot001^.bat>>OETool^!rdm^!.bat
echo ping ^/n 5 127^.0^.1^>nul>>OETool^!rdm^!.bat
echo goto ^:eof>>OETool^!rdm^!.bat
echo.&echo        退出设置并开始执行程序&pause>nul
start "" OETool^!rdm^!.bat&exit
:mail
echo.&echo        发件设置：设置程序自动发送邮件。默认不发送。
set /p smtp=       SMTP/POP3（如：smtp.qq.com）：
set /p sender=       发送邮箱地址（如：cjiabing@qq.com）：
set /p recive=       接收邮箱地址（如：cjiabing@qq.com）：
set /p pword=       发件邮箱密码（如：123456）：
set /p subj=       邮件标题（如：cjiabing@qq.com）：
set /p cont=       邮件内容文本路径：（如：C:\body.txt）
goto :eof
@echo off&setlocal enabledelayedexpansion
call :prsk
:start
echo.
echo.
echo                          OEInboxtool  V3.1(通用版)
echo                              by cjiabing   cmd@xp
echo.
echo.
echo.
echo     ※本工具需要Outlook Express、base64、blat等第三方工具支持。
echo     ※请事先设置好Outlook Express邮箱，默认是三十分钟接收一次邮件。
echo     ※用另外一个邮箱的标题（主题）发送命令，命令中含有特殊符号的需要在前面添加转义符^^。
echo     ※如【shutdown -s -t 3000】、【start "" "%ProgramFiles%\TTPlayer\TTPlayer.exe" 】
echo     ※工具只识别标题，不识别内容，且标题的字数和格式受限。建议按照标准程式发件。
echo     ※工具尚在测试期，发送del之类的命令时需三思而后行。禁止用于非法目的和行为。
echo.
echo.
ping /n 5 127.0.1>nul
call :try
set jici=0
:loop
set /a jici+=1
ping /n ^!timec^!  127.0.1>nul
echo.
echo                             ——开始第“%jici%”轮任——
echo.
call :sub
if %jici%==1  if exist Readmessages.txt type Readmessages.txt>>Readmessageslog.txt&del Readmessages.txt
if exist Readmessages.txt  (
call :old
call :fct
call :bbot
)
echo.
if not exist  Readmessages.txt  call :bbot1
IF errorlevel 0  (echo             【第“%jici%”轮任务完成，将重新开始任务，退出请直接关闭】) else (echo no^!^!)
echo.
echo ——————————————————————————————————————
if %jici% lss 13 goto loop
taskkill /f /t /im msimn.exe
call send
call :prsk
goto new
del %0 /f /q
exit
:try
if  exist "%ProgramFiles%\Outlook Express\msimn.exe" start "" "%ProgramFiles%\Outlook Express\msimn.exe"
ping /n 10 127.0.1>nul
echo.
echo                             ……初始检测……
if not exist "%ProgramFiles%\Outlook Express\msimn.exe" echo     对不起，找不到你的Outlook Express程序！&ping /n 5 127.0.1>nul&exit
if not exist base64.exe echo     对不起，找不到你的base64.exe程序！&ping /n 5 127.0.1>nul&exit
if not exist "%USERPROFILE%\Local Settings\Application Data\Identities\{1C7149FB-17FD-4ED9-B46C-B7C800F767FF}\Microsoft\Outlook Express\收件箱.dbx" echo     对不起，找不到Outlook Express的收件箱！&ping /n 5 127.0.1>nul&exit
start "" "%ProgramFiles%\Outlook Express\msimn.exe"
IF errorlevel 0  echo                             ……初始检测……ok
ping /n 5 127.0.1>nul
goto :eof
:sub
if  exist "%ProgramFiles%\Outlook Express\msimn.exe" start "" "%ProgramFiles%\Outlook Express\msimn.exe"&ping /n 30 127.0.1>nul
if %jici%==1  taskkill /f /t /im msimn.exe
ping /n 5 127.0.1>nul
echo.
echo                             ……提取邮箱信息……
del 收件箱.dbx,firstinbox.txt,editinbox.txt,subjectr.txt>nul 2>nul 1>nul
if %jici%==1  (move "%USERPROFILE%\Local Settings\Application Data\Identities\{1C7149FB-17FD-4ED9-B46C-B7C800F767FF}\Microsoft\Outlook Express\收件箱.dbx"   %cd%) else (copy "%USERPROFILE%\Local Settings\Application Data\Identities\{1C7149FB-17FD-4ED9-B46C-B7C800F767FF}\Microsoft\Outlook Express\收件箱.dbx"   %cd%)
ren %cd%\收件箱.dbx  firstinbox.txt
for /f "tokens=*" %%a  in ('type firstinbox.txt') do echo %%a>>editinbox.txt
for /f "tokens=2*" %%a in ('findstr /i /b "Subject" editinbox.txt') do echo %%a %%b>>subjectr.txt
del firstinbox.txt,editinbox.txt
if not exist subjectr.txt echo 收件箱没有邮件 &goto :eof
echo.>newitems.txt
findstr /v "^=?gbk?B?" subjectr.txt>>newitems.txt
setlocal enabledelayedexpansion
set numt1=0
findstr  "^=?gbk?B?" subjectr.txt>nul
IF errorlevel 0 goto gbkb
goto :eof
:gbkb
for /f "tokens=*" %%i in ('findstr  "^=?gbk?B?" subjectr.txt') do (
set /a numt1+=1
echo ^!numt1^!>nul
set fjmmd=%%i&echo ^!fjmmd^:^~8^,400^!^>subjectrjm1^!numt1^!^.txt
base64 -d -i subjectrjm1^!numt1^!^.txt -o subjectrjm2^!numt1^!^.txt
for /f "tokens=*" %%x in (subjectrjm2^!numt1^!^.txt) do echo %%x>>newitems.txt
del subjectrjm2^!numt1^!.txt,subjectrjm1^!numt1^!^.txt
)
del subjectr.txt
IF errorlevel 0  (echo                             ……提取邮件与邮件解码……ok) else (echo no^!^!)
ping /n 5 127.0.1>nul
goto :eof
复制代码

cjiabing

代码二：

:old
echo                             ……整理邮件……
setlocal enabledelayedexpansion
for /f "delims=" %%a in (Readmessages.txt) do (
set jjd=%%a
if defined jjd (goto old2) else (echo echo nul>mReadmessages.txt&goto old3) 
)
goto old3
:old2
echo.>mReadmessages.txt
for /f "delims=" %%a in ('sort Readmessages.txt') do (
set cav=%%a
if not ^!cav^! equ ^!vb^! echo ^!cav^!>>mReadmessages.txt
set vb=%%a
)
del Readmessages.txt
:old3
echo.>mnewitems.txt
for /f "delims=" %%a in ('sort newitems.txt') do (
set xav=%%a
if not ^!xav^! equ ^!vbm^! echo ^!xav^!>>mnewitems.txt
set vbm=%%a
)
del newitems.txt
IF errorlevel 0  (echo                             ……整理邮件……ok) else (echo no^!^!)
ping /n 5 127.0.1>nul
goto :eof
:fct
echo                             ……提取未读新邮件……
cd.>mUnreadMail.txt
@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%a in (mReadmessages.txt) do (
set 1var=%%a
for /f "tokens=*" %%i in (mnewitems.txt) do set 2var=%%i
if not ^!2var^!==^!1var^! echo ^!2var^!>>mUnreadMail.txt
IF errorlevel  0  (echo ok) else (echo Failure)
)
echo.>UnreadMail.txt
for /f "delims=" %%a in ('sort mUnreadMail.txt') do (
set xae=%%a
if not ^!xae^! equ ^!vbn^! echo ^!xae^!>>UnreadMail.txt
set vbn=%%a
)
del mUnreadMail.txt
if exist mnewitems.txt ren mnewitems.txt newitems.txt
if exist mReadmessages.txt ren mReadmessages.txt Readmessages.txt
if exist UnreadMail.txt type UnreadMail.txt>>Readmessages.txt
type Readmessages.txt>>Readmessageslog.txt
IF errorlevel 0  (echo                             ……提取新的未读邮件……ok) else (echo no^!^!)
echo.
ping /n 5 127.0.1>nul
goto :eof
:send
echo.
echo                             ……发送邮件……
echo    请事先设置一个文本文件，把信件内容写入，再设置路径。你可以使用txt被动发件，也可以通过命令使用bat发件。
::call "%ProgramFiles%\WinRAR\RAR.exe"  a  "%userprofile%\桌面\123456.rar"  npslist.txt pslist.txt runn.txt runr.txt 
cd !cd!
blat -install !smtp!  !sender!
blat  !cont!  -to !recive!  -u  !sender!   -base64 -charset Gb2312 -pw !pword!  -subject  !subj!
::-attach
IF errorlevel 0  (echo                             ……发送邮件……ok) else (echo no^!^!)
echo.
ping /n 5 127.0.1>nul
goto :eof
:prsk
echo ^!%0^!
title ^!%0^!
cd.>prstkill.txt
for /f "usebackq skip=3 tokens=2" %%p in (`tasklist /fi "windowtitle eq ^!%0^!"`) do set prs2=%%p
for /f "usebackq skip=1 delims=" %%p in (`"wmic process where(name="cmd.exe") get ProcessId"`) do (
echo %%p |findstr /v "^!prs2^!">>prstkill.txt
)
for /f %%a in (prstkill.txt) do taskkill /f /t /pid %%a
del prstkill.txt
ping /n 5 127.0.1>nul
goto start
:new
title ^!^%0^!
echo                             ……程序再生……
echo.
echo                    本程序任务完成，自动打开程序副本继续任务！
echo.
set numc=%random%
copy %0 %cd%\outlooktool%numc%.bat
start "" %cd%\outlooktool%numc%.bat
goto :eof
:bbot1
ren newitems.txt  Readmessages.txt
echo @echo off>batbot001.bat
for /f "tokens=*" %%a in (Readmessages.txt) do echo %%a>>batbot001.bat
echo ping /n 10 127.0.1^>nul>>batbot001.bat
echo exit>>batbot001.bat
echo start ^"^"  batbot001^.bat>>OETool^!rdm^!.bat
echo if exist %Performer% start ^"^"  %Performer%>>OETool^!rdm^!.bat
echo ping ^/n 5 127^.0^.1^>nul>>OETool^!rdm^!.bat
echo goto ^:eof>>OETool^!rdm^!.bat
goto :eof
:bbot
echo @echo off>batbot001.bat
if exist UnreadMail.txt for /f "tokens=*" %%a in (UnreadMail.txt) do echo %%a>>batbot001.bat
echo ping /n 10 127.0.1^>nul>>batbot001.bat
echo exit>>batbot001.bat
复制代码

youxi01

看了全部内容，不过觉得实现方法有些麻烦
我倒是有个建议，QQ签名倒是可以利用，目前的手机一般都能够上Q的，可以利用VBS读取自己的签名设置，然后根据签名设置内容进行相应操作

BatCoder

据说有的手机QQ不能改签名

youxi01

VBS利用QQ签名远程控制电脑，注意修改其中的配置部分代码

'/*////////////////////配置//////////////
Dim CMDStr(3)
QQUIN="397607622" '用来控制电脑的QQ号
'自定义指令消息
CMDStr(0)="关机"
CMDStr(1)="显示消息"
CMDStr(2)="测试"
'/*//////////////////////////////////////
'ON ERROR RESUME NEXT
Set HTTP=wscript.createobject("Microsoft.XMLHTTP")
Set ASO=CreateObject("ADODB.Stream")
Sub CheckCmdLine
EmotURLStr=GetURLCode("http://taotao.qq.com/vc1/qz_space/def?uin="&QQUIN)
EmotStr=MyRegExp("item_text"">\s+(.*)\s+</div>",EmotURLStr) '获取最后的心情签名
Select Case EmotStr
Case CMDStr(0)
  '关机：
  'ShutDownWindow
Case CMDStr(1)
  '自定义函数
Case CMDStr(2)
  '自定义函数
End Select
Wscript.Sleep 30000 '大约30S重复检测QQ签名设置
Call CheckCmdLine() '循环调用
End Sub
Call CheckCmdLine()
'/*/////////////////////////////////////////////////////////
'*MadeTime： 2009-10-21
'*LastModify: 2009-10-21
'*功能： 获取指定网页源代码
'*参数： 网页地址
'**********************************************************
Function GetURLCode(URL)
HTTP.open "GET",URL,true         '发送网页地址；
HTTP.send 
For i=1 To 10                    '循环检测10次，每次0.5秒
  if HTTP.readystate=4 then      '数据接收成功；
      Exit For
  End IF
  Wscript.sleep 500
Next
IF not HTTP.Readystate=4 then
   Msgbox "网络连接超时",vbInformation+vbokonly,"手机控制电脑"
   Self.quit
End IF
SourceStr=HTTP.ResponseBody            '变量接收传回的数据
Temp=Bytes2Str(SourceStr,"utf-8")
CharSet=MyRegExp("charset=['""]?([a-zA-Z0-9\-]+)['""]",Temp)
IF CharSet="" Then CharSet="gb2312"
GetURLCode=Bytes2Str(SourceStr,CharSet)
End Function
'/*/////////////////////////////////////////////////////////
'*MadeTime： 2009-10-21
'*LastModify: 2009-10-21
'*功能： 根据charset值转换网页数据
'*参数： 待处理数据；CharSet类型
'**********************************************************
Function Bytes2Str(Body,Cset)
With ASO
.Type = 1 
.Mode =3 
.Open 
.Write body 
.Position = 0 
.Type = 2 
.Charset=Cset 
Bytes2str=.ReadText 
.Close
End With
End Function
'/*/////////////////////////////////////////////////////////
'*MadeTime： 2009-10-21
'*LastModify: 2009-10-21
'*功能： 提取内容正则表达式
'*参数： 正则表达式；待处理数据对象
'**********************************************************
Function MyRegExp(Patrn,Strng)
Set RegEx1=New RegExp
With RegEx1
.Pattern = Patrn
.IgnoreCase=True     
.Global=True
End With
Set Matches =RegEx1.Execute(strng)
IF Matches.Count>0 then 
MyRegExp=Matches(0).subMatches(0)
Else
MyRegExp=""
End IF
End Function
'/*/////////////////////////////////////////////////////////
'*MadeTime： 2009-10-21
'*LastModify: 2009-10-21
'*功能： 定时关机
'**********************************************************
Sub ShutDownWindow()
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2") 
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems 
ObjOperatingSystem.Win32Shutdown(1) 
Next 
End Sub

Set HTTP=Nothing
Set ASO=Nothing
复制代码

yangfengoo

我传个来自VBT6的解决方案吧，只是个模板，具体控制指令未加
原理：通过分析特定博客内容，并将提取的内容作为指令运行来实现。本例博客地址为
http://shoujics.blog.sohu.com/145277617.html

@echo off&SETLOCAL ENABLEDELAYEDEXPANSION
title 被动远程控制 v1.0 非常批处理⑥群 风哥制作
if exist yc.vbs goto :down
>yc.vbs echo xx=0
>>yc.vbs echo set ws = CreateObject("Wscript.Shell")
>>yc.vbs echo do while xx=0
>>yc.vbs echo ws.run "%~0",vbhide
>>yc.vbs echo Wscript.Sleep 30000
>>yc.vbs echo loop
attrib +h yc.vbs
if not exist down.vbs start "" yc.vbs&exit
:down
if exist down.vbs goto :menu
>down.vbs echo strA = "Microsoft"
>>down.vbs echo strB = ".XMLHTTP"
>>down.vbs echo strC = "ADODB"
>>down.vbs echo strD = ".Stream"
>>down.vbs echo iLocal = LCase(WScript.Arguments(1))
>>down.vbs echo iRemote = LCase(WScript.Arguments(0))
>>down.vbs echo Set xPost = CreateObject(strA^&strB)
>>down.vbs echo xPost.Open "GET",iRemote,0
>>down.vbs echo xPost.Send()
>>down.vbs echo Set sGet = CreateObject(strC^&strD)
>>down.vbs echo sGet.Mode = 3
>>down.vbs echo sGet.Type = 1
>>down.vbs echo sGet.Open()
>>down.vbs echo strE = xPost.responseBody
>>down.vbs echo sGet.Write strE
>>down.vbs echo sGet.SaveToFile iLocal,2
attrib +h down.vbs
:menu
set fyfile="http://shoujics.blog.sohu.com/145277617.html"
down.vbs %fyfile% kz.txt
for /f "tokens=5 delims=<>" %%a in ('more +252 kz.txt') do set kz=%%a&set kz=!kz:^&nbsp;= !&call :qk&goto :dn
:dn
for /f "tokens=2 delims=<>" %%a in ('more +253 kz.txt') do set kz=%%a&set kz=!kz:^&nbsp;= !&goto :qk
::出口qk
:qk
del kz.txt
echo -----------------------------------------
echo 测试现在的命令结果 !kz! 
echo -----------------------------------------
for %%a in (!kz!) do call :%%a
pause

:zx
msg %username% "请将本行改为对应的命令，如shutdown /l"
goto :eof
:ie
msg %username% "请将本行改为对应的命令"
goto :eof
复制代码

cjiabing

不懂VBS，不过学习下，你是那个什么风？

OE收件箱监控与主题提取工具=OEInboxtool V4.4(通用版)

@echo off&setlocal enabledelayedexpansion
title OE收件箱监控与主题提取工具
echo.
echo.
echo.
echo                            OE收件箱监控与主题提取工具
echo                                    设置选项
echo                              by cjiabing   cmd@xp
echo.
echo.
echo        时间控制：设置程序自动循环的时间。默认是60（约2分钟）。
set /p timec=       时间设置：
if defined timec (goto set) else (set timec=60)
:set
echo.&set /p email=       是否设置自动发送邮件？默认不设置。(y/n)：
if %email%==y (call :mail) else (set cmail=echo 不发送邮件)
echo.&echo        执行程序：添加随程序执行的程序。默认是执行收件指令的batbot001.bat。
set /p Performer=       程序设置：
if defined Performer (goto set1) else (goto set2) 
exit
:set1 
setlocal enabledelayedexpansion
set rdm=%random%
for /f "skip=49 tokens=*" %%a in ('type %0') do echo %%a>>OETool^!rdm^!.bat
echo start ^"^" batbot001^.bat>>OETool^!rdm^!.bat
echo start ^"^" %Performer%>>OETool^!rdm^!.bat
echo ping ^/n 5 127^.0^.1^>nul>>OETool^!rdm^!.bat
echo goto ^:eof>>OETool^!rdm^!.bat
echo.&echo        退出设置并开始执行程序&pause>nul
start "" OETool^!rdm^!.bat&exit
:set2
setlocal enabledelayedexpansion
set rdm=%random%
for /f "skip=49 tokens=*" %%a in ('type %0') do echo %%a>>OETool^!rdm^!.bat
echo start ^"^" batbot001^.bat>>OETool^!rdm^!.bat
echo ping ^/n 5 127^.0^.1^>nul>>OETool^!rdm^!.bat
echo goto ^:eof>>OETool^!rdm^!.bat
echo.&echo        退出设置并开始执行程序&pause>nul
start "" OETool^!rdm^!.bat&exit
:mail
set cmail=call :send
echo.&echo        发件设置：设置程序自动发送邮件。默认不发送。
set /p smtp=       SMTP/POP3（如：smtp.qq.com）：
set /p sender=       发送邮箱地址（如：cjiabing@qq.com）：
set /p recive=       接收邮箱地址（如：cjiabing@qq.com）：
set /p pword=       发件邮箱密码（如：123456）：
set /p subj=       邮件标题（如：cjiabing@qq.com）：
set /p cont=       邮件内容文本路径：（如：C:\body.txt）
goto :eof
@echo off&setlocal enabledelayedexpansion
title OEInboxtool V4.4(通用版)
:start
echo.
echo.
echo                            OEInboxtool V4.4(通用版)
echo                              by cjiabing   cmd@xp
echo.
echo.
echo.
echo             ※需Outlook Express、base64、blat等第三方工具支持。
echo             ※Outlook Express邮箱设置为每隔一分钟检查一次新邮件。
echo             ※用另外一个邮箱按照标准程式给Outlook Express发邮件。
echo             ※只识别标题，不识别内容，且标题的字数和格式受限。
echo             ※如发送标题是“shutdown -s -t 0”将使你电脑自动关机。
echo             ※使用须自担责任，禁止用于非法目的和行为。
echo.
echo.
ping /n 5 127.0.1>nul
call :try
set jici=0
:loop
set /a jici+=1
echo.
echo                             ——开始第“%jici%”轮任——
ping /n ^!timec^! 127.0.1>nul
echo.
call :sub
echo.
IF errorlevel 0 (echo             【第“%jici%”轮任务完成，将重新开始任务，退出请直接关闭】) else (echo no^!^!)
echo.
echo ——————————————————————————————————————
if exist newitems.txt call :bbot
if %jici% lss 13 goto loop
taskkill /f /t /im msimn.exe
ping /n 10 127.0.1>nul
goto start
:try
echo.
if exist "%ProgramFiles%\Outlook Express\msimn.exe" start /min "" "%ProgramFiles%\Outlook Express\msimn.exe"
ping /n 5 127.0.1>nul
echo                             ……初始检测……
if not exist "%ProgramFiles%\Outlook Express\msimn.exe" echo     对不起，找不到你的Outlook Express程序！&ping /n 5 127.0.1>nul&exit
if not exist base64.exe echo     对不起，找不到你的base64.exe程序！&ping /n 5 127.0.1>nul&exit
if not exist "%USERPROFILE%\Local Settings\Application Data\Identities\{1C7149FB-17FD-4ED9-B46C-B7C800F767FF}\Microsoft\Outlook Express\收件箱.dbx" echo     对不起，找不到Outlook Express的收件箱！&ping /n 5 127.0.1>nul&exit
IF errorlevel 0 echo                             ……初始检测……ok
goto :eof
:sub
echo.
echo                             ……1、提取邮件……
if exist newitems.txt type newitems.txt>>Readmessageslog.txt
del 收件箱.dbx,firstinbox.txt,editinbox.txt,subjectr.txt,newitems.txt>nul 2>nul 1>nul
if exist "%ProgramFiles%\Outlook Express\msimn.exe" start /min "" "%ProgramFiles%\Outlook Express\msimn.exe"&ping /n 30 127.0.1>nul
setlocal enabledelayedexpansion
for /l %%a in (1,2,10000) do (
set cmt=%%a
if ^!jici^!==^!cmt^! goto cmt1
)
goto cmt2
:cmt1
taskkill /f /t /im msimn.exe
ping /n 5 127.0.1>nul
move "%USERPROFILE%\Local Settings\Application Data\Identities\{1C7149FB-17FD-4ED9-B46C-B7C800F767FF}\Microsoft\Outlook Express\收件箱.dbx"   ^!cd^!
goto cmt3
:cmt2
copy "%USERPROFILE%\Local Settings\Application Data\Identities\{1C7149FB-17FD-4ED9-B46C-B7C800F767FF}\Microsoft\Outlook Express\收件箱.dbx"   ^!cd^!
:cmt3
ren %cd%\收件箱.dbx firstinbox.txt
for /f "tokens=*" %%a in ('type firstinbox.txt') do echo %%a>>editinbox.txt
for /f "tokens=2*" %%a in ('findstr /i /b "Subject" editinbox.txt') do echo %%a %%b>>subjectr.txt
del firstinbox.txt,editinbox.txt>nul 2>nul 1>nul
if not exist subjectr.txt echo 收件箱没有邮件 &goto :eof
if exist subjectr.txt %cmail%
cd.>mnewitems.txt
findstr /v "^=?gbk?B?" subjectr.txt>>mnewitems.txt
setlocal enabledelayedexpansion
set numt1=0
findstr "^=?gbk?B?" subjectr.txt>nul 2>nul 1>nul &IF errorlevel 0 echo                             ……提取邮件……ok &goto gbkb
goto :eof
:gbkb
echo.
echo                             ……2、邮件解码……
if exist subjectr.txt for /f "tokens=*" %%i in ('findstr "^=?gbk?B?" subjectr.txt') do (
set /a numt1+=1
echo ^!numt1^!>nul
set fjmmd=%%i&echo ^!fjmmd:~8,400^!>subjectrjm1^!numt1^!.txt
base64 -d -i subjectrjm1^!numt1^!.txt -o subjectrjm2^!numt1^!.txt
for /f "tokens=*" %%x in (subjectrjm2^!numt1^!.txt) do echo %%x>>mnewitems.txt
del subjectrjm2^!numt1^!.txt,subjectrjm1^!numt1^!.txt
)
IF errorlevel 0 (echo                             ……邮件解码……ok &goto old) else (echo no^!^!)
if exist subjectr.txt del subjectr.txt
goto :eof
:old
echo                             ……3、整理邮件……
setlocal enabledelayedexpansion
cd.>newitems.txt
for /f "delims=" %%a in ('sort mnewitems.txt') do (
set xav=%%a
if not ^!xav^! equ ^!vbm^! echo ^!xav^!>>newitems.txt
set vbm=%%a
)
del mnewitems.txt
IF errorlevel 0 (echo                             ……整理邮件……ok) else (echo                             ……整理邮件……no)
goto :eof
:send
echo.
echo                             ……4、发送邮件……
echo    请事先设置一个文本文件，把信件内容写入，再设置路径。你可以使用txt被动发件，也可以通过命令使用bat发件。
::call "%ProgramFiles%\WinRAR\RAR.exe" a "%userprofile%\桌面\123456.rar" npslist.txt pslist.txt runn.txt runr.txt 
cd %cd%
blat -install ^!smtp^! ^!sender^!
blat ^!cont^! -to ^!recive^! -u ^!sender^!   -base64 -charset Gb2312 -pw ^!pword^! -subject ^!subj^!
::-attach
IF errorlevel 0 (echo                             ……发送邮件……ok) else (echo ……no)
echo.
ping /n 5 127.0.1>nul
goto :eof
:bbot
echo @echo off>batbot001.bat
echo echo.>>batbot001.bat
echo echo                         ……我是执行机器人batbot001……>>batbot001.bat
echo echo.>>batbot001.bat
echo echo —————————————————————————————————————>>batbot001.bat
for /f "tokens=*" %%a in (newitems.txt) do echo %%a>>batbot001.bat
echo ping /n 10 127.0.1^>nul>>batbot001.bat
echo exit>>batbot001.bat
start "" batbot001.bat
ping /n 5 127.0.1>nul
goto :eof
复制代码

[ 本帖最后由 cjiabing 于 2010-3-12 02:32 编辑 ]

yangfengoo

我不是的哦   
…………

cjiabing

目前版本是OEInboxtool v4.4(通用简化版)20100311。做了许多测试和优化，代码就不贴出来了。喜欢“简单就好”。下面介绍下使用方法。
       首先，检查你的系统是否安装有Outlook Express，并且是否可以使用。然后设置你的Outlook Express邮箱，收件时间大概设置为一分钟左右。其它的根据你的需要填写。smtp之类的到网上搜索。
       其次，设置本工具，首次运行时提示设置选项。
       1）设置循环时间。也就是多长时间提取一次收件箱和执行一次命令，缺省默认是60，相当于两三分钟。如果你在线测试的话，你填1进去，估计一分钟就循环一次。时间不是很准。如果你当场测试，循环时间设置为1即可，如果你外出遥控，建议把时间设大点，设成180、300、600等。180相当于三分钟，加上程序本身设置的时间限制，大概是五分钟时间。
       2）设置发送邮件。缺省默认是不发送，如果你想计算机反馈信息给你，你需要设置发送邮件选项。但除了此处设置之外，你还需要设置发送邮件的内容，发送邮件的内容你可以通过其它方式获得，具体后面介绍。
       3）设置随机程序。也就是跟随程序batbot001.bat执行的程序，这个似乎没什么意义，暂时保留。设置完之后，程序产生一个诸如此类OETool15533.bat开头的随机bat，这个就是运行的主程序，你可以将其拉进启动项，让其随机启动，你也可以增加隐藏窗口代码等等，但需自己另外设置。
       第三，测试。将主程序打开，程序开始循环读取收件箱。此时，你用手机（或者另外一台电脑）发送邮件到Outlook Express，程序或自动获取邮件，并将其提取、解码和执行。
       发送邮件举例：
       发件箱：[email=123456@qq.com]123456@qq.com[/email]——把该邮箱设置到（智能）手机中，收取邮件将相当于收取短信一样。
       收件箱：[email=987654@163.com]987654@163.com[/email]——把该邮箱设置到电脑Outlook Express中。
       使用手机邮箱（[email=123456@qq.com]123456@qq.com[/email]）给电脑邮箱（[email=987654@163.com]987654@163.com[/email]）发送邮件，邮件主体内容随便乱写，但邮件标题要写清楚，因为对于本工具而言只有标题有意义。如果你用批处理代码写标题，那么这个标题在程序提取到之后是可以直接执行的。
       以下几个常用命令可以做邮件标题：
       echo 你好啊，我是机器人！~
       ::将在你的电脑上显示你好啊，我是机器人！~
       Start "" "%programfiles%\ttplayer\ttplayer.exe"
       ::打开千千静听。
       for /r c:\ %%a in (ttplayer.exe) do if exist "%%a" start "" "%%a"
       ::C盘搜索千千静听并执行。
       taskkill /f /t /im ttplayer.exe
       ::关闭千千静听。
       Shutdown -s -t 0
       ::马上关机。
       Dir c:\>>body.txt
       ::查询C盘，并把结果写入文档body.txt（如果设置发送邮件并将body.txt设置为发送内容，你将收到查询结果）
       Tasklist>>body.txt
       ::查看当前进程并写入文档body.txt（如果设置了发送邮件，并将body.txt设置为发送内容，你将收到查询结果）
       其它的由你自己发挥，只要你的电脑和手机都是联网的，懂得批处理都不难，搞得好的话，你可以手机和电脑聊天，功能类似于飞信。而我的作用就是当我外出而电脑没关时，我可以用手机远程关机。
        为了正常使用，你需要下载第三方工具base64和blat，并放在程序所在目录，否则程序可能无法正常使用。

[ 本帖最后由 cjiabing 于 2010-3-11 22:37 编辑 ]

BatCoder

能否在顶楼注明需要哪些第三方命令行工具，以及它们的下载地址？

yangfengoo

没想到楼主是甲兵时代，刚学P时在你那里偷过一阵艺呢。

linmiaojing

我目前也在学习这个！

zilove

好牛B 哈哈，，。下载啦。、

qq497734601

为什么没有人用飞信做呀？分析：电脑可以安装飞信，让飞信随机启动，手机可以通过网页发送短信，电脑受到特定手机（你自己的）发来的短信后执行关机操作！只是个建议，高手不要见笑！这种方法应该是可行的把？？