这是我的脚本,有些简陋。Run("Tom-SkypeSetup.exe")
WinActivate("Skype? - 安装")
;ControlCommand("Skype? - 安 装","","TTntComboBox.UnicodeClass1","SelectString","English")
;ControlCommand(
Sleep(600)
;ControlClick("Skype? - 安装","","[Class:TTntButton.UnicodeClass;INSTANCE:3]")
send("{ENTER}")
While not WinActivate("Skype? - 安装")
Sleep(60)
WEnd
;WinWait("Skype? - 安装","",60000)
;Sleep(600)
send("{ENTER}")
While not WinActivate("Skype (TM) - 创建帐号")
Sleep(60)
WEnd
Sleep(600)
ControlClick("Skype (TM) - 创建帐号","[Class:TTntButton.UnicodeClass;Instance:1]")
While Not WinActivate("Skype")
Sleep(60)
WEnd
Sleep(600)
WinClose("Skype")
|