Autoit QQ快速登录 LTS

感谢您使用 AUTOIT 脚本 ,这是一个 LTS 版,长期不定时更新,请及时更新脚本,有问题请向我们反馈:Email: webmaster@fengyi.tel,QQ:775159955,官方QQ群:50535566。

下载连接:http://go.fengyi.tel/QQQL6

永久连接:http://go.fengyi.tel/au3qqLogin

适用环境:
支持QQ版本:QQ v8.9.3
当前最新版本:v6.2
更新日期:2017 年 07 月 28 日

 

以后我们只会根据腾讯(http://im.qq.com)推出当前的版本,脚本 LTS 版将会不定时更新,根据最新版来更新,如果你使用中遇到问题,请升级腾讯最新版。不向前支持。只向后支持。

主要功能:

————

1. 命令行帮助系统,参数:[?] [/?] [help]; *New

2. 支持帐号格式判断,清除功能仅支持数字ID,邮箱格式无登录后功能; *New

3. 新增参数运行方式; *New

示例:QQ -ID “85807571″ -PWD “123″ -U -P -N -T -F

4. 新增读取外部配置文件,必须生成EXE后方可使用,示例: *New

a) 生成EXE后,用命令行 QQ.exe -C 创建一个 example.fy 文件。

b) 第三方调用:QQ -L “文件名”;

c) 添加*.fy 文件关联,安装命令:QQ.exe -i,卸载:QQ.exe -UN。

5. 登录前后可清除个人用户数据及QQ号码登录记录;

6. 循环删除登录记录;

7. 支持多种路径模式。

兼容版本:QQ8.9.3

 

#comments−start
/**
* The base configurations of the Quick Login
*
* This document has the following configuration: Autoit Script.
*
* DO NOT modify this file manually.
*
* @author Yi Feng
* @link http://fengyi.tel
* (QQ, QQ group, email, phone, website, other products.)
* @copyright Copyright 2013−2014 FengYi. All Rights Reserved.
* @version v6.1
*
* Service and support *
* @article http://go.fengyi.tel/au3qqLogin
* @download http://go.fengyi.tel/QQQL6
*/
#comments−end

#NoTrayIcon

; Global parameter

; 推荐使用数字ID,可以获得所有功能;
; 注意:使用邮箱或者手机号,部分功能无法使用。
$app_qq_id = “”

; 密码带有特殊字符!号,需加{!}号;
; 文档:http://www.autoitscript.com/autoit3/docs/functions/Send.htm
$app_qq_pwd = “”

; 自定义路径,示例:$app_install_path = “D:\QQ”。
; 不设置则自动读取注册表并判断是否安装。
$app_install_path = “”

; 强行删除“个人用户文件夹”。
$enable_personal_user = “On”

; 强行删除“公用文件夹、漫游目录”。
$enable_public_folder = “On”

; 监控应用程序退出后执行清理功能。
$enable_monitor_app_kill = “On”

; 关闭“QQ网吧欢迎界面”。
$enable_netbar = “On”

; 关闭“任务栏设置提示”。
$enable_taskbar = “On”

_fy_load()

func _fy_load()
for $i = 1 to $cmdLine[0]
select
case $cmdLine[$i] = “−I”
_fy_install()
exit

case $cmdLine[$i] = “−UN”
_fy_uninstall()
exit

case $cmdLine[$i] = “−C”
_fy_create()
exit

case $CmdLine[$i] = “−L”
$fy_name = StringStripWS($CmdLine[$i + 1], 3)

