Wiki Live Search - the easiest way

  • Nützlich oder Unnötig 3

    1. Nützlich - brauch ich (0) 0%
    2. Unnötig - braucht keiner (2) 67%
    3. Brauch ich nicht (2) 67%

    [Blockierte Grafik: http://www.abload.de/img/artworky1q8w.png]

    Hey,

    wieder ein kleines Tool für euch ;) Dieses Mal geht es um ein Wikipedia Such Tool, welches gleichzeitig gut ausschaut und total simpel ist. So simpel, dass ich euch nicht einmal die Bedienung erklären muss.
    Hier der Code:

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=Icon.ico
    #AutoIt3Wrapper_Outfile=Wiki Live Search.exe
    #AutoIt3Wrapper_Res_Comment=Search Wikipedia!
    #AutoIt3Wrapper_Res_Description=Search Wikipedia!
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=(C) LimeSoft Solutions 2011
    #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>
    FileInstall( "D:\Administrator\Documents\StevenX Media\Wiki Search\Icon.ico", @ScriptDir & "Icon.ico")
    #Region Trayicon
    Global $trayinfo, $infoitem1, $infoitem2, $ExitTray
    Opt('TrayMenuMode', 1)
    TraySetIcon( @ScriptDir & '\Images\Icon.ico')
    TraySetIcon( @ScriptFullPath, 0)
    TraySetClick(16)
    $About_Program = TrayCreateItem( 'The Program')
    $About_Website = TrayCreateItem( 'The Website')
    TrayCreateItem("")
    $ExitTray = TrayCreateItem( 'Exit Wiki Live Search')
    TraySetState()
    #endregion
    Global $DOMAIN = IniRead("Settings.ini", "Wiki_Live_Search_App", "Domain", "de")
    InetGet( "http://www.pro-linux.de/images/NB3/imgdb/o_wikipedia-logo-1.jpg", @ScriptDir & "\Cache.png")
    Global $Form1
    $ping = Ping("www.google.com")
    If $ping = 0 then
    MsgBox(16+0, "Error", "You have no Internet Connection!")
    EndIf
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Wiki Live Search by LimeSoft Solutions", 582, 193, 192, 124,$WS_POPUPWINDOW, $WS_EX_CONTROLPARENT)
    GUISetBkColor(0xFFFFF0)
    $Search = GUICtrlCreateInput("What are you looking for? Example: United States of America", 8, 104, 545, 21)
    $WikiPic = GUICtrlCreatePic("", 100, 10, 100, 78)
    GUICtrlSetImage( -1 , @ScriptDir & "\Cache.png")
    $Label1 = GUICtrlCreateLabel("Wiki Live Search", 208, 8, 194, 35)
    GUICtrlSetFont(-1, 20, 400, 0, "Myriad Web Pro")
    $DOMAIN_Input = GUICtrlCreateInput( $DOMAIN, 40, 144, 100, 25)
    $SearchStart = GUICtrlCreateButton("Search", 160, 144, 147, 25)
    $Close = GUICtrlCreateButton("Close", 320, 144, 147, 25)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #EndRegion ### END Koda GUI section ###
    $DOMAIN = IniRead( "Settings.ini", "Settings", "Domain", "de")
    $URL = ".wikipedia.org/wiki/"
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg

    [/autoit] [autoit][/autoit] [autoit]

    Case $GUI_EVENT_CLOSE
    GUISetState( @SW_HIDE, $Form1)
    Case $Search
    _Search()
    Case $Close
    IniWrite( "Settings.ini", "Wiki_Live_Search_App", "Domain", Guictrlread($DOMAIN_Input))
    Exit
    If _IsPressed("0D") Then
    _Search()
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _Search()
    $Suche = StringReplace( GUICtrlRead($Search), chr(32), "_")
    ShellExecute("http://" & Guictrlread($DOMAIN_Input) & $URL & $Suche)
    IniWrite( "Settings.ini", "Wiki_Live_Search_App", "Domain", Guictrlread($DOMAIN_Input))
    EndFunc

    [/autoit]


    Ihr könnt nebenbei bewerten, ob es nützlich oder unnötig ist.

    MFG,

    StevenX

    [Blockierte Grafik: http://stefan.blagojevic.at/loading.gif]

    Design, Modellbau, CAD <3
    AutoCAD, ArchiCAD, REVIT (ist ein Scheiss, habe aber das Zertifikat)

    Cinema 4D, RuckZuck Statik Programm

    Michael Bay als Architekt


    Da eine Glasfassade! Booom Sichtbeton! Laminiertes Bild auf Mosaiksteinchen! Granit! Granit! Granit! Sichtbetonwand mit 50° Neigung!
    Holzverkleidung erscheint da! Boooooom!