another useless script

[cdkid]

expandcollapse popup

#include <IE.au3>
#include <GUIConstants.au3>
opt("GUIOnEventMode",1)


$root = GuiCreate("Select Forum",200,200)
$bob = GuiCtrlCreateRadio("v3 Scripts And Scraps",-1,40)
$bob1 = GuiCtrlCreateRadio("v3 Support",-1,60)
$bob2 = GuiCtrlCreateRadio("v3 GUI (Graphical User Interface)",-1,80)
$bob3 = GuiCtrlCreateRadio("v3 Idea Lab",-1,100)
$okbtn = GuiCtrlCreateButton("Go!",100,150)
guictrlsetonevent($okbtn,"ok")
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

func CLOSEClicked()
    GUIDelete($root)
    exit
    endfunc
func ok()
    $b = GuiCtrlRead($bob)
    $b1 = GuiCtrlRead($bob1)
    $b2 = GuiCtrlRead($bob2)
    $b3 = GuiCtrlRead($bob3)
    
    
    if $b = "1" Then
        $m = _IECreate()
_IENavigate($m,"Http://www.autoitscript.com/forum")
_IEClickLinkByText($m,"v3 Scripts and Scraps")
exit
    EndIf
    
    
    if $b1 = "1" Then
        $m = _IECreate()
_IENavigate($m,"Http://www.autoitscript.com/forum")
_IEClickLinkByText($m,"v3 Support")
exit
EndIf

if $b2 = "1" then
    $m = _IECreate()
    _IENavigate($m,"Http://www.autoitscript.com/forum")
_IEClickLinkByText($m,"v3 GUI (Graphical User Interface)")
exit
EndIf

if $b3 = "1" Then
    $m = _IECreate
    _IENavigate($m,"Http://www.autoitscript.com/forum")
_IEClickLinkByText($m,"v3 Idea Lab")
exit
EndIf
endfunc


GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
     Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
   ;;;
    EndSelect
WEnd
Exit

bored.... opens a GUI with 4 radio buttons to go to the forums on the autoit site

Edited January 6, 2006 by cdkid