While 1 里有sleep就不能退出了吗

today2004

While 1
Sleep(5000)
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE  Then ExitLoop
Wend
$oIE=0              ; 清除内存
GUIDelete ()  

这样就不能退出了 去掉sleep就可以了

3mile

Sleep(5000)＝延时5秒。
每5秒检查一次$GUI_EVENT_CLOSE消息？

today2004

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3> ;
#Region ### START Koda GUI section ###
$Form1 = GUICreate("窗体1",800, 600)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE,1,1, 800, 600)
While 1
$oIE.navigate("http://www.baidu.cn/")
Sleep(5000)
$oIE.navigate("http://www.google.com/")
Sleep(5000)
$oIE.navigate("http://www.hao123.com/")
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###
Sleep(5000)
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE  Then ExitLoop
Wend
$oIE=0              ; 清除内存
GUIDelete ()   

我的脚本是这样的 窗口关闭按钮没反映

today2004

哪个高手帮检查下撒

3mile

试试这个。

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

Local $url[3], $n = 1
$url[0] = "http://www.baidu.cn/"
$url[1] = "http://www.google.com/"
$url[2] = "http://www.hao123.com/"
#Region ### START Koda GUI section ###
$Form1 = GUICreate("窗体1", 800, 600)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 1, 1, 800, 600)
$oIE.navigate("http://www.baidu.cn/")
GUISetState(@SW_SHOW)

AdlibRegister("IE", 5000)
While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func IE()
        If $n = 3 Then $n = 0
        $oIE.navigate($url[$n])
        $n += 1
EndFunc   ;==>IE
$oIE = 0 ; 清除内存
GUIDelete()

wyd301

测试了下，5楼的代码应该可以解决楼主的问题。

today2004

嗯 可以了 感谢大家热心帮助

zzz867

可能就是延迟造成的

sanmoking

我已经很久不用超过sleep(10)的了,都用If TimerDiff($begin) > $befor * 1000 Then...

pris

这个可以。