如何选中需单击下拉的某个选项值？

friendtasy

如何选中需单击下拉的某个选项值？
如图，框中有两个可以单击出现两项下拉的选项。我想第一项为不选择安装状态。怎么在这框查询不到按扭的ID？

ooxxgod

不是有控件ID吗

friendtasy

那怎么让第一选项变为X不安装呢？希望提供一个思路就可以了

xlj310

给个下载地址吧，我找了一个版本，结果是绿色版的，不用安装~晕　死

测试了一下，可以用controlclick()点击

ashfinal

好久不搞安装的东西了 这个好像就只能模拟相对点击了吧？

关注一下 嘿嘿~

xms77

回复 1# friendtasy
兄弟你使用NI是用于OCR吗？我有很多这个软件的硬件加密狗，没什么用！

friendtasy

[虚拟电子实验室10.0].NI.Multisim.V10.0.1.汉化破解版.rar (244.81 MB)

下载地址是这个。软件哥只是负责批量安装的，貌似是电子设计相关的软件吧。

friendtasy

给个下载地址吧，我找了一个版本，结果是绿色版的，不用安装~晕　死

测试了一下，可以用controlclick()点 ...
xlj310 发表于 2012-7-6 17:21

    这个应该是安装过程中才出现的吧。朋友说说是什么应用程序标题及控件ID

xlj310

看你说的程序下载，我安装评估版并安装在E盘的源码为 (此程序不能覆盖安装)

Run("setup.exe")
WinWait("NI Circuit Design Suite 10.0.1","Install this product for evaluation")
WinActivate("NI Circuit Design Suite 10.0.1","Install this product for evaluation")
ControlCommand("NI Circuit Design Suite 10.0.1",'Install this product for evaluation','Button5',"Check", "");评估版本
ControlClick("NI Circuit Design Suite 10.0.1",'Install this product for evaluation',"Button2");下一步

WinWait("NI Circuit Design Suite 10.0.1","Destination Directory")
WinActivate("NI Circuit Design Suite 10.0.1","Destination Directory")
ControlSetText("NI Circuit Design Suite 10.0.1","Destination Directory","Edit5","e:\Program Files\National Instruments\")
ControlClick("NI Circuit Design Suite 10.0.1","Destination Directory","Button2")

WinWait("NI Circuit Design Suite 10.0.1","Directory for Support and Upgrade Utility")
WinActivate("NI Circuit Design Suite 10.0.1","Directory for Support and Upgrade Utility")
ControlClick("NI Circuit Design Suite 10.0.1","Directory for Support and Upgrade Utility","SysTreeView321","",1,60, 11)
BlockInput(1);锁定鼠标键盘，防止用户与脚本抢鼠标
$MousePos=MouseGetPos();记录当前鼠标位置
Opt("MouseCoordMode",0);设置屏蔽坐标为相对于激活窗口
MouseClick("",68,151,1,0);点击不安装
MouseMove($MousePos[0],$MousePos[1],0);将鼠标移回原处
BlockInput(0);释放鼠标键盘，以免影响正常使用
ControlClick("NI Circuit Design Suite 10.0.1","Directory for Support and Upgrade Utility","Button4")

WinWait("NI Circuit Design Suite 10.0.1","National Instruments软件许可协议")
WinActivate("NI Circuit Design Suite 10.0.1","National Instruments软件许可协议")
ControlCommand("NI Circuit Design Suite 10.0.1","National Instruments软件许可协议","Button10","Check", "")
ControlClick("NI Circuit Design Suite 10.0.1","National Instruments软件许可协议","Button2")

WinWait("NI Circuit Design Suite 10.0.1","I accept the above 2 License Agreement")
WinActivate("NI Circuit Design Suite 10.0.1","I accept the above 2 License Agreement")
ControlCommand("NI Circuit Design Suite 10.0.1","I accept the above 2 License Agreement","Button12","Check", "")
ControlClick("NI Circuit Design Suite 10.0.1","I accept the above 2 License Agreement","Button2")

WinWait("NI Circuit Design Suite 10.0.1","Adding or Changing")
WinActivate("NI Circuit Design Suite 10.0.1","Adding or Changing")
ControlClick("NI Circuit Design Suite 10.0.1","Adding or Changing","Button3")
$t1=TimerInit()
Do
        $t2=Int(TimerDiff($t1)/1000);秒
        ToolTip('这里可能需要两到三分钟'&@CRLF&"请耐心等待……        "&$t2)
Until WinWait("NI Circuit Design Suite 10.0.1","NI Circuit Design Suite 10.0.1 has been installed",1)
ToolTip('');清空提示
WinActivate("NI Circuit Design Suite 10.0.1","NI Circuit Design Suite 10.0.1 has been installed")
ControlClick("NI Circuit Design Suite 10.0.1","NI Circuit Design Suite 10.0.1 has been installed","Button3")

WinWait('NI Circuit Design Suite 10.0.1','You must restart your computer to complete this operatio')
WinActivate('NI Circuit Design Suite 10.0.1','You must restart your computer to complete this operatio')
ControlClick('NI Circuit Design Suite 10.0.1','You must restart your computer to complete this operatio',"Button3")

;安装完成
$t1=TimerInit()
Do
        $t2=5-Int(TimerDiff($t1)/1000);秒
        TrayTip("恭喜您！安装成功~ "&$t2,"NI Circuit Design Suite 10.0.1"&"安装完成！"&@crlf&"建议您立即 重启电脑 后开始试用！",1)
        Sleep(1000)
Until $t2<1

friendtasy

非常感谢楼上的朋友，复制下来参考一下

friendtasy

如何能自动安装协议文件和复制语言包过去就更好了。还得花点时间完善啊

friendtasy

如何能自动安装协议文件和复制语言包过去就更好了。还得花点时间完善啊

xlj310

WinWait("NI Circuit Design Suite 10.0.1","Directory for Support and Upgrade Utility")
WinActivate("NI Circuit Design Suite 10.0.1","Directory for Support and Upgrade Utility")
ControlClick("NI Circuit Design Suite 10.0.1","Directory for Support and Upgrade Utility","SysTreeView321","",1,60, 11)
Opt("MouseCoordMode",0)
MouseClick("",68,151,1,0)

以上代码是可以解决楼主提出的问题，我也只是用mouseclick模拟点击，我这只抛砖引玉。

xlj310

如何能自动安装协议文件和复制语言包过去就更好了。还得花点时间完善啊
friendtasy 发表于 2012-7-7 13:20

自动安装协议文件可以安装完当前安装程序后继续安装；
    复制文件可以用FileCopy ( "源文件", "目标路径" [, 标志] )

friendtasy

以上代码是可以解决楼主提出的问题，我也只是用mouseclick模拟点击，我这只抛砖引玉。
xlj310 发表于 2012-7-7 13:21

    这个就不能用CONTROLCLICK之类的？感觉模拟鼠标不是很稳定。