论坛 › 已解决问题区 › 学写的东西，为什么窗口关不掉呢？请大家帮帮我。刚学写不好，大家别笑我。

xzrmail 发表于 2009-11-29 02:22:55

学写的东西，为什么窗口关不掉呢？请大家帮帮我。刚学写不好，大家别笑我。

本帖最后由 afan 于 2009-11-29 03:46 编辑

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("魔兽世界插件管理器", 300, 215, -1, -1)
$Button1 = GUICtrlCreateButton("清除插件", 215, 10, 80, 30, 0)
$Button2 = GUICtrlCreateButton("多玩插件运行", 215, 50, 80, 30, 0)
$Button3 = GUICtrlCreateButton("精灵插件运行", 215, 90, 80, 30, 0)
$Button4 = GUICtrlCreateButton("大脚插件运行", 215, 130, 80, 30, 0)
$Button5 = GUICtrlCreateButton("无插件运行", 215, 170, 80, 30, 0)
$Pic1 = GUICtrlCreatePic("bj.jpg", 10, 10, 200, 190, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                case $Button1
                        FileRecycle("G:\魔兽世界\Interface")
                        MsgBox(4096, "提示", "插件已清除!")
                Case $Button2
                        ToolTip("■■■■■■■■■■■■■■■■■■■■■" & @crlf & "----------插件正在安装中,请稍后.----------" & @crlf & "■■■■■■■■■■■■■■■■■■■■■", 400, 200)
                        InetGet("http://192.168.0.244/download/wowplugin/duowan.exe", "d:\vd\temp.exe")
                        Run("d:\vd\temp.exe")
                        Exit
                Case $Button3
                        ToolTip("■■■■■■■■■■■■■■■■■■■■■" & @crlf & "----------插件正在安装中,请稍后.----------" & @crlf & "■■■■■■■■■■■■■■■■■■■■■", 400, 200)
                        InetGet("http://192.168.0.244/download/wowplugin/Wowshell.exe", "d:\vd\temp.exe")
                        Run("d:\vd\temp.exe")
                        Exit
                Case $Button4
                        ToolTip("■■■■■■■■■■■■■■■■■■■■■" & @crlf & "----------插件正在安装中,请稍后.----------" & @crlf & "■■■■■■■■■■■■■■■■■■■■■", 400, 200)
                        InetGet("http://192.168.0.244/download/wowplugin/BigFoot.exe", "d:\vd\temp.exe")
                        Run("d:\vd\temp.exe")
                        Exit
                Case $Button5
                        Run("G:\魔兽世界\Launcher.exe")
                        Exit
                EndSwitch
WEnd

afan 发表于 2009-11-29 02:24:59

还要加2行Case -3
Exit

xzrmail 发表于 2009-11-29 02:27:42

还要加2行
afan 发表于 2009-11-29 02:24 http://www.autoitx.com/images/common/back.gif

谢谢你！

afan 发表于 2009-11-29 02:28:43

回复 3# xzrmail


    不客气~

xzrmail 发表于 2009-11-29 02:31:01

回复xzrmail


    不客气~
afan 发表于 2009-11-29 02:28 http://www.autoitx.com/images/common/back.gif


    我试了，还是关不掉。不好意思哈！你帮我试试。谢谢了！

afan 发表于 2009-11-29 02:32:39

加在
      Switch $nMsg

                case $Button1
之间
这样：
      Switch $nMsg
                Case -3
                           Exit
                case $Button1

xzrmail 发表于 2009-11-29 02:39:52

加在
      Switch $nMsg

                case $Button1
之间
这样：
      Switch $nMsg
    ...
afan 发表于 2009-11-29 02:32 http://www.autoitx.com/images/common/back.gif

6000[/attachimg
我说的是关红色的那里关不掉。我很菜的。哈哈！

afan 发表于 2009-11-29 02:41:41

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("魔兽世界插件管理器", 300, 215, -1, -1)
$Button1 = GUICtrlCreateButton("清除插件", 215, 10, 80, 30, 0)
$Button2 = GUICtrlCreateButton("多玩插件运行", 215, 50, 80, 30, 0)
$Button3 = GUICtrlCreateButton("精灵插件运行", 215, 90, 80, 30, 0)
$Button4 = GUICtrlCreateButton("大脚插件运行", 215, 130, 80, 30, 0)
$Button5 = GUICtrlCreateButton("无插件运行", 215, 170, 80, 30, 0)
$Pic1 = GUICtrlCreatePic("bj.jpg", 10, 10, 200, 190, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
               Case -3
                           Exit
                case $Button1
                        FileRecycle("G:\魔兽世界\Interface")
                        MsgBox(4096, "提示", "插件已清除!")
                Case $Button2
                        ToolTip("■■■■■■■■■■■■■■■■■■■■■" & @crlf & "----------插件正在安装中,请稍后.----------" & @crlf & "■■■■■■■■■■■■■■■■■■■■■", 400, 200)
                        InetGet("http://192.168.0.244/download/wowplugin/duowan.exe", "d:\vd\temp.exe")
                        Run("d:\vd\temp.exe")
                        Exit
                Case $Button3
                        ToolTip("■■■■■■■■■■■■■■■■■■■■■" & @crlf & "----------插件正在安装中,请稍后.----------" & @crlf & "■■■■■■■■■■■■■■■■■■■■■", 400, 200)
                        InetGet("http://192.168.0.244/download/wowplugin/Wowshell.exe", "d:\vd\temp.exe")
                        Run("d:\vd\temp.exe")
                        Exit
                Case $Button4
                        ToolTip("■■■■■■■■■■■■■■■■■■■■■" & @crlf & "----------插件正在安装中,请稍后.----------" & @crlf & "■■■■■■■■■■■■■■■■■■■■■", 400, 200)
                        InetGet("http://192.168.0.244/download/wowplugin/BigFoot.exe", "d:\vd\temp.exe")
                        Run("d:\vd\temp.exe")
                        Exit
                Case $Button5
                        Run("G:\魔兽世界\Launcher.exe")
                        Exit
                EndSwitch
WEnd

afan 发表于 2009-11-29 02:43:33

还得贴全部哦。。。

xzrmail 发表于 2009-11-29 02:44:56

回复 8# afan
哇！你真励害！
Thanks very much!

afan 发表于 2009-11-29 02:46:41

回复 10# xzrmail


    这个。。。 你只是刚学而已，不是我厉害，我也是新手~

水木子 发表于 2009-11-29 08:33:18

回复xzrmail


    这个。。。 你只是刚学而已，不是我厉害，我也是新手~
afan 发表于 2009-11-29 02:46 http://www.autoitx.com/images/common/back.gif
超级版主还是新人？谁信啊？:face (32):

ljsoso 发表于 2009-11-29 09:23:57

学习学习！

lidexiang88 发表于 2009-12-4 10:22:37

afan 发表于 2009-11-29 02:41 http://www.autoitx.com/images/common/back.gif
这个可是完整的“魔兽世界插件管理器”啊！可是俺不玩它！！

zhenglei 发表于 2009-12-4 10:30:13

留脚印!!!!!!!!

查看完整版本: 学写的东西，为什么窗口关不掉呢？请大家帮帮我。刚学写不好，大家别笑我。