论坛 › 已解决问题区 › 建立一个运行按钮，可以运行，但是不能自动安装下去

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

:face (10):这帮没爬就想走的家伙。

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

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

回复 3# 顽固不化

:face (2): - -原谅我吧，，我才接触大概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

查看完整版本: 建立一个运行按钮，可以运行，但是不能自动安装下去