新手刚做的，无法自动运行！请前辈指点错误！谢谢！-『提问交流』-AUTOIT CN

enet98 发表于 2009-3-16 08:42:03

新手刚做的，无法自动运行！请前辈指点错误！谢谢！

新手刚做的，无法自动运行！请前辈指点错误！谢谢！

Run('flashget23cn.exe')
WinWaitActive("快车（FlashGet）2.3版安装","欢迎使用快车（FlashGet）2.3版安装程序")
ControlClick("快车（FlashGet）2.3版安装","下一步[&N]","Button2")
send("{enter}")
WinWaitActive("快车（FlashGet）2.3版安装","许可证协议")
ControlClick("快车（FlashGet）2.3版安装","许可证协议","Button2")
send("{enter}")
WinWaitActive("快车（FlashGet）2.3版安装","选择安装位置")
ControlClick("快车（FlashGet）2.3版安装","选择安装位置","Button2")
send("{enter}")
WinWaitActive("快车（FlashGet）2.3版安装","附加任务")
WinWaitActive("快车（FlashGet）2.3版安装","附加任务","基本设置")
ControlCommand ("快车（FlashGet）2.3版安装","附加任务", "Button8", "UnCheck", "" )
ControlCommand ("快车（FlashGet）2.3版安装","附加任务", "Button7", "Check", "" )
ControlCommand ("快车（FlashGet）2.3版安装","附加任务", "Button6", "UnCheck", "" )
ControlCommand ("快车（FlashGet）2.3版安装","附加任务","Button5", "UnCheck", "" )
ControlCommand ("快车（FlashGet）2.3版安装","附加任务", "Button4", "UnCheck", "" )
WinWaitActive("快车（FlashGet）2.3版安装","附加任务")
ControlClick("快车（FlashGet）2.3版安装","附加任务","Button2")
send("{enter}")
WinWaitActive("快车（FlashGet）2.3版安装","Google工具栏，免费并简单易用")
ControlClick("快车（FlashGet）2.3版安装","Button4", "UnCheck")
ControlClick("快车（FlashGet）2.3版安装","下一步[&N]","Button2")
send("{enter}")
WinWaitActive("精品软件推荐","精品软件推荐")
ControlCommand ("精品软件推荐","精品软件推荐", "Button4", "UnCheck", "" )
ControlCommand ("精品软件推荐","精品软件推荐", "Button5", "UnCheck", "" )
ControlCommand ("精品软件推荐","精品软件推荐", "Button6", "UnCheck", "" )
ControlCommand ("精品软件推荐","精品软件推荐", "Button7", "UnCheck", "" )
ControlClick("精品软件推荐","下一步[&N]","Button2" )
send("{enter}")
WinWaitActive("快车（FlashGet）2.3版安装","完成","Button2")
send("{enter}")

bob 发表于 2009-3-16 08:53:46

请问到哪一步停止了

enet98 发表于 2009-3-16 09:22:23

只运行了一步：
Run('flashget23cn.exe')
WinWaitActive("快车（FlashGet）2.3版安装","欢迎使用快车（FlashGet）2.3版安装程序")
ControlClick("快车（FlashGet）2.3版安装","下一步[&N]","Button2")

停止不动了！

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

131738 发表于 2009-3-16 10:39:26

第3行改为：
ControlClick("快车（FlashGet）2.3版安装","欢迎使用快车（FlashGet）2.3版安装程序","Button2")

第3行或改为：
ControlClick("快车（FlashGet）2.3版安装","","Button2")

send("{enter}")去掉所有回车行！

试试！！！

131738 发表于 2009-3-16 10:41:16

手动安装也是鼠标点按纽后，不用再按键盘回车的吧！

enet98 发表于 2009-3-16 12:02:30

原帖由 131738 于 2009-3-16 10:39 发表 http://www.autoitx.com/images/common/back.gif
第3行改为：
ControlClick("快车（FlashGet）2.3版安装","欢迎使用快车（FlashGet）2.3版安装程序","Button2")

第3行或改为：
ControlClick("快车（FlashGet）2.3版安装","","Button2")

