建立一个运行按钮，可以运行，但是不能自动安装下去

lszconan · 发表于 2010-1-7 15:26:23

本帖最后由 lszconan 于 2010-1-8 14:22 编辑

我想把用户名输入进去，然后按运行按钮运行游戏，让它自动安装。
自动安装的部分也做好了。
用户名能输入了，运行了按钮能启动游戏了，但是我的自动安装却没反应
各位大哥大姐。。。能否提示下呢？或者给我个模板我自己参考、、谢谢了~~~

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("输入盛大通行证账户名", 280, 150)
$Input_1 = GUICtrlCreateInput("", 15, 20, 250, 20)
$Button1 = GUICtrlCreateButton("运行游戏", 100, 125, 60, 20)
$Button2 = GUICtrlCreateButton("清空", 200, 125, 60, 20)
GUICtrlSetData ( $Input_1 ,'')
GUISetState(@SW_SHOW)
ControlFocus($Form1, "", $Button2)
#EndRegion ### END Koda GUI section ###

While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
            Case $GUI_EVENT_CLOSE
                     Exit

            Case $Button1
                     run("g:\传奇归来.exe")

            Case $Button2
                     GUICtrlSetData ( $Input_1 ,'')
      EndSwitch
WEnd

这个是运行按钮部分的。。。

下面这个是自动安装的
winwait("《传奇归来》公测版安装","欢迎使用《传奇归来》公测版安装向导")
ControlClick("《传奇归来》公测版安装","欢迎使用《传奇归来》公测版安装向导","Button 5")
send("!n")
winwait("《传奇归来》公测版安装","在安装《传奇归来》公测版之前")
ControlClick("《传奇归来》公测版安装","在安装《传奇归来》公测版之前","Button 5")
send("!i")
winwait("《传奇归来》公测版安装","选择《传奇归来》公测版要安装的文件夹")
ControlClick("《传奇归来》公测版安装","选择《传奇归来》公测版要安装的文件夹","Button 5")
send("!i")
winwait("《传奇归来》公测版安装请输入推荐用户通行证","安装完成")
ControlClick ("《传奇归来》公测版安装请输入推荐用户通行证","安装完成","Button5","left","1")
send("!n")

我意思是不知道怎么连起来。。= =

zz999 · 发表于 2010-1-7 15:47:14

什么控件?
一般控件和程序放在同一目录就可以了
或者用
regsvr32 *.dll /s来注册控件

顽固不化 · 发表于 2010-1-7 15:53:20

这帮没爬就想走的家伙。

lszconan · 发表于 2010-1-7 15:58:40

本帖最后由 lszconan 于 2010-1-7 16:00 编辑

回复 3# 顽固不化

- -原谅我吧，，我才接触大概4天这样。。我这个急要的。。这也是学习啊，，不过方式有点像伸手党而已。。

lszconan · 发表于 2010-1-8 13:05:02

- -坐等各位给点提示~~~

zz999 · 发表于 2010-1-8 13:08:54

汗,问题又改了啊!
你把源码帖出来
不然没法帮你看!
我反正么看懂你说的啥!

lszconan · 发表于 2010-1-8 13:23:24

回复 6# zz999

改了- -大哥帮忙看看~~~谢谢

zz999 · 发表于 2010-1-8 13:39:26

回复 7# lszconan

是不是要安装这几个软件呀!
不知道怎么同时安装?

lszconan · 发表于 2010-1-8 13:41:42

回复 8# zz999

不是，，不知道点击那按钮，然后让软件自动安装。。就是2段代码不知道怎么连一起。。

zz999 · 发表于 2010-1-8 14:03:57

回复 9# lszconan

用RUNWAIT

zz999 · 发表于 2010-1-8 14:04:55

回复 10# zz999

这个是运行按钮部分的。。。

runwait("g:\传奇归来.exe")
winwait("《传奇归来》公测版安装","欢迎使用《传奇归来》公测版安装向导")
ControlClick("《传奇归来》公测版安装","欢迎使用《传奇归来》公测版安装向导","Button 5")
send("!n")

runwait("g:\传奇归来.exe")
winwait("《传奇归来》公测版安装","在安装《传奇归来》公测版之前")
ControlClick("《传奇归来》公测版安装","在安装《传奇归来》公测版之前","Button 5")
send("!i")

runwait("g:\传奇归来.exe")
winwait("《传奇归来》公测版安装","选择《传奇归来》公测版要安装的文件夹")
ControlClick("《传奇归来》公测版安装","选择《传奇归来》公测版要安装的文件夹","Button 5")
send("!i")

runwait("g:\传奇归来.exe")
winwait("《传奇归来》公测版安装请输入推荐用户通行证","安装完成")
ControlClick ("《传奇归来》公测版安装请输入推荐用户通行证","安装完成","Button5","left","1")
send("!n")

zz999 · 发表于 2010-1-8 14:05:16

是这个意思么?

lszconan · 发表于 2010-1-8 14:11:51

回复 12# zz999
我输入了用户名，点击运行游戏。。
它就自动运行起我的游戏，，但是不能自动安装下去。。

- -大哥，能明白我意思不？

zz999 · 发表于 2010-1-8 14:17:36

那就检查你安装脚本

afan · 发表于 2010-1-8 14:18:21

这意思？你输入的东东有用么……

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("输入盛大通行证账户名", 280, 150)
$Input_1 = GUICtrlCreateInput("", 15, 20, 250, 20)
$Button1 = GUICtrlCreateButton("运行游戏", 100, 125, 60, 20)
$Button2 = GUICtrlCreateButton("清空", 200, 125, 60, 20)
GUICtrlSetData($Input_1, '')
GUISetState(@SW_SHOW)
ControlFocus($Form1, "", $Button2)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

                Case $Button1
                        Install()

                Case $Button2
                        GUICtrlSetData($Input_1, '')
        EndSwitch
WEnd

Func Install()
        Run("g:\传奇归来.exe")
        WinWait("《传奇归来》公测版 安装", "欢迎使用 《传奇归来》公测版 安装向导")
        ControlClick("《传奇归来》公测版 安装", "欢迎使用 《传奇归来》公测版 安装向导", "Button 5")
        Send("!n")
        WinWait("《传奇归来》公测版 安装", "在安装 《传奇归来》公测版 之前")
        ControlClick("《传奇归来》公测版 安装", "在安装 《传奇归来》公测版 之前", "Button 5")
        Send("!i")
        WinWait("《传奇归来》公测版 安装", "选择 《传奇归来》公测版 要安装的文件夹")
        ControlClick("《传奇归来》公测版 安装", "选择 《传奇归来》公测版 要安装的文件夹", "Button 5")
        Send("!i")
        WinWait("《传奇归来》公测版 安装请输入推荐用户通行证", "安装完成")
        ControlClick("《传奇归来》公测版 安装请输入推荐用户通行证", "安装完成", "Button5", "left", "1")
        Send("!n")
EndFunc   ;==>Install

		自动登录	找回密码
密码			加入

建立一个运行按钮，可以运行，但是不能自动安装下去

评分

本帖子中包含更多资源