admin管理员组文章数量:1534189
#RequireAdmin
;------------------------------------------------------------------------------------------------;脚本开始
Opt("TrayIconDebug", 1) ;0=无信息, 1=调试信息
Opt("WinTextMatchMode", 1) ;1=完全匹配, 2=快速匹配
;---------------------------------------------------------------------------------------------------
$freespace = DriveSpaceFree("D:\")
If $freespace > 3072 Then ;----------------------------------------------------------------------;若D盘空间 不足 3G,则提示退出去 重新分区。
$installprogram = @ScriptDir & "\" & "autoitQQ.exe"
If Not FileExists($installprogram) Then
MsgBox(16, "提示:", "QQ安装包不存在,请确认安装包是否在当前目录:" & @ScriptDir & "下")
Exit
Else
;BlockInput(1);------------------------------------------------------;锁定键盘
;------------------------------------------------------------------------------------------------;窗口元素变量
TrayTip("提示:", "腾讯QQ自动安装即将开始。", 3, 1)
Sleep(3000)
;------------------------------------------------------------------------------------------------;托盘图标提示
$winqq_1 = '腾讯QQ2011 安装向导'
$winqqtxt_1 = '我已阅读并同意软件许可协议和青少年上网安全指引'
$winqqtxt_2 = '请选择自定义安装选项与快捷方式选项'
$winqqtxt_3 = '请选择安装路径'
$winqqtxt_4 = "正在"
$winqqtxt_5 = '安装完成'
$lujing = "D:\Program Files\Tencent\QQ"
$Exe = "autoitQQ.exe"
If ProcessExists($Exe) Then ProcessClose($Exe)
If Run($Exe) = 0 Then ShellExecute($Exe)
Sleep(2000)
Do
WinActivate($winqq_1)
If WinExists($winqq_1, $winqqtxt_1) Then
ControlCommand($winqq_1, $winqqtxt_1, 1020, "Check", "")
Sleep(100)
ControlClick($winqq_1, $winqqtxt_1, 1015);下一步
ElseIf WinExists($winqq_1, $winqqtxt_2) Then
ControlCommand($winqq_1, $winqqtxt_2, 1007, "UnCheck", "");----------------------------------------;测试 有可能是button
Sleep(100)
ControlCommand($winqq_1, $winqqtxt_2, 1017, "UnCheck", "")
Sleep(100)
ControlCommand($winqq_1, $winqqtxt_2, 3016, "UnCheck", "")
Sleep(100)
ControlCommand($winqq_1, $winqqtxt_2, 3018, "UnCheck", "")
Sleep(100)
ControlCommand($winqq_1, $winqqtxt_2, 1035, "Check", "")
Sleep(100)
ControlCommand($winqq_1, $winqqtxt_2, 1036, "UnCheck", "")
Sleep(100)
$winqqtxt2_1007 = ControlCommand($winqq_1, $winqqtxt_2, 1007, "IsChecked", "")
$winqqtxt2_1017 = ControlCommand($winqq_1, $winqqtxt_2, 1017, "IsChecked", "")
$winqqtxt2_3016 = ControlCommand($winqq_1, $winqqtxt_2, 3016, "IsChecked", "")
$winqqtxt2_3018 = ControlCommand($winqq_1, $winqqtxt_2, 3018, "IsChecked", "")
$winqqtxt2_1035 = ControlCommand($winqq_1, $winqqtxt_2, 1035, "IsChecked", "")
$winqqtxt2_1036 = ControlCommand($winqq_1, $winqqtxt_2, 1036, "IsChecked", "")
$winqqtxtreult1 = $winqqtxt2_1007 + $winqqtxt2_1017 + $winqqtxt2_3016 + $winqqtxt2_3018 + $winqqtxt2_1035 + $winqqtxt2_1036
;If ControlCommand($winqq_1, $winqqtxt_2, 1007, "IsChecked", "") And ControlCommand($winqq_1, $winqqtxt_2, 1017, "IsChecked", "") And ControlCommand($winqq_1, $winqqtxt_2, 3016, "IsChecked", "") And ControlCommand($winqq_1, $winqqtxt_2, 3018, "IsChecked", "") And ControlCommand($winqq_1, $winqqtxt_2, 1036, "IsChecked", "") ==0 Then;---------------------------------------------------------------
If $winqqtxtreult1 = 1 And $winqqtxt2_1035 = 1 Then;--------------------桌面快捷方式被选中。
ControlClick($winqq_1, $winqqtxt_2, 1015);
Else
;
EndIf
ElseIf WinExists($winqq_1, $winqqtxt_3) Then
ControlSetText($winqq_1, $winqqtxt_3, 1040, $lujing);-----------------------------------------------d盘
Sleep(100)
ControlCommand($winqq_1, $winqqtxt_3, 1002, "Check", "")
Sleep(100)
$winqqtxt3_1040 = ControlGetText($winqq_1, $winqqtxt_3, 1040)
$winqqtxt3_1002 = ControlCommand($winqq_1, $winqqtxt_3, 1002, "IsChecked", "")
$reslt1 = ($winqqtxt3_1040 == $lujing)
$reslt2 = ($reslt1 + $winqqtxt3_1002)
If $reslt2 = 2 Then
ControlClick($winqq_1, $winqqtxt_3, 1016)
Else
;
EndIf
ElseIf WinExists($winqq_1, $winqqtxt_4) Then
WinActivate($winqq_1, $winqqtxt_4)
ElseIf WinExists($winqq_1, $winqqtxt_5) Then
ControlCommand($winqq_1, $winqqtxt_5, 1045, "UnCheck", "");----------------------------------------;测试 有可能是button
Sleep(100)
ControlCommand($winqq_1, $winqqtxt_5, 1047, "UnCheck", "")
Sleep(100)
ControlCommand($winqq_1, $winqqtxt_5, 1038, "UnCheck", "")
Sleep(100)
ControlCommand($winqq_1, $winqqtxt_5, 1046, "UnCheck", "")
$winqqtxt5_1045 = ControlCommand($winqq_1, $winqqtxt_5, 1045, "IsChecked", "")
$winqqtxt5_1047 = ControlCommand($winqq_1, $winqqtxt_5, 1047, "IsChecked", "")
$winqqtxt5_1038 = ControlCommand($winqq_1, $winqqtxt_5, 1038, "IsChecked", "")
$winqqtxt5_1046 = ControlCommand($winqq_1, $winqqtxt_5, 1046, "IsChecked", "")
$winqqtxtreult3 = $winqqtxt5_1045 + $winqqtxt5_1047 + $winqqtxt5_1038 + $winqqtxt5_1046
If $winqqtxtreult3 = 0 Then
$ceshi = ControlClick($winqq_1, $winqqtxt_5, 1017);---------------------------------------------------------;点击完成
If $ceshi = 1 Then
ProcessClose($Exe)
Else
;
EndIf
EndIf
Else
Sleep(500)
EndIf
Until Not ProcessExists($Exe)
EndIf
Else
MsgBox(4096, "提示 ", "D盘空间不足,请运行分区工具进行系统分区,再重新运行本程序。")
Exit
EndIf
;加MD5检测模块
; #include <Crypt.au3>
; $sFile = FileOpenDialog("打开文件","","所有文件 (*.*;)")
; $md5txt=(StringTrimLeft(_Crypt_HashFile($sFile,0x00008003),2))
;MsgBox(4096,"11",$md5txt)#CE
版权声明:本文标题:autoit3 自动安装腾讯QQ【版本QQ2011Beta3】 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/dianzi/1725784895a1042568.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论