Code: Select all
#NoEnv
#SingleInstance, Force
SendMode, Input
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir%
bc := Chr(0169) " 2023 Benedito Carneiro"
Gui, Default
Gui, Font, s13 cYellow, Segoe UI
Gui, Color, 003366
Gui, Add, Text,, Pesquise em mecanismos de busca
Gui, Font, cWhite
Gui, Add, Text,, Escreva o argumento de pesquisa:
Gui, Font, cBlack
Gui, Add, Edit, w265 vPesq1
Gui, Font, cWhite
Gui, Add, Text,, Clique no mecanismo de busca:
Gui, Font, cBlack
Gui, Add, ListBox, r13 w170 vSelect gSelect, Google|YouTube|Bing|DuckDuckGo|Wikipédia|Ask|Boardreader|WolframAlpha|FindSounds|YouTube Music|Giphy|Project Gutenberg|IMDb
Gui, Add, Text,,
Gui, Add, Button, h30 w80 gSair, Sair
Gui, Font, cYellow
Gui, Add, Text,, %bc%
Gui, Show
return
Select:
Gui, Submit, NoHide
Pesq1 := RegExReplace(Pesq1," ","%20")
Switch, %A_GuiControl%
{
case "Bing" : Run, https://www.bing.com/search?q=%Pesq1%
case "DuckDuckGo" : Run, https://duckduckgo.com/?q=%Pesq1%
case "Google" : Run, https://www.google.com/search?q=%Pesq1%
case "Wikipédia" : Run, https://pt.wikipedia.org/w/index.php?search=%Pesq1%
case "YouTube" : Run, https://www.youtube.com/results?search_query=%Pesq1%
case "Ask" : Run, https://www.ask.com/web?q=%Pesq1%
case "Boardreader" : Run, https://boardreader.com/s/%Pesq1%.html
case "WolframAlpha" : Run, https://www.wolframalpha.com/input?i=%Pesq1%
case "FindSounds" : Run, https://www.findsounds.com/ISAPI/search.dll?keywords=%Pesq1%
case "YouTube Music" : Run, https://music.youtube.com/search?q=%Pesq1%
case "Giphy" : Run, https://giphy.com/search/%Pesq1%
case "Project Gutenberg" : Run, https://www.gutenberg.org/ebooks/search/?query=%Pesq1%
case "IMDb" : Run, https://www.imdb.com/find/?q=%Pesq1%
}
GuiControl,, Select, |Google|YouTube|Bing|DuckDuckGo|Wikipédia|Ask|Boardreader|WolframAlpha|FindSounds|YouTube Music|Giphy|Project Gutenberg|IMDb
Return
GuiEscape:
GuiClose:
Sair:
Gui,destroy
ExitApp