Jump to content

Bored At work

flip209

By flip209,
in AutoIt Example Scripts

 Share

Is this useful or a waste of time?  

6 members have voted

  1. 1. Is this useful or a waste of time?

    • Very Useful
      3
    • I may use it
      1
    • Waste of time
      2

Recommended Posts

flip209 Universalist

flip209

Posted
Posted (edited)

I am bored at work today and made this it is pretty handy thou. Please commit and if you can think of any other search engines please feel free. The GUI is kinda bad thou... LOL

CODE
#include <GUIConstants.au3>

#include <IE.au3>

GUICreate("The Searcher", 400, 200) ; will create a dialog box that when displayed is centered

GUISetBkColor(0x000000)

$btn_Exit = GUICtrlCreateButton("Exit", 350, 170, 40)

$btn_Google = GUICtrlCreateButton("Google", 0, 30, 50)

$btn_Yahoo = GUICtrlCreateButton("Yahoo", 49, 30, 50)

$btn_Dogpile = GUICtrlCreateButton("Dogpile", 98, 30, 50)

$btn_Ask = GUICtrlCreateButton("Ask", 147, 30, 50)

$btn_Wiki = GUICtrlCreateButton("Wikipedia", 197, 30, 60)

$btn_Alta = GUICtrlCreateButton("AltaVista", 257, 30, 60)

$line = GUICtrlCreateInput("Enter Search", 0, 0, 350)

GUISetState(@SW_SHOW) ; will display an empty dialog box

Func _Google()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.google.com/search?hl=en&q=" & $form, 0, 1)

EndFunc ;==>_Google

Func _yahoo ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://search.yahoo.com/search?p=" & $form, 0, 1)

EndFunc ;==>_yahoo

Func _Dogpile ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.dogpile.com/info.dogpl/search/web/" & $form, 0, 1)

EndFunc ;==>_Dogpile

Func _Ask ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.ask.com/web?q=" & $form, 0, 1)

EndFunc ;==>_Ask

Func _Wiki ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://en.wikipedia.org/wiki/Special:Search?search=" & $form, 0, 1)

EndFunc

Func _Alta ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.altavista.com/web/results?itag=ody&q=" & $form, 0, 1)

EndFunc

; Run the GUI until the dialog is closed

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE Or $msg = $btn_Exit

ExitLoop

Case $msg = $btn_Google

Call("_Google")

Case $msg = $btn_Yahoo

Call("_yahoo")

Case $msg = $btn_Dogpile

Call("_Dogpile")

Case $msg = $btn_Ask

Call("_Ask")

Case $msg = $btn_Wiki

Call("_Wiki")

Case $msg = $btn_Alta

Call("_Alta")

EndSelect

WEnd

Edited by flip209

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Link to comment
Share on other sites
flip209 Universalist

flip209

Posted
  • Author
Posted

Update Version: I just fixed the GUI; I do have a question thou. Is there a way to clear the inputbox when the user clicks on it? I have looked but have failed to find anything?

CODE
#include <GUIConstants.au3>

#include <IE.au3>

GUICreate("The Searcher", 420, 70) ; will create a dialog box that when displayed is centered

GUISetBkColor(0x70a9da)

$row1 = 35

$btn_Exit = GUICtrlCreateButton("Exit", 358, $row1, 60)

$btn_Google = GUICtrlCreateButton("Google" ,0, $row1, 60,25)

$btn_Yahoo = GUICtrlCreateButton("Yahoo", 59, $row1, 60)

$btn_Dogpile = GUICtrlCreateButton("Dogpile", 118, $row1, 60)

$btn_Ask = GUICtrlCreateButton("Ask", 178, $row1, 60)

$btn_Wiki = GUICtrlCreateButton("Wikipedia", 238, $row1, 60)

$btn_Alta = GUICtrlCreateButton("AltaVista", 298, $row1, 60)

$line = GUICtrlCreateInput("Enter Search", 1, 2, 418)

GUISetState(@SW_SHOW) ; will display an empty dialog box

Func _Google()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.google.com/search?hl=en&q=" & $form, 0, 1)

EndFunc ;==>_Google

Func _yahoo ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://search.yahoo.com/search?p=" & $form, 0, 1)

EndFunc ;==>_yahoo

Func _Dogpile ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.dogpile.com/info.dogpl/search/web/" & $form, 0, 1)

EndFunc ;==>_Dogpile

Func _Ask ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.ask.com/web?q=" & $form, 0, 1)

EndFunc ;==>_Ask

Func _Wiki ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://en.wikipedia.org/wiki/Special:Search?search=" & $form, 0, 1)

EndFunc

Func _Alta ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.altavista.com/web/results?itag=ody&q=" & $form, 0, 1)

EndFunc

; Run the GUI until the dialog is closed

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE Or $msg = $btn_Exit

ExitLoop

Case $msg = $btn_Google

Call("_Google")

Case $msg = $btn_Yahoo

Call("_yahoo")

Case $msg = $btn_Dogpile

Call("_Dogpile")

Case $msg = $btn_Ask

Call("_Ask")

Case $msg = $btn_Wiki

Call("_Wiki")

Case $msg = $btn_Alta

Call("_Alta")

Case $msg = $line

GUICtrlSetData($line, "")