if FileExists($fy_name) then
if IniRead($fy_name, “Global_Settings”, “app_cfg_version”, “”) = “1.0” then
$app_qq_id = IniRead($fy_name, “FengYi”, “app_qq_id”, “”)
$app_qq_pwd = IniRead($fy_name, “FengYi”, “app_qq_pwd”, “”)
if Not IniRead($fy_name, “Global_Settings”, “app_install_path”, “”) = “” then
$app_install_path = IniRead($fy_name, “Global_Settings”, “app_install_path”, “”)
endif
$enable_personal_user = IniRead($fy_name, “Global_Settings”, “enable_personal_user”, “”)
$enable_public_folder = IniRead($fy_name, “Global_Settings”, “enable_public_folder”, “”)
$enable_monitor_app_kill = IniRead($fy_name, “Global_Settings”, “enable_monitor_app_kill”, “”)
$enable_netbar = IniRead($fy_name, “Global_Settings”, “enable_netbar”, “”)
$enable_taskbar = IniRead($fy_name, “Global_Settings”, “enable_taskbar”, “”)

_fy_startup()
exit
else
msgbox(0,””,”读取配置文件版本不对,请重新配置!”)
exit
endif
else
$msg = “抱歉,未找到配置文件。” & @CRLF & @CRLF & _
@CRLF & “解决方案:” & @CRLF & _
@CRLF & ” 1. 使用命令行创建模板,如:” & _
@CRLF & ” qq.exe −C” & @CRLF & _
@CRLF & ” 2. 创建文件,示例:” & @CRLF & _
@CRLF & ” example.fy” & _
@CRLF & ” −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−” & _
@CRLF & ” [FengYi]” & _
@CRLF & ” app_qq_id = ”” & _
@CRLF & ” app_qq_pwd = ”” & @CRLF & _
@CRLF & ” [Global_Settings]” & _
@CRLF & ” app_cfg_version = ‘1.0’” & _
@CRLF & ” app_install_path = ”” & _
@CRLF & ” enable_personal_user = ‘On'” & _
@CRLF & ” enable_public_folder = ‘On'” & _
@CRLF & ” enable_monitor_app_kill = ‘On'” & _
@CRLF & ” enable_netbar = ‘On'” & _
@CRLF & ” enable_taskbar = ‘On'”
msgbox(0, “”, $msg)
exit
endif

case $CmdLine[$i] = “−ID”
if StringLeft($cmdline[$i+1], 1) == “−” then
help()
else
$app_qq_id = StringStripWS($CmdLine[$i + 1], 3)
endif

case $CmdLine[$i] = “−PWD”
if StringLeft($cmdline[$i+1], 1) == “−” then
help()
else
$app_qq_pwd = StringStripWS($CmdLine[$i + 1], 3)
endif

case $cmdLine[$i] = “−U”
$enable_personal_user = “On”

case $cmdLine[$i] = “−P”
$enable_public_folder = “On”

case $cmdLine[$i] = “−N”
$enable_netbar = “On”

case $cmdLine[$i] = “−T”
$enable_taskbar = “On”

case $cmdLine[$i] = “−M”
$enable_monitor_app_kill = “On”

case $cmdLine[$i] = “?” or $cmdLine[$i] = “/?” or $cmdLine[$i] = “help”
Help()
EndSelect
Next
_fy_startup()
endfunc ;==>_fy_load

func _fy_startup()
If $app_install_path = “” then
if @OSArch = “X64” Then $app_install_path = RegRead(“HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432node\TENCENT\QQ2009”, “Install”)
if @OSArch = “X86” Then $app_install_path = RegRead(“HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ2009”, “Install”)
endif

if not FileExists($app_install_path & “\QQProtect\Bin\QQProtect.exe”) then
$msg = “抱歉,未发现可用的QQ软件!” & @CRLF & @CRLF & _
@CRLF & “路径:” & $app_install_path & “\QQProtect\Bin\QQProtect.exe” & @CRLF & _
@CRLF & “兼容版本:QQ5.0−5.4,QQ2013 Beta1−Beta6。” & @CRLF & @CRLF & _
@CRLF & “解决方案:” & @CRLF & _
@CRLF & ” 1. 重新安装QQ软件,官方地址:http://IM.QQ.COM;” & @CRLF & _
@CRLF & ” 2. 更改软件所在路径;” & @CRLF & _
@CRLF & ” 3. 检查所在目录是否完整性。”
MsgBox(0, “”, $msg)
Exit
endif