send("{enter} ...

还是不行！

enet98 发表于 2009-3-16 12:03:27

手动安装鼠标点按纽后，不用再按键盘回车！

enet98 发表于 2009-3-16 12:05:52

这里下载程序：
http://58.218.206.82/flashget23cn.exe

131738 发表于 2009-3-16 14:46:15

以下是用那模板套的！虚拟机测试！如有漏掉或某步过不了，看看帮助文档！
For $i = 0 to 1
Global $var0
Assign("var0", "C")
$var1 = InputBox("路径选择", "开始 XX 的自动安装,请输入安装路径盘:","C", " M1")
If @error=1 Then
MsgBox(4096,"错误", "你点错按钮啦!")
Else
If $var1 = $var0 Then
   $var2 = $var0
ElseIf $var1 <> $var0 Then
   $var2 = $var1
EndIf
$i = FileExists($var2 & ":")
      If $i = 0Then
   MsgBox(16, "警告!", "所选驱动器不存在!重新操作!")
      Else
   EndIf
EndIf
Next
If FileExists($var2 & ":\Program Files") Then
Else
DirCreate($var2 & ":\Program Files")
EndIf
$title="快车(FlashGet)2.3版安装"
Run("flashget23cn.exe")
WinWaitActive($title, "欢迎使用快车")
ControlClick($title, "", "Button2")
WinWaitActive($title, "许可证协议")
ControlClick($title, "", "Button2")
WinWaitActive($title, "选择安装位置")
If $var2 = $var0 Then
Else
$var3 = ControlGetText($title, "选择安装位置", "Edit1")
$var4 = StringReplace ( $var3, 1, $var2 )
ControlSetText($title, "选择安装位置", "Edit1", $var4 )
EndIf
ControlClick($title, "选择安装位置", "Button2")
WinWaitActive($title, "基本设置")
ControlClick($title, "", "Button8")
ControlClick($title, "", "Button6")
ControlClick($title, "", "Button4")
ControlClick($title, "", "Button2")
WinWaitActive($title, "Google工具栏")
ControlClick($title, "", "Button4")
ControlClick($title, "", "Button2")
WinWait("精品软件推荐","精品软件推荐")
If Not WinActivate("精品软件推荐","精品软件推荐") Then WinActivate("精品软件推荐","精品软件推荐")
WinWaitActive("精品软件推荐", "精品软件推荐")
ControlClick("精品软件推荐", "", "Button4")
ControlClick("精品软件推荐", "", "Button5")
ControlClick("精品软件推荐", "", "Button6")
ControlClick("精品软件推荐", "", "Button7")
ControlClick("精品软件推荐", "", "Button2")
WinWaitActive($title,"安装完成")
ControlClick($title, "", "Button2")
WinWait("快车欢迎你")
WinKill("快车欢迎你")
WinWaitActive("FlashGet","快车不是当前浏览器")
ControlClick("FlashGet", "", "Button1")
WinWaitActive("Default Downloads Path Setting","欢迎您使用快车!")
ControlClick("Default Downloads Path Setting", "", "Button1")
If Not WinActivate("快车(FlashGet) 2.3","热门电影资源下载") Then WinActivate("快车(FlashGet) 2.3","热门电影资源下载")
WinWaitActive("快车(FlashGet) 2.3", "热门电影资源下载")
WinWait("快车(FlashGet) 2.3")
WinKill("快车(FlashGet) 2.3")
ProcessWait("FlashGet.exe")
ProcessClose("FlashGet.exe")
$PID = ProcessExists("FlashGet.exe")
If $PID Then ProcessClose($PID)
ProcessClose ( "FlashGet.exe")

ProcessWait("iexplore.exe")
ProcessClose("iexplore.exe")
$PID = ProcessExists("iexplore.exe")
If $PID Then ProcessClose($PID)
ProcessClose ( "FlashGet.exe")

131738 发表于 2009-3-16 14:58:21

houxiren =enet98!!!???

enet98 发表于 2009-3-16 15:06:12

原帖由 131738 于 2009-3-16 14:46 发表 http://www.autoitx.com/images/common/back.gif
以下是用那模板套的！虚拟机测试！如有漏掉或某步过不了，看看帮助文档！
For $i = 0 to 1
Global $var0
Assign("var0", "C")
$var1 = InputBox("路径选择", "开始 XX 的自动安装,请输入安装路径盘:","C", ...

第一步就出现问题？

页: [1]

AUTOIT CN's Archiver

新手刚做的，无法自动运行！请前辈指点错误！谢谢！