Nützlich oder Unnötig 3
-
Nützlich - brauch ich (0) 0%
-
Unnötig - braucht keiner (2) 67%
-
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
#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)
#EndRegion ### END Koda GUI section ###
$DOMAIN = IniRead( "Settings.ini", "Settings", "Domain", "de")
$URL = ".wikipedia.org/wiki/"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
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
EndSwitch
WEnd
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
Ihr könnt nebenbei bewerten, ob es nützlich oder unnötig ist.
MFG,
StevenX