[代码合集] 批处理注册QQ帐号

ptsdy

@echo off &goto vbs
dim title
dim url
dim txt
title="QQ注册" 
url="http://zc.qq.com/chs/index.html?type=1"
txt="qq_register.txt" 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set WshShell = WScript.CreateObject("WScript.Shell") 
set hd=fso.OpenTextFile(txt) 
set ie=WScript.CreateObject("InternetExplorer.Application") 
ie.visible = True 
WScript.Sleep 200
ie.navigate url
WScript.Sleep 200 
WshShell.AppActivate title
WScript.Sleep 5000
end
:vbs
color 27
echo 南无七俱胝佛母大圣准提王菩萨!
echo 南无七俱胝佛母大圣准提王菩萨!
echo 南无七俱胝佛母大圣准提王菩萨!
echo.&echo 注意QQ用户和密码中不能含有文字！
if not exist qq_register.txt cd.>qq_register.txt
echo 已在当前目录产生注册文本文件qq_register.txt !!!
cd.>"%temp%\qq.vbs"
rem cd.>"%temp%\qq.vbs"
mshta vbscript:msgbox("输入法默认必须为英文状态,否则会出错！"+vbcrlf+"用户名和密码不能含文字！！！",36,"注册QQ用户")(window.close)
setlocal enabledelayedexpansion
for /f  "skip=1 delims=" %%i in (%~nx0) do (
    if "%%i" equ "end"  (
        echo.&echo 正在产生可执行程序 ........ 
        call :bat
        echo WScript.Sleep 200 >>"%temp%\qq.vbs"
        echo WshShell.SendKeys "2000"  >>"%temp%\qq.vbs"  
        call :tab
        echo WScript.Sleep 200 >>"%temp%\qq.vbs"
        echo WshShell.SendKeys "1"  >>"%temp%\qq.vbs"
        call :tab
        echo WScript.Sleep 200 >>"%temp%\qq.vbs"
        echo WshShell.SendKeys "1"  >>"%temp%\qq.vbs" 
        call :tab & call :tab & call :tab  & call :tab 
        cscript //nologo "%temp%\qq.vbs" & echo 程序执行完毕！
        pause & goto :eof  
    )
    echo %%i >>"%temp%\qq.vbs"
)
endlocal
pause
goto :eof
:bat
@echo off
set num=0
title 洪腾云数码QQ注册器  qq号:670150281
for %%k in ("qq_register.txt") do (rem echo %%~zk
    if %%~zk leq 5  (
       echo example: kuqd1838 yqd12345_tdk
       echo Please input user and password ！！！ 
       start /wait "" "qq_register.txt") )
for %%k in ("qq_register.txt") do (rem echo %%~zk
    if %%~zk leq 5  (echo.& echo qq_register.txt中的用户名和密码不符合要求，请手动输入！！！
       echo 例：注册用户名：kuqd1838
       echo 例：注册的密码：yqd12345_tdk
       set /p user=注册用户名：
       set /p pwd=密码：
       if not defined user echo 没有设置用户，重新输入！！！&& pause & exit
       if not defined pwd echo 没有设置密码，重新输入！！！&& pause & exit
       set var=!user! !pwd!
       set var="!var!"
    )
)
if not defined user if not defined pwd  set var=qq_register.txt & rem echo no ........ 
echo. & echo. & setlocal enabledelayedexpansion
for /f  "tokens=1,2 delims= " %%i in (!var!) do (rem echo %%i
    rem echo "%%j" & pause
    if "%%j" equ "" echo 没有设置用户或者密码，重新输入！！！& pause && start qq_register.txt & exit
    echo 填写QQ邮箱帐号........
    echo %%i  && call :str %%i
    call :tab & call :tab
    echo 填写呢称...........
    echo %%i  && call :str %%i
    call :tab
    echo 填写密码...........
    echo %%j  && call :str %%j
    call :tab
    echo 确认密码...........
    echo %%j  && call :str %%j
    call :tab & call :tab & call :tab & call :tab    
)
mshta vbscript:msgbox("程序运行过程中不要移动鼠标和按键！",36,"注意：")(window.close)
endlocal & goto :eof
:str
set "str=%1"
rem echo %num%
:str_loop
rem echo loop....................................
set strone=!str:~%num%,1!
set /a num+=1
if "%strone%" neq "" (
   rem echo %strone%
   echo WScript.Sleep 200 >>"%temp%\qq.vbs"
   echo WshShell.SendKeys "%strone%"  >>"%temp%\qq.vbs"       
   goto :str_loop
)  else (
   set num=0
   goto :eof
)
:tab
    echo WScript.Sleep 200 >>"%temp%\qq.vbs"
    echo WshShell.SendKeys "{TAB}"  >>"%temp%\qq.vbs"
    goto :eof
复制代码

sysy0018

感谢分享，多多发表类似好贴

lemoncn

回复 1# ptsdy

这个，腾讯一旦修改了注册界面就用不了了吧
vbs好像不能获取浏览器输入框的id 程序本身无法知道是否操作成功

极品小猫

精神可嘉，但是效果远不如利用JS脚本。