ie窗口下按钮刷新控制问题[已解决]

mtvtop

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

_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()

Local $all_width = @DesktopWidth - 10 ;窗口宽
Local $all_hight = @DesktopHeight - 70 ;窗口高
Local $tel="123456"

GUICreate($tel, $all_width, $all_hight)
GUICtrlCreateTab(8, 8, $all_width - 20, $all_hight - 50)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)


$Button1 = GUICtrlCreateButton("开始", 6, $all_hight - 30, 75, 25, 0)
$Button2 = GUICtrlCreateButton("刷新", 86, $all_hight - 30, 75, 25, 0)
$Button3 = GUICtrlCreateButton("关闭", 166, $all_hight - 30, 75, 25, 0)

GUISetState() 


While 1
        $nMsg = GUIGetMsg()
Select                
                
        Case $nMsg = $Button3
            ExitLoop        
        Case $nMsg = $Button1
            _go()
        Case $nMsg = $Button2
           _IEAction ($oIE, "refresh")
EndSelect
WEnd

GUIDelete()

Exit

Func _go()
        _IENavigate($oIE, "http://www.qq.com/")
EndFunc   ;==>_go

Func _gogo()
        _IEAction ($oIE, "refresh")
EndFunc   ;==>_go

点了无反应，请问问题出在哪？

mtvtop

谁能帮帮忙

lynfr8

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
Local $all_width = @DesktopWidth - 10 
Local $all_hight = @DesktopHeight - 70 
Local $tel="123456"
GUICreate($tel, $all_width, $all_hight)
GUICtrlCreateTab(8, 8, $all_width - 20, $all_hight - 50)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
GUICtrlCreateObj($oIE, 10, 40, $all_width-30, $all_hight-90);;;;;;;;;;;;;;;;;;;;
$Button1 = GUICtrlCreateButton("开始", 6, $all_hight - 30, 75, 25, 0)
$Button2 = GUICtrlCreateButton("刷新", 86, $all_hight - 30, 75, 25, 0)
$Button3 = GUICtrlCreateButton("关闭", 166, $all_hight - 30, 75, 25, 0)
GUISetState() 
While 1
        $nMsg = GUIGetMsg()
Select                
        Case $nMsg = $Button3
            Exit       
        Case $nMsg = $Button1
            _go()
        Case $nMsg = $Button2
           _IEAction ($oIE, "refresh")
EndSelect
WEnd

Func _go()
        _IENavigate($oIE, "http://www.baidu.com/")
EndFunc   ;==>_go

Func _gogo()
        _IEAction ($oIE, "refresh")
EndFunc   ;==>_go

mtvtop

老大 请问

Func _go()

        _IENavigate($oIE, "http://www.baidu.com/")

EndFunc   ;==>_go

我在这里加了一个循环后，按钮就无法用了，请问要怎么解决？

Func _go()

While 1
;这里面是主程序
WEnd

EndFunc   ;==>_go

mtvtop

回复 3# lynfr8

来大能不能再帮忙看一下

lynfr8

回复  lynfr8

来大能不能再帮忙看一下
mtvtop 发表于 2011-10-26 19:48

    http://www.autoitx.com/forum.php ... 59&fromuid=1003
这个问题论坛已经问了N次了，再不明白论坛搜索“循环”