论坛 › 『 提问交流 』 › 请帮我设计这个软件的自动安装

enet98 发表于 2009-3-15 20:30:34

请帮我设计这个软件的自动安装

请将wrar380sc50000.RAR 的RAR改为EXE即可。

谢谢！

xrbenbeba 发表于 2009-3-15 20:51:58

大哥 别人欠你的奥

lynfr8 发表于 2009-3-15 20:53:23

估计是新手，可以帮还是帮，没问题的，看

Run('wrar380sc50000.exe')
WinWaitActive("WinRAR 3.80 简体中文版","安装")
send("{enter}")
WinWaitActive("WinRAR 简体中文版安装","WinRAR 关联文件")
ControlClick("WinRAR 简体中文版安装","WinRAR 关联文件","Button25")
WinWaitActive("关联菜单项目","选择显示在资源管理器右键菜单中的项目")
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button2", "UnCheck", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button3", "Check", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button4", "Check", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button5", "UnCheck", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button6", "Check", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button7", "Check", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button8", "Check", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button9", "UnCheck", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button10", "UnCheck", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button11", "UnCheck", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button12", "UnCheck", "" )
send("{enter}")
WinWaitActive("WinRAR 简体中文版安装","WinRAR 关联文件")
ControlClick("WinRAR 简体中文版安装","WinRAR 关联文件","Button1")
WinWaitActive("WinRAR 简体中文版安装","确定")
send("{enter}")
WinWaitActive("WinRAR 简体中文版安装","完成")
send("{enter}")

enet98 发表于 2009-3-15 21:09:47

原帖由 lynfr8 于 2009-3-15 20:53 发表 http://www.autoitx.com/images/common/back.gif
Run('wrar380sc50000.exe')
WinWaitActive("WinRAR 3.80 简体中文版","安装")
send("{enter}")
WinWaitActive("WinRAR 简体中文版安装","WinRAR 关联文件")
ControlClick("WinRAR 简体中文版安装","WinRAR 关联文 ...

谢谢这位老弟！
你说得一点都没错，我是新手，不好意思提这么低级的问题！
非常感谢你指导！

[ 本帖最后由 enet98 于 2009-3-15 22:09 编辑 ]

enet98 发表于 2009-3-15 21:12:05

xrbenbeba说得没错！没有人欠我的，只是我太需要大家的帮助了！
我希望自己能够制作软件自动安装！
里面或许有很多疑问，希望你们原谅！

enet98 发表于 2009-3-15 21:16:07

我想从这个实例中照葫芦画瓢学到一点东西！

enet98 发表于 2009-3-15 21:16:45

弄清楚每一步为什么要这么编写！

enet98 发表于 2009-3-15 22:17:51

看，我改得更简单：
Run('wrar380sc50000.exe')
WinWaitActive("WinRAR 3.80 简体中文版","安装")
send("{enter}")
WinWaitActive("WinRAR 简体中文版安装","确定")
send("{enter}")
WinWaitActive("WinRAR 简体中文版安装","完成")
send("{enter}")

131738 发表于 2009-3-15 22:41:30

刚注册的吧，估计还没翻够贴子！！

这个模板看看吧，可能有点用的！

http://www.autoitx.com/forum.php?mod=viewthread&tid=140&extra=page%3D3

zzm0163 发表于 2009-3-16 13:27:02

上面的模块好专业，没看明白，我也是新手，呵呵

kn007 发表于 2009-6-4 19:50:35

留个名ControlCommand

boyhong 发表于 2009-6-5 13:12:27

感谢三楼~~~学习了~~
我太菜，小改了一下：

If FileExists(@ScriptDir & "\wrar380sc50000.exe") Then
Run(@ScriptDir&"\wrar380sc50000.exe")
WinWait("WinRAR 3.80 简体中文版","安装")
WinActivate("WinRAR 3.80 简体中文版","安装")
ControlClick("WinRAR 3.80 简体中文版","安装",1)
;send("{enter}")
WinWaitActive("WinRAR 简体中文版安装","WinRAR 关联文件")
ControlClick("WinRAR 简体中文版安装","WinRAR 关联文件","Button25")
WinWait("关联菜单项目","选择显示在资源管理器右键菜单中的项目")
WinActivate("关联菜单项目","选择显示在资源管理器右键菜单中的项目")
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button2", "UnCheck", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button3", "Check", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button4", "Check", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button5", "UnCheck", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button6", "Check", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button7", "Check", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button8", "Check", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button9", "UnCheck", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button10", "UnCheck", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button11", "UnCheck", "" )
ControlCommand ("关联菜单项目","选择显示在资源管理器右键菜单中的项目", "Button12", "UnCheck", "" )
ControlClick("关联菜单项目","选择显示在资源管理器右键菜单中的项目",1)
;send("{enter}")
WinWaitActive("WinRAR 简体中文版安装","WinRAR 关联文件")
ControlClick("WinRAR 简体中文版安装","WinRAR 关联文件",1)
WinWait("WinRAR 简体中文版安装","完成")
WinActivate("WinRAR 简体中文版安装","完成")
ControlClick("WinRAR 简体中文版安装","完成",1)
WinWait("WinRAR","")
WinActivate("WinRAR","")
winkill("WinRAR","")
MsgBox(4096, "安装成功", "WinRAR 3.80 简体中文版已成功安装，点击 确定 退出")
Exit
else
MsgBox(4096, "警告", "安装程序缺少主文件，无法安装，请向管理员索取~~~谢谢")
Exit
Endif

ldj8181 发表于 2009-6-6 17:49:37

自己动手丰玉足食

jiaxinfu 发表于 2009-6-9 19:50:28

都很不错,学习一下

wjs3325120 发表于 2009-6-22 17:01:20

强站！强人！受益匪浅

查看完整版本: 请帮我设计这个软件的自动安装