if $app_qq_id = “” or $app_qq_pwd = “” then
MsgBox(0, “”, “亲,你能否把QQ帐号和密码输了再来?”)
Exit
Else
if StringIsDigit ($app_qq_id) then
if StringLen($app_qq_id) < 5 then
MsgBox(0, “”, “请输入正确的帐号,帐号可以是QQ号码、手机号码或者电子邮箱。”)
Exit
endif
if $enable_personal_user = “On” then _fy_clear(“u”)
if $enable_public_folder = “On” then _fy_clear(“p”)
Else
if not StringRegExp($app_qq_id, “^([a−zA−Z0−9_\−])([a−zA−Z0−9_\−\.]*)@(\[((25[0−5]|2[0−4][0−9]|1[0−9][ 0−9]|[1−9][0−9]|[0−9])\.){3}|((([a−zA−Z0−9\−]+)\.)+))([a−zA−Z]{2,}|(25[0−5]|2[0−4][0−9]|1[ 0−9][0−9]|[1−9][0−9]|[0−9])\])$”) then
$msg = “您所输入的邮箱地址不正确。” & @CRLF & @CRLF & _
@CRLF & ” 示例:” & @CRLF & _
@CRLF & ” Email: y@fengyi.tel”
MsgBox(0, “”, $msg)
Exit
endif
endif
endif

Global $iPID = Run($app_install_path & “\QQProtect\Bin\QQProtect.exe”)
WinWait(“[CLASS:TXGuiFoundation]”)
WinWaitActive(“[CLASS:TXGuiFoundation]”)
Sleep(2000)
Send($app_qq_id)
Sleep(200)
Send(“{Tab}”)
Sleep(200)
Send($app_qq_pwd)
Sleep(200)
Send(“{Enter}”)

if StringIsDigit ($app_qq_id) then
$aa = 0

while 1
if ProcessExists($iPID) then
if $aa < 1000 then if $enable_public_folder = “On” then _fy_clear(“p”) if $enable_netbar = “On” then WinKill(“QQ网吧”,””) if $enable_taskbar = “On” then WinKill(“任务栏设置提示”,””) endif Else if $enable_monitor_app_kill = “On” then if $enable_personal_user = “On” then _fy_clear(“u”) _fy_clear(“all”) endif Exit ExitLoop endif $aa = $aa+1 sleep(50) wend endif endfunc ;==>_fy_startup

func _fy_clear($fy)
$Type = IniRead(@DocumentsCommonDir & “\Tencent\QQ\UserDataInfo.ini”, “UserDataSet”, “UserDataSavePathType”, “”)

switch $fy
case “u”
If $Type = 0 then DirRemove($app_install_path & “\Users\” & $app_qq_id, 1)
If $Type = 1 then DirRemove(@MyDocumentsDir & “\Tencent Files\” & $app_qq_id, 1)
If $Type = 2 then DirRemove(IniRead(@DocumentsCommonDir & “\Tencent\QQ\UserDataInfo.ini”, “UserDataSet”, “UserDataSavePath”, “”) & “\” & $app_qq_id, 1)

case “p”
If $Type = 0 then FileDelete($app_install_path & “\Tencent Files\All Users\QQ\*.db”)
If $Type = 1 then FileDelete(@MyDocumentsDir & “\Tencent Files\All Users\QQ\*.db”)
If $Type = 2 then FileDelete(IniRead(@DocumentsCommonDir & “\Tencent\QQ\UserDataInfo.ini”, “UserDataSet”, “UserDataSavePath”, “”) & “\Tencent Files\All Users\QQ\*.db”)

case “all”
DirRemove(@AppDataDir & “\Tencent\Users\” & $app_qq_id, 1)
endswitch
endfunc ;==>_fy_clear

func _fy_install()
If StringRegExpReplace(@ScriptFullPath, ‘.+\.’, ”) = “exe” then
RegWrite(‘HKLM\SOFTWARE\Classes\.fy\shell\Open\Command’, ”, ‘REG_SZ’, ” & @ScriptFullPath & ‘ −L “%1″‘)
RegWrite(‘HKLM\SOFTWARE\Classes\.fy\shell\Edit\Command’, ”, ‘REG_SZ’, ‘notepad.exe “%1″‘)
Else
MsgBox(0,”安装向导”,”安装前请先转换为 EXE 文件。”)
endif
endfunc ;==>_fy_install

