一个GUI的按钮切换问题

lvsea2008

自己学编写一个GUI，但是现在有个问题，点了第一个按钮后，想换个，比如点第2个按钮就没有用，那个网页不能出来代码如下，因播放地址还没找到暂时用hao123来替代！
请指正下谢谢！
#include <GUIConstants.au3>
GUICreate("轻松一刻",500,380,194,116,-1,-1,WinGetHandle(AutoItWinGetTitle()))
GUISetState ()
$b1 = GUICtrlCreateButton ("视听享受", 0,0,61,30)
$b2 = GUICtrlCreateButton ("网络电视1",61,0,61,30)
$b3 = GUICtrlCreateButton ("网络电视2",122,0,61,30)
$b4 = GUICtrlCreateButton ("网址大全",183,0,61,30)

While 1
$msg = GUIGetMsg()
If $msg = $b1 Then
GUISetState(@SW_SHOW)
$os = ObjCreate("Shell.Explorer.2")
$GUIActiveX= GUICtrlCreateObj($os, 0,0 ,300,500)
$os.navigate("http://www.hao123.com/")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
EndIf
If $msg = $b2 Then
GUISetState(@SW_SHOW)
$oIE = ObjCreate("Shell.Explorer.2")
$GUIActiveX= GUICtrlCreateObj( $oIE,-2,-3,500,375 )
$oIE.navigate("http://www.baidu.com/")
While 1
    $msg = GUIGetMsg()
   
        Select
                Case $msg = $GUI_EVENT_CLOSE
                        ExitLoop
        EndSelect
Wend
EndIf
If $msg = $b3 Then
$oIE = ObjCreate("Shell.Explorer.2")
$GUIActiveX= GUICtrlCreateObj( $oIE,-2,-3,500,375 )
GUISetState ()       ;Show GUI
$oIE.navigate("http://www.163.com/")
While 1
    $msg = GUIGetMsg()
   
        Select
                Case $msg = $GUI_EVENT_CLOSE
                        ExitLoop
        EndSelect
Wend
EndIf
If $msg = $b4 Then
$url = "http://www.hao123.com/"
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe -new " & $url)
EndIf
wend

大绯狼

[au3]#include <GUIConstants.au3>
GUICreate("轻松一刻", 500, 380, 194, 116, -1, -1, WinGetHandle(AutoItWinGetTitle()))
GUISetState()
$b1 = GUICtrlCreateButton("视听享受", 0, 0, 61, 30)
$b2 = GUICtrlCreateButton("网络电视1", 61, 0, 61, 30)
$b3 = GUICtrlCreateButton("网络电视2", 122, 0, 61, 30)
$b4 = GUICtrlCreateButton("网址大全", 183, 0, 61, 30)

While 1
        $msg = GUIGetMsg()
        Switch $msg
                Case $b1
                        $os = ObjCreate("Shell.Explorer.2")
                        $GUIActiveX = GUICtrlCreateObj($os, 0, 30, 500, 375)
                        $os.navigate("about:blank")

                Case $b2
                        $oIE = ObjCreate("Shell.Explorer.2")
                        $GUIActiveX = GUICtrlCreateObj($oIE, 0, 30, 500, 375)
                        $oIE.navigate("http://www.baidu.com/")

                Case $b3
                        $oIE = ObjCreate("Shell.Explorer.2")
                        $GUIActiveX = GUICtrlCreateObj($oIE, 0, 30, 500, 375)
                        GUISetState() ;Show GUI
                        $oIE.navigate("http://www.163.com/")
                Case $b4
                        $url = "http://www.hao123.com/"
                        Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe -new " & $url)
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd[/au3]

lvsea2008

非常感谢
受教

lvsea2008

老大上面的代码再修改下呢
测试下发现如先点第一个按钮后打开页面，然后再点第二个按钮后显示出页面，但是第一个按钮显示的页面仍在显示，只是被他给压住了，如何消除呢，如果重复点第二个按钮那么会重复显示很多这个页面！