中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 自动回贴机???

bluewaterx
初级用户

积分 132
发帖 68
注册 2008-7-29
状态离线

『楼主』: 自动回贴机???

做个回贴机,谁有思路，用dos

2009-7-12 13:53

xswdong
中级用户

积分 216
发帖 129
注册 2007-2-14
状态离线

『第 2 楼』:

我也想写一个,怕被封你的回帖无法和当前页面内容相联系,很容易让斑竹发现,轻者扣分,重者直接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 ]

附件 1: 回帖.rar (2009-8-10 10:09, 23.7 K,下载次数： 17)

2009-8-10 07:20

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: