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

enet98

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

谢谢！

xrbenbeba

大哥 别人欠你的奥

lynfr8

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

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

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

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

enet98

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

enet98

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

enet98

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

enet98

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

131738

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

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

http://www.autoitx.com/forum.php ... &extra=page%3D3

zzm0163

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

kn007

留个名ControlCommand

boyhong

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

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

自己动手丰玉足食

jiaxinfu

都很不错,学习一下

wjs3325120

强站！强人！受益匪浅