腾讯QQ锁定器源码
qq.bat:


@echo off
TITLE 【QQ锁定器】
color 0c
echo Dim WshShell,QQ,RegPath > %systemroot%\temp\C_qqpath.vbs
echo Set WshShell = WScript.CreateObject("WScript.Shell") >> %systemroot%\temp\C_qqpath.vbs
echo Set FSO = CreateObject("Scripting.FileSystemObject") >> %systemroot%\temp\C_qqpath.vbs
echo Set WshShell=WScript.CreateObject("WScript.Shell") >> %systemroot%\temp\C_qqpath.vbs
echo RegPath="HKLM\SOFTWARE\Tencent\QQ\Install" >> %systemroot%\temp\C_qqpath.vbs
echo QQ=WshShell.RegRead(RegPath) >> %systemroot%\temp\C_qqpath.vbs
echo Set PathFile = FSO.CreateTextFile("QQ_path.txt", True) >> %systemroot%\temp\C_qqpath.vbs
echo PathFile.WriteLine QQ >> %systemroot%\temp\C_qqpath.vbs
echo                                                            
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                    正在检测你的QQ安装路径，请稍候
ping 127.0.0.1 -n 2 > nul
cls
echo                                                              
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                    正在检测你的QQ安装路径，请稍候 〉
ping 127.0.0.1 -n 2 > nul
cls
echo                                                              
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                    正在检测你的QQ安装路径，请稍候 〉〉
ping 127.0.0.1 -n 2 > nul
cls
echo                                                              
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                    正在检测你的QQ安装路径，请稍候 〉〉〉
ping 127.0.0.1 -n 2 > nul
cd "%systemroot%\temp"
call "%systemroot%\temp\C_qqpath.vbs"
cls
echo                                                              
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                    正在检测你的QQ安装路径，请稍候 〉〉〉〉
ping 127.0.0.1 -n 1 > nul
cls
set /p qq_path= < "%systemroot%\temp\QQ_path.txt"
TITLE 检测到您的QQ安装路径：%qq_path%

:start
color 0a
cls
echo                                                              
echo.
echo.
echo.
echo                  -------------禁止QQ号码登录-------------
echo.
echo                      本脚本可以完全禁止QQ以及禁止指定
echo                    QQ号码登录！！！
echo.
echo.
echo                              【禁 止 模 式】
echo.
echo                      1、完全禁止模式    2、指定禁止模式
echo                  ----------------------------------------
set /p model_=                  请选择：
if %model_% == 1 goto fullmodel
if %model_% == 2 goto zdmodel
goto start
:fullmodel
color 0e
cls
echo                                                              
echo.
echo.
echo.
echo                  -------------禁止QQ号码登录-------------
echo.
echo                    提示：您已选择“完全禁止模式”！！！
echo.
echo.
echo                      ★输入任意字符按回车返回主菜单★
echo.
echo.
echo                        1、执行禁止    2、解除禁止
echo                  ----------------------------------------
set /p stop_=                  请选择：
if %stop_% == 1 if NOT exist "%QQ_path%ws2_32.dll" md "%QQ_path%ws2_32.dll" & echo                  执行成功，请按任意键返回！ & pause > nul & goto start
if %stop_% == 2 if exist "%QQ_path%ws2_32.dll" rd "%QQ_path%ws2_32.dll" & echo                  执行成功，请按任意键返回！ & pause > nul & goto start
goto start