Posted on 2009-01-30 22:32
S.l.e!ep.￠% 閱讀(575)
評(píng)論(0) 編輯 收藏 引用 所屬分類:
DOS
多QQ自動(dòng)登陸 10.18更新
"PWDHASH生成工具"和"VBS版QQ自動(dòng)登錄"已經(jīng)打包，可以下載
增加了從注冊(cè)表讀取QQ的安裝路徑。如果是綠色版的QQ（注冊(cè)表中，沒有路徑）會(huì)全盤搜索QQ，為了下次登錄QQ方便，會(huì)將路徑寫進(jìn)注冊(cè)表
把start [QQ路徑] 修改為start "" "[QQ路徑]" (未測(cè)試)
本批處理僅供參考，需要更具實(shí)際情況修改，如果你懶得修改、或不會(huì)修改，可以試試VBS版的^_^其實(shí)不管用什么方法自動(dòng)登錄,原理是一樣的（用sendkey的方法除外）,都是利用QQ的一個(gè)接口(起初騰訊是為了讓QQ和TM無縫切換的)
復(fù)制內(nèi)容到剪貼板
代碼:
start [QQ路徑] /START QQUIN:[QQ號(hào)碼] PWDHASH:[此處為密碼加密后的字符串] /STAT:41? ?(41表示在線 隱身用40)復(fù)制內(nèi)容到剪貼板
代碼:
@echo off
color 0a
::定義顏色
::============================密碼部分開始============================
::? ?? ?? ? ╔══════════════════════╗
::? ?? ?? ? ║? ?? ???編寫：野菜??hi.baidu.com/jsj30651? ?║
::? ?? ?? ? ╠══════════════════════╣
::? ?? ?? ? ║? ?? ?? ? ＱＱ：９５９２１２６７７? ?? ?? ? ║
::? ?? ?? ? ╚══════════════════════╝
set cishu=3
::定義最高嘗試次數(shù)
set mima=123
::定義密碼
set shijian=5
::定義超過嘗試次數(shù)后多少秒后自動(dòng)退出
set times=%cishu%
echo 請(qǐng)輸入密碼：
echo 注：回車直接退出?。。?br />set /p pass=
goto kaishihou
:kaishi
set /p pass="請(qǐng)輸入密碼："
:kaishihou
if %pass%=="" goto kaishi
cls
if %pass%==%mima% goto start
set /a times=%times%-1
if %times%==0 goto jieshu
echo 對(duì)不起，密碼錯(cuò)誤！請(qǐng)重新輸入！
echo 還有%times%次機(jī)會(huì)
goto kaishi
:jieshu
echo 對(duì)不起，你已連續(xù)輸錯(cuò)密碼%cishu%次！??！
echo 程序?qū)?shijian%秒后自動(dòng)退出?。?！
ping -n %shijian% 127.0.0.1>nul
exit
:start
::為了不讓別人看到密碼，可以用BAT轉(zhuǎn)EXE工具，把批處理轉(zhuǎn)換成EXE可執(zhí)行文件。
::============================密碼部分結(jié)束============================
::============================尋找QQ路徑============================
for /f "skip=4 tokens=2,*" %%i in ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install"') do (
? ? set QQ=%%j.\QQ.exe
) >nul 2>nul
cls
if not '%QQ%'=='' goto fndqq
echo 注冊(cè)表中沒有QQ的安裝信息，正在全盤搜索……
for %%a in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
? ? pushd %%a:\
? ? for /r %%b in (.) do (
? ?? ???if exist %%b\QQ.exe set QQ=%%b\QQ.exe
? ? )
) >nul 2>nul
popd
set regadd=%QQ:~0,-8%
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install" /t REG_SZ /d %regadd% >nul 2>nul
cls
:fndqq
::============================尋找QQ路徑============================
::==========================主批處理部分開始==========================
echo 請(qǐng)選擇:
echo.
echo? ?? ???1、只登陸ＱＱ《９４７０６４９９９》
echo.
echo? ?? ???2、只登陸ＱＱ《９５９２１２６７７》
echo.
echo? ?? ???3、同時(shí)登陸以上兩個(gè)ＱＱ
echo.
echo? ?? ???4、登陸其他ＱＱ
echo.
echo? ?? ???5、關(guān)閉所有ＱＱ ! ! !
echo.
::顯示可以選擇的選項(xiàng)
set /p choose="請(qǐng)輸入序號(hào):"
::輸入上面的選項(xiàng)
if %choose%==1 goto 1
if %choose%==2 goto 2
if %choose%==3 goto 3
if %choose%==4 goto 4
if %choose%==5 goto 5
::根據(jù)輸入的序號(hào)判斷下一步跳轉(zhuǎn)到哪里
:1
start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此處為密碼加密后的字符串] /STAT:41
::自動(dòng)登陸QQ：947064999
exit
:2
start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此處為密碼加密后的字符串] /STAT:41
::自動(dòng)登陸QQ：959212677
exit
:3
start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此處為密碼加密后的字符串] /STAT:41
ping -n 5 127.0.0.1>nul
::設(shè)置延時(shí)5秒后運(yùn)行下一條命令
start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此處為密碼加密后的字符串] /STAT:41
exit
:4
start "" "%QQ%"
::直接打開QQ
exit
:5
taskkill /im QQ.exe /f /t
::結(jié)束所有QQ進(jìn)程
exit
::==========================主批處理部分結(jié)束==========================[
本帖最后由 jsj30651 于 2008-12-16 19:17 編輯 ]