EndSelect

WEnd

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Link to comment
Share on other sites
BananaFredSoft Universalist

BananaFredSoft

Posted
Posted (edited)

Replace 

$Array = StringSplit($Search, " ")
    If $Array[0] = 1 Then
        $form = $Array[1]
    ElseIf $Array[0] = 2 Then
        $form = $Array[1] & "+" & $Array[2]
    ElseIf $Array[0] = 3 Then
        $form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]
    ElseIf $Array[0] = 4 Then
        $form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]
    ElseIf $Array[0] = 5 Then
        $form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]
    ElseIf $Array[0] = 6 Then
        $form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]
    EndIfoÝ÷ Û­«­¢+ØÀÌØí½É´ôMÑÉ¥¹IÁ± ÀÌØíMÉ °ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðì¬ÅÕ½Ðì¤

:)

Edited by BananaFredSoft

-ColinSite:www.bananafredsoft.comStuff:Simple Text Editor - MediaPlayer - Animator - BananaDB - BananaNotes - Chatta - Filesearch - Excuse GeneratorMy YouTube channel:http://www.youtube.com/user/colipat

Link to comment
Share on other sites
flip209 Universalist

flip209

Posted
  • Author
Posted

Sorry I was trying to clear the input, I worked with more then one word, I fixed it

CODE
#include <GUIConstants.au3>

#include <IE.au3>

GUICreate("The Searcher", 420, 70) ; will create a dialog box that when displayed is centered

GUISetBkColor(0x70a9da)

$row1 = 35

$btn_Exit = GUICtrlCreateButton("Exit", 358, $row1, 60)

$btn_Google = GUICtrlCreateButton("Google" ,0, $row1, 60,25)

$btn_Yahoo = GUICtrlCreateButton("Yahoo", 59, $row1, 60)

$btn_Dogpile = GUICtrlCreateButton("Dogpile", 118, $row1, 60)

$btn_Ask = GUICtrlCreateButton("Ask", 178, $row1, 60)

$btn_Wiki = GUICtrlCreateButton("Wikipedia", 238, $row1, 60)

$btn_Alta = GUICtrlCreateButton("AltaVista", 298, $row1, 60)

$line = GUICtrlCreateInput("Enter Search", 1, 2, 418)

GUISetState(@SW_SHOW) ; will display an empty dialog box

Func _Google()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

Else

$form = $Array[1]

EndIf

_IECreate("http://www.google.com/search?hl=en&q=" & $form, 0, 1)

EndFunc ;==>_Google

Func _yahoo ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://search.yahoo.com/search?p=" & $form, 0, 1)

EndFunc ;==>_yahoo

Func _Dogpile ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.dogpile.com/info.dogpl/search/web/" & $form, 0, 1)

EndFunc ;==>_Dogpile

Func _Ask ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.ask.com/web?q=" & $form, 0, 1)

EndFunc ;==>_Ask

Func _Wiki ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://en.wikipedia.org/wiki/Special:Search?search=" & $form, 0, 1)

EndFunc

Func _Alta ()

$Search = GUICtrlRead($line)

String($Search)

$Array = StringSplit($Search, " ")

If $Array[0] = 1 Then

$form = $Array[1]

ElseIf $Array[0] = 2 Then

$form = $Array[1] & "+" & $Array[2]

ElseIf $Array[0] = 3 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3]

ElseIf $Array[0] = 4 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4]

ElseIf $Array[0] = 5 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5]

ElseIf $Array[0] = 6 Then

$form = $Array[1] & "+" & $Array[2] & "+" & $Array[3] & "+" & $Array[4] & "+" & $Array[5] & "+" & $Array[6]

EndIf

_IECreate("http://www.altavista.com/web/results?itag=ody&q=" & $form, 0, 1)

EndFunc

; Run the GUI until the dialog is closed

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE Or $msg = $btn_Exit

ExitLoop

Case $msg = $btn_Google

Call("_Google")

Case $msg = $btn_Yahoo

Call("_yahoo")

Case $msg = $btn_Dogpile

Call("_Dogpile")

Case $msg = $btn_Ask

Call("_Ask")

Case $msg = $btn_Wiki

Call("_Wiki")

Case $msg = $btn_Alta

Call("_Alta")

Case $msg = $line

EndSelect

WEnd

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Link to comment
Share on other sites
flip209 Universalist

flip209

Posted
  • Author
Posted

Thank you.. Much cleaner

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Link to comment
Share on other sites
flip209 Universalist

flip209

Posted
  • Author
Posted

Off the subject what are the blue X's mean? I have one but I am not sure why?

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Link to comment
Share on other sites
flip209 Universalist

flip209

Posted
  • Author
Posted

O so like if you post say 25 times you get 1 x 50 you get 2 and so on lol. I feel stupid....

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Link to comment
Share on other sites
flip209 Universalist

flip209

Posted
  • Author
Posted

Well from the pole, it looks like no one likes this?

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Link to comment
Share on other sites
flip209 Universalist

flip209

Posted
  • Author
Posted

Why did you not use my suggestion? :)

What Suggestion?

$form = StringReplace($Search, " ", "+")

I used this i just never reposted.....

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

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
Go to topic listing

  • Recently Browsing   0 members

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