Jump to content

Radio Buttons to Work


BrettF
 Share

Recommended Posts

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??

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...