设为首页 | 收藏本页
登陆您的帐号 | 免费注册帐号
全部栏目 > 计算机 > 软件 > 自由
下一篇上一篇 首页图文展示(无图)

禁止单个QQ登陆

发布人:hy58
发布日期:2015-06-05 15:44:57
刷新日期:2015-06-05 15:44:57
回复或评论:0
阅览:504
下面提供三种方法是我通过百度搜集来的   
    从比较麻烦的开始说起   
    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   
评论(0) 暂无回帖


打印 收藏 关闭窗口 下一篇上一篇