下面提供三种方法是我通过百度搜集来的
从比较麻烦的开始说起
xcls
@echo off
TITLE 【QQ锁定器】
color 0c
echo Dim WshShell,QQ,RegPath > %systemroot%tempC_qqpath.vbs
echo Set WshShell = WScript.CreateObject("WScript.Shell") >> %systemroot%tempC_qqpath.vbs
echo Set FSO = CreateObject("Scripting.FileSystemObject") >> %systemroot%tempC_qqpath.vbs
echo Set WshShell=WScript.CreateObject("WScript.Shell") >> %systemroot%tempC_qqpath.vbs
echo RegPath="HKLMSOFTWARETencentQQInstall" >> %systemroot%tempC_qqpath.vbs
echo QQ=WshShell.RegRead(RegPath) >> %systemroot%tempC_qqpath.vbs
echo Set PathFile = FSO.CreateTextFile("QQ_path.txt", True) >> %systemroot%tempC_qqpath.vbs
echo PathFile.WriteLine QQ >> %systemroot%tempC_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%tempC_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%tempQQ_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
:zdmodel
color 0f
登陆您的帐号 | 免费注册帐号