wwcbjs 发表于 2009-3-12 20:05:07

关于判断语句！

自己写了个代码 安装 QQ2009
现在随着QQ2009 Beta2 的出现
于是准备升级代码！但是苦于对判断语句一窍不通
所以想在软件运行后进行以下判断！
如果D盘存在 则将软件安装到D盘
否则则默认安装
#NoTrayIcon
BlockInput (1)
Run("QQ2009.exe")
WinWait("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009")
ControlCommand("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009", "Button1", "Check")
ControlCommand("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009", "Button3", "Check")
ControlCommand("腾讯QQ2009 安装向导","请选择您的使用环境", "Button6", "Check")
ControlCommand("腾讯QQ2009 安装向导","请选择登陆前查杀木马设置", "Button10", "Check")
ControlCommand("腾讯QQ2009 安装向导","安装完成后您可以在安全设置中修改相关选项", "Button2", "Check")
ControlCommand("腾讯QQ2009 安装向导","自定义安装选项", "Button8", "UnCheck")
ControlCommand("腾讯QQ2009 安装向导","自定义安装选项", "Button9", "UnCheck")
ControlCommand("腾讯QQ2009 安装向导","自定义安装选项", "Button10", "UnCheck")
ControlCommand("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项", "Button2", "Check")
ControlCommand("腾讯QQ2009 安装向导","请选择安装路径", "Button2", "Check")
WinWait("腾讯QQ2009 安装向导","安装完成")
ControlCommand("腾讯QQ2009 安装向导","安装完成", "Button6", "UnCheck")
ControlCommand("腾讯QQ2009 安装向导","安装完成", "Button7", "UnCheck")
ControlCommand("腾讯QQ2009 安装向导","安装完成", "Button8", "UnCheck")
ControlCommand("腾讯QQ2009 安装向导","安装完成", "Button2", "Check")

ceoguang 发表于 2009-3-12 20:09:56

If FileExists("D:\") Then
;D盘存在
Else
;D盘不存在

wwcbjs 发表于 2009-3-12 20:32:07

If FileExists("D:\") Then
ControlSetText($QQ,"目标文件夹", "Edit1", "D:\软件花园\腾讯游戏\QQGAME\")
Else
ControlCommand("QQ游戏","选择安装位置", "Button2", "Check")
Endif
这样对不,判断完后如何跳出该判断

[ 本帖最后由 wwcbjs 于 2009-3-12 23:02 编辑 ]

lxz 发表于 2009-3-12 21:11:03

MsgBox(0,"","")
页: [1]
查看完整版本: 关于判断语句！