第一次写脚本，程序不能连续运行，请高人指点（已解决）

简单栽培

程序为什么运行一次或几次之后就无法运行了，必须退出之后才能运行。另我想小程序一直浮于窗口的最前，不被其他打开的程序覆盖。程序中不知缺少什么代码，请高手指点一下，万分感谢！代码如下：
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("测试", 450, 60, 520, 1 )  
$Button1 = GUICtrlCreateButton("123开始", 10, 10, 100, 40, 0)
$Button2 = GUICtrlCreateButton("新浪", 120, 10, 100, 40, 0)
$Button3 = GUICtrlCreateButton("汽车", 230, 10, 100, 40, 0)
$Button4 = GUICtrlCreateButton("好网", 340, 10, 100, 40, 0)
GUISetState(@SW_SHOW)

FUNC _my_ffs ()
        $oIE = _IECreate("http://www.hao123.com/", 1, 1, 1, 1)
       
ENDFUNC        

While 1
        $nMsg = GUIGetMsg()
        Select
                Case  $nMsg = $Button1   
                        WinActivate (_my_ffs ())
                                               
                Case  $nMsg = $Button2
                        $oIE = _IECreate("http://www.sina.com.cn/", 1, 1, 1, 1)
                       
        Case  $nMsg = $Button3                       
                        $oIE = _IECreate("http://www.autohome.com.cn/", 1, 1, 1, 1)
               
                Case  $nMsg = $Button4       
                        WinActivate (_my_ffs ())
                       
EndSelect
WEnd

ooxxgod

我的3.3.9.5IE出问题

zerobin

楼主看看这个   点击这里  和  点击这里2

happytc

回复 1# 简单栽培


    新手嘛，还是回复下

#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SendMessage.au3>

Global Const $SC_MOVE = 0xF010

$Form1 = GUICreate("测试", 450, 60, 520, 1, BitOR($WS_SYSMENU, $WS_POPUP))
$Button1 = GUICtrlCreateButton("123开始", 10, 10, 100, 40, 0)
$Button2 = GUICtrlCreateButton("新浪", 120, 10, 100, 40, 0)
$Button3 = GUICtrlCreateButton("汽车", 230, 10, 100, 40, 0)
$Button4 = GUICtrlCreateButton("好网", 340, 10, 100, 40, 0)
GUISetState(@SW_SHOW)

Func _my_ffs()
        $oIE = _IECreate("http://www.hao123.com/", 1, 1, 0)

EndFunc   ;==>_my_ffs

While 1
        $nMsg = GUIGetMsg()
        Select
                Case $nMsg = $Button1
                        WinActivate(_my_ffs())

                Case $nMsg = $Button2
                        $oIE = _IECreate("http://www.sina.com.cn/", 1, 1, 0)

                Case $nMsg = $Button3
                        $oIE = _IECreate("http://www.autohome.com.cn/", 1, 1, 0)
                Case $nMsg = $Button4
                        WinActivate(_my_ffs())
                Case $nMsg = $GUI_EVENT_CLOSE
                        ExitLoop
                Case $nMsg = $GUI_EVENT_PRIMARYDOWN
                        _SendMessage($Form1, $WM_SYSCOMMAND, $SC_MOVE + $HTCAPTION, 0)
                        

        EndSelect
WEnd

haijie1223

$Form1 = GUICreate("测试", 450, 60, 520, 1)
$Button1 = GUICtrlCreateButton("123开始", 10, 10, 100, 40, 0)
$Button2 = GUICtrlCreateButton("新浪", 120, 10, 100, 40, 0)
$Button3 = GUICtrlCreateButton("汽车", 230, 10, 100, 40, 0)
$Button4 = GUICtrlCreateButton("好网", 340, 10, 100, 40, 0)
GUISetState(@SW_SHOW)
WinSetOnTop($Form1,"",1)

While 1
        $nMsg = GUIGetMsg()
        Select
                Case $nMsg = -3
                        Exit
                Case $nMsg = $Button1
                        ShellExecute("http://www.hao123.com/")
                Case $nMsg = $Button2
                        ShellExecute("http://www.sina.com.cn/")
                Case $nMsg = $Button3
                        ShellExecute("http://www.autohome.com.cn/")
                Case $nMsg = $Button4
                        ShellExecute("http://www.hao123.com/")
        EndSelect
WEnd

简单栽培

回复 3# zerobin


    谢谢指点！！！！！！！

简单栽培

回复 4# happytc


    谢谢指点！！！！

简单栽培

回复 5# haijie1223


    谢谢指点！！！！！！！！！！