做个回贴机,谁有思路，用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 ]