Sign in to follow this  
Followers 0
JReinn

Search Is Easy bot 2nd edition

1 post in this topic

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 :)

#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

Share this post


Link to post
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
Sign in to follow this  
Followers 0