做个回贴机,谁有思路，用dos
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 自动回贴机???
查看 715 回复 1
楼 主
自动回贴机???
发表于 2009-07-12 13:53 · 中国 吉林 长春 电信
第 2 楼
发表于 2009-08-10 07:20 · 中国 北京 中电华通通信有限公司
我也想写一个,怕被封 你的回帖无法和当前页面内容相联系,很容易让斑竹发现,轻者扣分,重者直接over
回帖.bat
@echo off
color 1f
title 自动回帖--xswdong
mode con cols=20 lines=1
PUSHD %~dp0
for /f "delims=: tokens=2" %%a in ('find /c /v "" "回帖.txt"') do set n=%%a
set /a m=%random% %% n
if %m%==0 (set skip=) else set skip=skip=%m%
for /f "%skip% delims=" %%a in (回帖.txt) do set "str=%%a" & goto copy
:copy
echo %str%| "winclip.exe" -c
回帖.vbs
自动回帖注册表.bat
@echo Set WshShell= WScript.CreateObject("WScript.Shell")>回帖.vbs
@echo WshShell.AppActivate "" >>回帖.vbs
@echo WScript.Sleep 500 >>回帖.vbs
@echo WshShell.SendKeys "^v">>回帖.vbs
@echo WshShell.SendKeys "^~">>回帖.vbs
::使用ie内核浏览器右键
reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\自动回帖" /v "contexts" /t REG_DWORD /d "0x000000f3" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\自动回帖" /ve /t REG_SZ /d "%~dp0回帖.bat" /f
:ie按钮
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "ButtonText" /t REG_SZ /d "回帖" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "CLSID" /t REG_SZ /d "{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "Default Visible" /t REG_SZ /d "Yes" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "Exec" /t REG_SZ /d "%~dp0回帖.bat" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "HotIcon" /t REG_SZ /d "%~dp0回帖.ico" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "Icon" /t REG_SZ /d "%~dp0回帖.ico" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "MenuText" /t REG_SZ /d "回帖" /f
[ Last edited by xswdong on 2009-8-10 at 10:12 ]
回帖.bat
@echo off
color 1f
title 自动回帖--xswdong
mode con cols=20 lines=1
PUSHD %~dp0
for /f "delims=: tokens=2" %%a in ('find /c /v "" "回帖.txt"') do set n=%%a
set /a m=%random% %% n
if %m%==0 (set skip=) else set skip=skip=%m%
for /f "%skip% delims=" %%a in (回帖.txt) do set "str=%%a" & goto copy
:copy
echo %str%| "winclip.exe" -c
回帖.vbs
自动回帖注册表.bat
@echo Set WshShell= WScript.CreateObject("WScript.Shell")>回帖.vbs
@echo WshShell.AppActivate "" >>回帖.vbs
@echo WScript.Sleep 500 >>回帖.vbs
@echo WshShell.SendKeys "^v">>回帖.vbs
@echo WshShell.SendKeys "^~">>回帖.vbs
::使用ie内核浏览器右键
reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\自动回帖" /v "contexts" /t REG_DWORD /d "0x000000f3" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\自动回帖" /ve /t REG_SZ /d "%~dp0回帖.bat" /f
:ie按钮
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "ButtonText" /t REG_SZ /d "回帖" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "CLSID" /t REG_SZ /d "{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "Default Visible" /t REG_SZ /d "Yes" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "Exec" /t REG_SZ /d "%~dp0回帖.bat" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "HotIcon" /t REG_SZ /d "%~dp0回帖.ico" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "Icon" /t REG_SZ /d "%~dp0回帖.ico" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000026}" /v "MenuText" /t REG_SZ /d "回帖" /f
[ Last edited by xswdong on 2009-8-10 at 10:12 ]
附件
回帖.rar (23.7 KiB, 下载次数: 17)
论坛跳转: