自动回贴机??? - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

我也想写一个,怕被封你的回帖无法和当前页面内容相联系,很容易让斑竹发现,轻者扣分,重者直接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楼　bluewaterx	发表于 2009-07-12 13:53
初级用户　发帖 68　积分 132
自动回贴机??? 做个回贴机,谁有思路，用dos

第2楼　xswdong	发表于 2009-08-10 07:20
中级用户　发帖 129　积分 216
我也想写一个,怕被封你的回帖无法和当前页面内容相联系,很容易让斑竹发现,轻者扣分,重者直接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 ] 附件回帖.rar (23.7 KiB)