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

xzrmail

#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

还要加2行

Case -3
Exit

xzrmail

还要加2行
afan 发表于 2009-11-29 02:24

谢谢你！

afan

回复 3# xzrmail


    不客气~

xzrmail

回复  xzrmail


    不客气~
afan 发表于 2009-11-29 02:28

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

afan

加在
        Switch $nMsg

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

xzrmail

加在
        Switch $nMsg

                case $Button1
之间
这样：
        Switch $nMsg
    ...
afan 发表于 2009-11-29 02:32

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

afan

#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

还得贴全部哦。。。

xzrmail

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

afan

回复 10# xzrmail


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

水木子

回复  xzrmail


    这个。。。 你只是刚学而已，不是我厉害，我也是新手~
afan 发表于 2009-11-29 02:46

超级版主还是新人？谁信啊？

ljsoso

学习学习！

lidexiang88

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

这个可是完整的“魔兽世界插件管理器”啊！可是俺不玩它！！

zhenglei

留脚印!!!!!!!!