JReinn Posted February 24, 2009 Share Posted February 24, 2009 This searches for you. You input a fraze, and it can search: Google, Youtube, Wikipedia, etc. It also has a search function for a site called D3scene.com, where I contribute with my AutoIt bots. (That's the function you need the resolution for, else you don't need it expandcollapse popup#include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=d:\users\jan\desktop\applications\koda\forms\winner's search is easy bot v2.kxf $Form1 = GUICreate("WinneR's Search Is easy bot 2nd edition", 412, 495, 192, 124) $Input1 = GUICtrlCreateInput("D3Scene.com", 32, 16, 161, 21) $Button1 = GUICtrlCreateButton("Search Google!", 32, 48, 161, 25, 0) $Input2 = GUICtrlCreateInput("WinneR", 240, 16, 161, 21) $Button2 = GUICtrlCreateButton("View user profile", 240, 48, 161, 25, 0) $Button3 = GUICtrlCreateButton("Visit D3Scene.com for Hacks, Bots and Tools", 80, 400, 249, 57, 0) $Button4 = GUICtrlCreateButton("About", 176, 200, 81, 33, 0) $Button5 = GUICtrlCreateButton("Copyrights", 160, 152, 113, 41, 0) $Input3 = GUICtrlCreateInput("Neobux", 32, 88, 161, 21) $Input4 = GUICtrlCreateInput("D3Scene.com", 240, 88, 161, 21) $Button7 = GUICtrlCreateButton("Search YouTube", 32, 120, 163, 25, 0) $Button8 = GUICtrlCreateButton("Search Wikipedia", 240, 120, 161, 25, 0) $Input5 = GUICtrlCreateInput("WinneR's Search Is Easy bot", 32, 248, 161, 21) $Button9 = GUICtrlCreateButton("Search D3Scene.com", 32, 280, 161, 25, 0) $Input6 = GUICtrlCreateInput("24.S07E08.HDTV.XviD-LOL", 240, 248, 161, 21) $Button6 = GUICtrlCreateButton("Search Subscene.com", 240, 280, 161, 25, 0) $Input7 = GUICtrlCreateInput("24.S07E08.HDTV.XviD-LOL", 32, 336, 161, 21) $Button10 = GUICtrlCreateButton("Search Opensubtitles.org", 32, 368, 163, 25, 0) $Input8 = GUICtrlCreateInput("24.S07E08.HDTV.XviD-LOL", 240, 336, 161, 21) $Button11 = GUICtrlCreateButton("Search Warez-bb", 240, 368, 161, 25, 0) $Combo1 = GUICtrlCreateCombo("Choose your resolution", 120, 464, 153, 25) GUICtrlSetData(-1, "1280*1024|1280*768|1024*768") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $BUTTON1 _SEARCH_GOOGLE(GUICtrlRead($INPUT1), "com") Case $BUTTON2 ShellExecute("http://www.d3scene.com/forum/members/" & GUICtrlRead($Input2) & ".html") Case $BUTTON3 $v = MsgBox(0x44, "WinneR's Search Is easy bot 2nd edition", "You are now being taken to www.D3scene.com, do you want to go to the registration site right away?") If ( $v == 6 ) Then ShellExecute("http://www.d3scene.com/forum/register.php") Else ShellExecute("http://www.d3scene.com/") EndIf Case $BUTTON4 MsgBox(1,"About", "This is a bot made by WinneR from D3Scene.com, it can be used for searching: Google, YouTube, Wikipedia, D3Scene.com, Subscene.com, Opensubtitles.org, Warez-bb.org and to view user profiles on D3Scene.com. The resolution stuff top down is needed for the Search D3Scene.com feature only.") Case $BUTTON5 MsgBox(1, "Copyrights", "This application is made by WinneR from D3Scene.com (With help from AlmarM from the AutoIt forum) - Copyright by D3Scene.com & WinneR - All rights reserved.") Case $BUTTON6 ShellExecute("http://subscene.com/s.aspx?q=" & GuiCtrlRead($Input6)) Case $BUTTON7 ShellExecute("http://www.youtube.com/results?search_query=" & GUICtrlRead($INPUT3) & "&search_type=") Case $BUTTON8 ShellExecute("http://en.wikipedia.org/wiki/" & GUICtrlRead($INPUT4)) Case $Button9 ShellExecute("http://www.d3scene.com/forum/search.php") Sleep(15000) If GuiCtrlRead($Combo1) = "1280*1024" Then MouseClick("Left",415,682,1,1000) If GuiCtrlRead($Combo1) = "1280*768" Then MouseClick("Left",434,682,1,1000) If GuiCtrlRead($Combo1) = "1024*768" Then MouseClick("Left",331,682,1,1000) EndIf EndIf EndIf Sleep(200) Send(GuiCtrlRead($Input5)) Sleep(500) Send("{Enter}") Case $Button10 ShellExecute("http://www.opensubtitles.org/en/search2/sublanguageid-all/moviename-" & GuiCtrlRead($Input7)) Case $Button11 ShellExecute("http://www.warez-bb.org/search.php") MsgBox(0,"Error","Warez-bb is an illegal site. *Search MAY be fixed later.*") EndSwitch WEnd Func _SEARCH_GOOGLE($AKEYWORDS, $ALANGUAGE) ShellExecute("http://www.google." & $ALANGUAGE & "/search?hl=" & $ALANGUAGE & "&q=" & $AKEYWORDS & "&meta=") EndFunc Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now