HastyBar - 1.2 - Neuer Version [Freitag, 11.September 2009]

    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
    [autoit]


    ;---------------------------------------------------------------------------—
    ; 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

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

    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

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

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

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

    GUISetBkColor($BackgroundFarbe, $MainForm)
    GUICtrlSetBkColor($Uhrzeit, 0xFFFFFF)

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

    If $TransScal = 1 Then
    WinSetTrans($MainForm, "", "255")
    ElseIf $TransScal = 2 Then
    WinSetTrans($MainForm, "", "204")
    ElseIf $TransScal = 3 Then
    WinSetTrans($MainForm, "", "127")
    EndIf

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

    GUISetState(@SW_SHOW, $MainForm)
    #EndRegion GUI

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

    While 1
    $Zeit = @HOUR & ":" & @MIN & ":" & @SEC
    GUICtrlSetData($Uhrzeit, $Zeit)

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

    $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

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

    Sleep(50)
    WEnd

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

    Func CheckFunktionInput()
    $InputText = GUICtrlRead($Input)

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

    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, 8) = "!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, 8) = "!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, 8) = "https://" Then
    ShellExecute($InputText)
    EndIf

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

    GUICtrlSetData($Input, "")
    EndFunc ;==>CheckFunktionInput

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

    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

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

    EndFunc ;==>_Taskbar

    [/autoit]

    Und das ganze als Zip mit Images und Settings.ini:
    Download: autoit.de/wcf/attachment/6060/

    4 Mal editiert, zuletzt von Sen (13. September 2009 um 19:26)

    sieht gut aus =)
    nur die inpu ist bissl lang und bei deinen bildern solltest u noch ne kleine info vllt dran machen wenn denn vllt weiß ja jmd nicht was die bilder bedeutet^^

    Danke ;)

    Die Input Leiste wird noch kürzer werden, da noch deutlich mehr Funktionen
    hinzu kommen werden und die Input Leiste dann eher schrumpfen muss.

    Die Buttons werden noch einen "MouseOver" Text bekommen
    und es wird noch ein Menü kommen in dem man Transparents etc
    ändern kann. Auch die Windows Lautstärke wird noch über die Leiste änderbar.

    Was du noch machen kannst ist in die Input eine Transparente Schrift einzufügen wo z.B. seht "Web Search" oda sowas ^^

    und die 1 und 2 Button geht bei mir nicht(vin Links gesehen) =)

    Ich lade gleich mal die neuste Version hoch,
    die müsste eigentlich 1a laufen.

    Edit:
    neuste Version ist drin.
    Siehe erster Post.

    Einmal editiert, zuletzt von Sen (13. September 2009 um 19:19)