[重发]VMware-workstation5自动安装

a_wind

不是我的原创，其实也是本论坛的成员写的，因为论坛出问题，老大又没有备份数据，所以现在重发一次，大家可以借鉴一下。


Run("VMware-workstation.exe")
Sleep(10000)
WinWaitActive("VMware Workstation", "This program is protected by copyright law and international treaties.")
Sleep(300)
Send("!N")
WinWaitActive("VMware Workstation","Click Next to install to this folder, or click Change to install to a different folder.")
Sleep(100)
Send("!N")
WinWaitActive("VMware Workstation","Create shortcuts for VMware Workstation in the following places:")
Sleep(100)
Send("!N")
Sleep(100)
Send("!N")
WinWaitActive("VMware Workstation","If you want to review or change any of your installation settings, click Back. Click Cancel to exit the wizard.")
Sleep(100)
Send("!I")
WinWaitActive("VMware Workstation","(optional) You can enter this information later.")
Sleep(100)
ControlSetText("VMware Workstation", "User Name:", "RichEdit20W1", "[qyc]小Q" )
Send("{TAB}")
ControlSetText("VMware Workstation", "Company:", "RichEdit20W2", "www.iv2.cn" )
Send("{TAB}")
ControlSetText("VMware Workstation", "Serial Number:   (XXXXX-XXXXX-XXXXX-XXXXX)", "RichEdit20W3", "FT88M-RM980-H2H4V-4YTQL" )
Send("!E")
WinWaitActive("VMware Workstation","The installation wizard has successfully installed VMware Workstation. Click Finish to exit the wizard.")
Sleep(100)
Send("!F")
Sleep(100)
Run("chs.exe")
WinWaitActive("安装 - VMware Workstation 汉化补丁", "欢迎使用 VMware Workstation 汉化补丁 安装向导")
Sleep(300)
Send("!N")
WinWaitActive("安装 - VMware Workstation 汉化补丁", "许可协议")
Sleep(300)
Send("!A")
Send("!N")
WinWaitActive("安装 - VMware Workstation 汉化补丁", "信息")
Sleep(300)
Send("!N")
WinWaitActive("安装 - VMware Workstation 汉化补丁", "选择目标位置")
Sleep(300)
Send("!N")
WinWaitActive("安装 - VMware Workstation 汉化补丁", "准备安装")
Sleep(300)
Send("!I")
WinWaitActive("tracky's BLOG-Welcome to my Blog ^_^", "tracky's BLOG-Welcome to my Blog ^_^")
Sleep(300)
Send("!")
Send("{F4}")
Sleep(300)
Send("!T")
Exit

xpboy

把代码做一个精简

gzh888666

很不错的学习叫泵