极点五笔7安装到D 脚本

hotyam2000

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, "[class:Button; INSTANCE:1]")

;等待“许可协议”出现
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

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

sjwb826

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

xinhongsen

精神上支持一下