|
楼主 |
发表于 2009-4-10 14:25:00
|
显示全部楼层
全部代码如下:
run("setup.exe")
WinWait("用友ERP-U871 安装","欢迎使用 用友ERP-U8管理软件")
ControlClick("用友ERP-U871 安装","欢迎使用 用友ERP-U8管理软件","Button1")
WinWait("用友ERP-U871 安装","软件使用许可协议")
ControlClick("用友ERP-U871 安装","软件使用许可协议","Button3")
ControlClick("用友ERP-U871 安装","软件使用许可协议","Button1")
WinWait("用友ERP-U871 安装","请输入您的名字和所在公司的名称")
ControlClick("用友ERP-U871 安装","请输入您的名字和所在公司的名称","Button2")
WinWait("用友ERP-U871 安装","将 用友ERP-U871 安装到以下路径")
ControlClick("用友ERP-U871 安装","将 用友ERP-U871 安装到以下路径","Button1")
WinWait("用友ERP-U871 安装","单击所需的安装类型")
ControlCommand ("用友ERP-U871 安装","单击所需的安装类型","ListBox1" ,"SelectString","客户端")
ControlClick("用友ERP-U871 安装","单击所需的安装类型","Button7")
ControlClick("用友ERP-U871 安装","单击所需的安装类型","Button5")
ControlClick("用友ERP-U871 安装","单击所需的安装类型","Button2")
WinWait("用友ERP-U871 安装","请选择要安装的功能")
ControlClick("用友ERP-U871 安装","请选择要安装的功能","Button2")
WinWait("用友ERP-U871 安装","环境检测目的是")
ControlClick("用友ERP-U871 安装","环境检测目的是","Button4")
WinExists("系统环境检查","可以直接安装U8")
WinWait("系统环境检查","可以直接安装U8")
ControlClick ("系统环境检查","可以直接安装U8","Button2")
;MsgBox (0x1, "卫华信息部", "你确定要安装吗?","ok","CANCEL“)
$check = MsBox(1,"卫华信息部","你确定要安装吗?")
If $chek = 1 Then
;直接进行安装
Elseif $check = 2 Then
;退出安装
Endif |
|