func _fy_uninstall()
RegDelete(‘HKLM\SOFTWARE\Classes\.fy’)
endfunc ;==>_fy_uninstall

func _fy_create()
$example = @ScriptDir & “\example.fy”
If FileExists($example) then FileDelete($example)

FileWrite($example, “[FengYi]” & @CRLF)
FileWrite($example, “app_qq_id = ” & ‘”‘ & “” & ‘”‘ & “” & @CRLF)
FileWrite($example, “app_qq_pwd = ” & ‘”‘ & “” & ‘”‘ & “” & @CRLF & @CRLF)
FileWrite($example, “[Global_Settings]”& @CRLF)
FileWrite($example, “app_cfg_version = ” & ‘”‘ & “1.0” & ‘”‘ & “” & @CRLF)
FileWrite($example, “app_install_path = ” & ‘”‘ & “” & ‘”‘ & “” & @CRLF)
FileWrite($example, “enable_personal_user = ” & ‘”‘ & “On” & ‘”‘ & “” & @CRLF)
FileWrite($example, “enable_public_folder = ” & ‘”‘ & “On” & ‘”‘ & “” & @CRLF)
FileWrite($example, “enable_monitor_app_kill = ” & ‘”‘ & “On” & ‘”‘ & “” & @CRLF)
FileWrite($example, “enable_netbar = ” & ‘”‘ & “On” & ‘”‘ & “” & @CRLF)
FileWrite($example, “enable_taskbar = ” & ‘”‘ & “On” & ‘”‘ & “”)
endfunc ;==>_fy_create

func help()
$msg = “该脚本可接收外部命令以及配置文件,安装及卸载。” & @CRLF & @CRLF & _
@CRLF & “QQ [−I] [−UN] [−C] [−L] [−ID] [−PWD] [−U]” & _
@CRLF & ” [−P] [−N] [−T] [−M]” & @CRLF & _
@CRLF & ” 参数 描述” & _
@CRLF & ” −−−− −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−” & _
@CRLF & ” −I 添加文件关联;” & _
@CRLF & ” −UN 删除文件关联;” & _
@CRLF & ” −C 生成一个示例配置文件模板;” & _
@CRLF & ” −L 加载配置文件;” & _
@CRLF & ” −ID QQ帐号;” & _
@CRLF & ” −PWD QQ密码;” & _
@CRLF & ” −U 强行删除“个人用户文件夹”。” & _
@CRLF & ” −P 强行删除“公用文件夹、漫游目录”。” & _
@CRLF & ” −N 在登录后循环关闭QQ网吧欢迎界面;” & _
@CRLF & ” −T 在登录后循环关闭任务栏设置提示;” & _
@CRLF & ” −M 监控应用程序退出后执行清理功能。” & @CRLF & _
@CRLF & “示例:” & _
@CRLF & ” QQ −I” & _
@CRLF & ” QQ −UN” & _
@CRLF & ” QQ −C” & _
@CRLF & ” QQ −L ” & ‘”‘ & “D:\example.fy” & ‘”‘ & _
@CRLF & ” QQ −ID ” & ‘”‘ & “85807571” & ‘”‘ & ” −PWD ” & ‘”‘ & “123” & ‘”‘ & ” −U −P −N −T −M”
msgbox(0, “帮助”, $msg)
exit
endfunc ;==>help

example.fy

[FengYi]
app_qq_id = “”
app_qq_pwd = “”

[Global_Settings]
app_cfg_version = “1.0”
app_install_path = “”
enable_personal_user = “On”
enable_public_folder = “On”
enable_monitor_app_kill = “On”
enable_netbar = “On”
enable_taskbar = “On”

Leave a Reply

Your email address will not be published. Required fields are marked *