|
本帖最后由 tf68083704 于 2015-6-5 17:34 编辑
企业QQ无法在USER权限下运行,以下为源代码,求大神帮忙解决!!!
#RequireAdmin
#NoTrayIcon
#include <File.au3>
FileInstall('HRTX1.89.2036.exe',@ScriptDir&'\HRTX1.89.2036.exe')
If Not IsAdmin() Then
Local $sUserName="administrator"
Local $sPassword="123456"
RunAs($sUserName,@computername,$sPassword,0,@ScriptDir&'\HRTX1.89.2036.exe',@ScriptDir,@SW_HIDE)
Sleep(2000)
ControlClick( "企业QQ 安装向导","","[CLASS:Button;INSTANCE:4]")
_WinWaitActivate("企业QQ 安装向导","完成(&F)","")
Sleep(2000)
ControlClick( "企业QQ 安装向导","","[CLASS:Button;INSTANCE:6]")
Sleep(1000)
ControlClick( "企业QQ 安装向导","","[CLASS:Button;INSTANCE:7]")
Sleep(1000)
ControlClick( "企业QQ 安装向导","","[CLASS:Button;INSTANCE:2]")
Else
Run(@ScriptDir&'\HRTX1.89.2036.exe',"",@SW_HIDE)
Sleep(2000)
ControlClick( "企业QQ 安装向导","","[CLASS:Button;INSTANCE:4]")
_WinWaitActivate("企业QQ 安装向导","完成(&F)","")
Sleep(2000)
ControlClick( "企业QQ 安装向导","","[CLASS:Button;INSTANCE:6]")
Sleep(1000)
ControlClick( "企业QQ 安装向导","","[CLASS:Button;INSTANCE:7]")
Sleep(1000)
ControlClick( "企业QQ 安装向导","","[CLASS:Button;INSTANCE:2]")
Exit
EndIf
求大神指点如何让软件在USER下完整安装!!! |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
|