Radio Buttons to Work

[BrettF]

How can i get the radio buttons to work?

$term2 = "input"
            $google = GUICtrlRead($Radio1)
            $Yahoo = GUICtrlRead($Radio2)
            $MSN = GUICtrlRead($Radio3)
            $Jeeves = GUICtrlRead($Radio4)
            $Dogpile = GUICtrlRead($Radio5)
            $term = GUICtrlRead($Input2)
            If $Radio1 Or $Radio2 Or $Radio3 Or $Radio4 Or $Radio5 = $google Then

                $oIE.Navigate ("http://www.google.com.au/search?hl=en&q=" & $term2 & "&meta=")

            ElseIf $Radio1 Or $Radio2 Or $Radio3 Or $Radio4 Or $Radio5 = $Yahoo Then
                $oIE.Navigate ("http://search.yahoo.com/search?p=" & $term & "&fr=yfp-t-390&toggle=1&cop=mss&ei=UTF-8&vc=&fp_ip=AU")

            ElseIf $Radio1 Or $Radio2 Or $Radio3 Or $Radio4 Or $Radio5 = $MSN Then
                $oIE.Navigate ("http://search.ninemsn.com.au/results.aspx?q=" & $term & "&geovar=70&FORM=REDIR")

            ElseIf $Radio1 Or $Radio2 Or $Radio3 Or $Radio4 Or $Radio5 = $Jeeves Then
                $oIE.Navigate ("http://www.ask.com/web?q=" & $term & "&qsrc=0&o=0&l=dir")
                
            ElseIf $Radio1 Or $Radio2 Or $Radio3 Or $Radio4 Or $Radio5 = $Dogpile Then
                $oIE.Navigate ("http://www.dogpile.com/info.dogpl/search/web/" & $term & "/1/-/1/-/-/-/1/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/417/top/-/-/-/1")
            EndIf
            _IELoadWait($oIE)
            $URL = String($oIE.LocationURL)
            GUICtrlSetData($Input1, $URL)
            $name = $oIE.LocationName

Thats what i came up with. What should it be??

[Zedna]

If IsChecked($Radio1) Or IsChecked($Radio2) Then ...

Func IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Edited January 14, 2007 by Zedna