So, da Hasty Notes fast komplett fertig ist
und ich im Moment nicht viel zutun habe hier mein Neben-Projekt.
Entstanden aus viel langeweile und der Faulheit jedes mal erst Google
etc selbst zu öffnen.
Update:
Über die Settings.ini lässt sich jetzt die Hintergrundfarbe der Leiste ändern
so das jeder seinen eigenen "Stil" einbauen kann. Auch einstellungen wie Position der Taskbar
werden hier eingetragen. Unter "Funktionen" ist jetzt auch eine kleine Erklärung.
Bei Fehlern oder Bugs bitte hier melden
Funktionen
Befehle:
- !google - !google Beispiel - Googlet einen Begriff
- !icq - !icq IcqNr - Ruft ICQ Profile auf
- !svz - !svz ID - Ruft Svz Profile auf
- !lmgtfy - !lmgtfy Test - Startet Lmgtfy mit Text
- !spin - !spin Username - Öffnet ein Spin Profil
- !spieletipps - !spieletipps SpielName - Durchsucht Spieletipps nach dem Spiel
- !twitter - !twitter Username - Ruft ein Twitter Profil auf
- !dA - !dA Suchbegriff - Durchsucht DeviantArt
- !ping - !ping Seite - Pingt eine Seite an
- !gbo - !gbo zitatnr - Öffnet ein GBO Zitat
- !dict - !dict Suchbegriff - Sucht eine Übersetzung zum Wort
- !sysinfo - Ruft System Infos auf
Buttons:
- Lauter/Leiser
- Transparents ändern
- Eigene Dokumente
- Favoriten
- Arbeitsplatz
- Browser (Standart)
- Schließen
Kleine Erklärung:
[Blockierte Grafik: http://g29.img-up.net/Erklrungspv28.png]
HastyBar
Einmal der Source Code (der noch deutlich verbesserungswürdig ist.)
Spoiler anzeigen
;---------------------------------------------------------------------------—
; HastyBar
; By Sen // Christopher Klay
;---------------------------------------------------------------------------—
; Version - V 1.2
;---------------------------------------------------------------------------—
; Beschreibung:
; Extra Toolbar
;---------------------------------------------------------------------------—-
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <StaticConstants.au3>
#NoTrayIcon
Opt("TrayAutoPause", 0)
[/autoit] [autoit][/autoit] [autoit]$BackgroundFarbe = IniRead(@ScriptDir & "/Settings.ini", "HastyBar", "HintergrundFarbe", "FFFFFF")
$TaskbarPos = IniRead(@ScriptDir & "/Settings.ini", "HastyBar", "Taskbar(1-Unten/2-Seite(links)/3-Seite(rechts)/4-Oben)", "1")
$TransScal = IniRead(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "1")
$TaskbarHohe = _Taskbar("Hoch")
$TaskbarBreite = _Taskbar("Breit")
$Style = "0x96000000"
$ExStyle = "0x00000088"
$Zeit = @HOUR & ":" & @MIN & ":" & @SEC
#Region GUI
If $TaskbarPos = 1 Then
$MainForm = GUICreate("", @DesktopWidth, 30, -1, @DesktopHeight - $TaskbarHohe - 30, $Style, $ExStyle)
$GUIBreite = @DesktopWidth
ElseIf $TaskbarPos = 2 Then
$MainForm = GUICreate("", @DesktopWidth - $TaskbarBreite, 30, $TaskbarBreite, @DesktopHeight - 30, $Style, $ExStyle)
$GUIBreite = @DesktopWidth - $TaskbarBreite
ElseIf $TaskbarPos = 3 Then
$MainForm = GUICreate("", @DesktopWidth - $TaskbarBreite, 30, 0, @DesktopHeight - 30, $Style, $ExStyle)
$GUIBreite = @DesktopWidth - $TaskbarBreite
ElseIf $TaskbarPos = 4 Then
$MainForm = GUICreate("", @DesktopWidth, 30, -1, @DesktopHeight - 30, $Style, $ExStyle)
$GUIBreite = @DesktopWidth
EndIf
$PicTop = GUICtrlCreatePic("Images/BarTop.bmp", 0, 0, $GUIBreite, 5)
$ExitButton = GUICtrlCreatePic("Images/Exit.bmp", $GUIBreite - 25, 5, 20, 20)
$BrowserButton = GUICtrlCreatePic("Images/Browser.bmp", $GUIBreite - 45, 5, 20, 20)
$WorkingButton = GUICtrlCreatePic("Images/Working.bmp", $GUIBreite - 65, 5, 20, 20)
$FavoritesButton = GUICtrlCreatePic("Images/Favorites.bmp", $GUIBreite - 85, 5, 20, 20)
$DokumenteButton = GUICtrlCreatePic("Images/Dokumente.bmp", $GUIBreite - 105, 5, 20, 20)
$TransButton = GUICtrlCreatePic("Images/Trans.bmp", $GUIBreite - 125, 5, 20, 20)
$VolUpButton = GUICtrlCreatePic("Images/VolUp.bmp", $GUIBreite - 145, 5, 20, 20)
$VolDownButton = GUICtrlCreatePic("Images/VolDown.bmp", $GUIBreite - 165, 5, 20, 20)
$Uhrzeit = GUICtrlCreateLabel($Zeit, $GUIBreite - 225, 5, 55, 20, $SS_CENTER)
$Input = GUICtrlCreateInput("", 5, 5, $GUIBreite - 235, 20)
GUISetBkColor($BackgroundFarbe, $MainForm)
GUICtrlSetBkColor($Uhrzeit, 0xFFFFFF)
If $TransScal = 1 Then
WinSetTrans($MainForm, "", "255")
ElseIf $TransScal = 2 Then
WinSetTrans($MainForm, "", "204")
ElseIf $TransScal = 3 Then
WinSetTrans($MainForm, "", "127")
EndIf
GUISetState(@SW_SHOW, $MainForm)
#EndRegion GUI
While 1
$Zeit = @HOUR & ":" & @MIN & ":" & @SEC
GUICtrlSetData($Uhrzeit, $Zeit)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ExitButton
Exit
Case $VolDownButton
Send("{VOLUME_DOWN}")
Send("{VOLUME_DOWN}")
Send("{VOLUME_DOWN}")
Case $VolUpButton
Send("{VOLUME_UP}")
Send("{VOLUME_UP}")
Send("{VOLUME_UP}")
Case $WorkingButton
ShellExecute("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
Case $FavoritesButton
ShellExecute(@FavoritesDir)
Case $DokumenteButton
ShellExecute(@MyDocumentsDir)
Case $BrowserButton
ShellExecute("http://")
Case $TransButton
If $TransScal = "1" Then
WinSetTrans($MainForm, "", "204")
$TransScal = "2"
IniWrite(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "2")
ElseIf $TransScal = "2" Then
WinSetTrans($MainForm, "", "127")
$TransScal = "3"
IniWrite(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "3")
ElseIf $TransScal = "3" Then
WinSetTrans($MainForm, "", "255")
$TransScal = "1"
IniWrite(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "1")
EndIf
Case $Input
CheckFunktionInput()
EndSwitch
Sleep(50)
WEnd
Func CheckFunktionInput()
$InputText = GUICtrlRead($Input)
If StringLeft($InputText, 7) = "!google" Then
$InputText = StringReplace($InputText, "!google ", "http://www.google.de/search?q=")
ShellExecute($InputText)
ElseIf StringLeft($InputText, 4) = "!icq" Then
$InputText = StringReplace($InputText, "!icq ", "http://people.icq.com/people/about_me.php?uin=")
ShellExecute($InputText)
ElseIf StringLeft($InputText, 4) = "!svz" Then
$InputText = StringReplace($InputText, "!svz ", "http://www.schuelervz.net/Profile/")
ShellExecute($InputText)
ElseIf StringLeft($InputText, 4) = "!gbo" Then
$InputText = StringReplace($InputText, "!gbo ", "http://german-bash.org/")
ShellExecute($InputText)
ElseIf StringLeft($InputText, 4) = "!dict" Then
$InputText = StringReplace($InputText, "!dict ", "http://www.dict.cc/?s=")
ShellExecute($InputText)
ElseIf StringLeft($InputText, 7) = "!lmgtfy" Then
$InputText = StringReplace($InputText, "!lmgtfy ", "http://lmgtfy.com/?q=")
ShellExecute($InputText)
ElseIf StringLeft($InputText, 5) = "!spin" Then
$InputText = StringReplace($InputText, "!spin ", "http://www.spin.de/hp/")
ShellExecute($InputText)
ElseIf StringLeft($InputText, 12) = "!spieletipps" Then
$InputText = StringReplace($InputText, "!spieletipps ", "http://www.spieletipps.de/cheats/search_v2.php?keyword=")
ShellExecute($InputText)
ElseIf StringLeft($InputText, = "!twitter" Then
$InputText = StringReplace($InputText, "!twitter ", "http://twitter.com/")
ShellExecute($InputText)
ElseIf StringLeft($InputText, 3) = "!dA" Then
$InputText = StringReplace($InputText, "!dA ", "http://browse.deviantart.com/#order=9&q=")
ShellExecute($InputText)
ElseIf StringLeft($InputText, 5) = "!ping" Then
$InputText = StringReplace($InputText, "!ping", "")
$Ping = Ping($InputText)
If $Ping = "0" Then $Ping = "Error"
MsgBox(0, "", "Ping von " & $InputText & " = " & $Ping)
ElseIf StringLeft($InputText, = "!sysinfo" Then
MsgBox(4096, "HastyBar - SysInfo", "Betreibssystem: " & @OSType & @CRLF & "OS-Build: " & @OSBuild & @CRLF & "Service Pack: " & @OSServicePack & @CRLF & "Computer Name: " & @ComputerName & @CRLF & "Username: " & @UserName & @CRLF & @CRLF & @CRLF & "IP-Adresse(1): " & @IPAddress1 & @CRLF & "IP-Adresse(2): " & @IPAddress2 & @CRLF & "IP-Adresse(3): " & @IPAddress3 & @CRLF & "IP-Adresse(4): " & @IPAddress4)
ElseIf StringLeft($InputText, 4) = "www." Then
ShellExecute($InputText)
ElseIf StringLeft($InputText, 7) = "http://" Then
ShellExecute($InputText)
ElseIf StringLeft($InputText, = "https://" Then
ShellExecute($InputText)
EndIf
GUICtrlSetData($Input, "")
EndFunc ;==>CheckFunktionInput
Func _Taskbar($Art)
Local $value = Opt("WinTitleMatchMode", 4)
Local $Pos = WinGetPos("classname=Shell_TrayWnd")
Opt("WinTitleMatchMode", $value)
If $Art = "Hoch" Then
Return $Pos[3]
ElseIf $Art = "Breit" Then
Return $Pos[2]
EndIf
EndFunc ;==>_Taskbar
[/autoit]Und das ganze als Zip mit Images und Settings.ini:
Download: autoit.de/wcf/attachment/6060/