hotyam2000 发表于 2010-3-25 08:54:26

极点五笔7安装到D 脚本

1安装前会判断安装程序是否存在, 延时5秒自动退出
2.安装前会判断系统中是否已安装“极点”, 延时5秒自动退出
3.安装前有用户确认的消息框,延时5秒按确认处理


Opt("WinDetectHiddenText",1)
Opt("WinTitleMatchMode",4)
Opt("TrayAutoPause",0)

$sAppName ="“极点五笔输入法”"
$sInstallerName = "jdwbSetup.exe"
$sMsgBox_Title        = "自动安装"

; 此段脚本判断安装文件是否存在,如果不存在显示提示消息框后退出
$sCannotFindInstaller = "安装终止:无法找到安装程序 "
if Not FileExists($sInstallerName) Then
   $MsgBox_Text =$sCannotFindInstaller & @ScriptDir &"\"& $sInstallerName
   MsgBox(270352, $sMsgBox_Title , $MsgBox_Text, 5)
   Exit
EndIf


; 检测软件是否已安装到目标计算机,如果已安装则提示相关信息并退出自动安装脚本,如果不存在则继续执行脚本
$sSetupBreak        = "安装终止:检测到系统中以下位置已安装"
$sSetupDir = RegRead("HKLM\SOFTWARE\freeime", "system")
if @error=0 Then
   $sMsgBox_Text = $sSetupBreak & $sAppName & @CRLF & $sSetupDir
   MsgBox(270384, $sMsgBox_Title, $sMsgBox_Text, 5)
   Exit
EndIf


; 此段脚本显示确认继续安装消息框,消息框按钮为是和否
$sSureContinue = "将被安装到D盘中,要继续吗?"
$sWarnning = "警告:安装前请先退出所有正在运行的 Windows 应用程序。"
$MsgBox_Text = $sAppName & $sSureContinue & @CRLF & @CRLF & $sWarnning
; 选择“否”则退出,否则继续执行脚本
if (MsgBox(270372, $sMsgBox_Title, $MsgBox_Text,5) = 7) Then
   ; 退出
   Exit
Else
   ; 执行安装程序
   Run($sInstallerName)   
EndIf


; 显示托盘区提示
$sSetupNow = "正在安装"
$sTrayTip_Text = $sSetupNow & $sAppName
$sTrayTipIcon = 1    ; 0=没有图标(默认), 1=消息, 2=警告, 3=错误
TrayTip($sMsgBox_Title, $sTrayTip_Text, 10, $sTrayTipIcon)


;定义常量字符串
$TITLE = "freeime 7.0纪念版 安装"
$TITLE1 = "提示"

;$Comment0 = "Please select a language."
$Comment1 = "许可证协议"
$Comment2 = "选择安装位置"
$Comment3 = "在开始菜单中建立极点程序组么?"
$Comment4 = "确定"


;WinWait($TITLE, $Comment0)
;if Not WinActive($TITLE, $Comment0) then WinActivate($TITLE, $Comment0)
;ControlClick($TITLE, $Comment0, "")

;等待“许可协议”出现
WinWait($TITLE, $Comment1)
if Not WinActive($TITLE, $Comment1) Then WinActivate($TITLE, $Comment1)
;点击“我同意”按钮,快捷键为Alt+I
Send("!i")


;等待“选择安装位置”出现
WinWait($TITLE, $Comment2)
if Not WinActive($TITLE, $Comment2) then WinActivate($TITLE, $Comment2)
; 修改安装路径
;Send("{Home}{Delete}D")
;点击“安装”按钮,快捷键为Alt+I
Send("!i")


WinWait($TITLE, $Comment3)
if Not WinActive($TITLE, $Comment3) then WinActivate($TITLE, $Comment3)
;点击“是(&Y)”按钮,快捷键为Alt+Y
Send("!y")


; 安装成功
WinWait($TITLE1, $Comment4)
if Not WinActive($TITLE1, $Comment4) then WinActivate($TITLE1, $Comment4)
;点击“确定”按钮,快捷键为 Enter
Send("{Enter}")


; 结束安装进程,避免后面安装完成和在IE中打开入门指南
;ProcessClose("Freewb.exe")


; 退出
Exit

jodyzyx 发表于 2010-4-1 13:24:55

很好很强大 学习了。。。。

sjwb826 发表于 2010-4-12 16:52:45

很好很强大 学习了。。。。

xinhongsen 发表于 2013-9-21 13:42:56

精神上支持一下
页: [1]
查看完整版本: 极点五笔7安装到D 脚本