Beiträge von Eistee

  • SideBar für XP

    ich habe in der momentanen version die Standart transparenz auf 30 % stehen die anderen sind weiter auswählbar ^^ ich ersetze die dateien nur nicht bei jeder neuen version erst morgen abend wird es eine neue version geben

    Neue Features :
    1. Die Hotkeys sorgen jetzt nicht mehr für hängen bleiben des Programms
    2. Wenn man jetzt URLs anpasst werden die einträge sofort übernommen und nicht erst beim schließen des Anpassers
    3. Die SideBar läuft ab jetzt Standartmäßig bei 30 % Transparenz

    Bis Morgen Abend hoffentlich implimentierte Features :
    1. Wenn man https://autoit.de/www.lokalisten.de aufrufen möchte loggt sich das programm gleich ein
    2. Die Transparenz wird beim nächsten Start mit der Letzten einstellung übernommen
    3. Die SideBar läuft jetzt OnTop
    4. Beim mouseover wird die transparenz auf 0% gestellt bis man die Maus wieder wegbewegt


    MFG Eistee

  • SideBar für XP

    @FunH@cker tut mir leid dann weiss ich es auch nicht ich habe bereits die neue version hochgeladen..

    @all vielen dank für euer Lob und eure Kritik, ich weiss Optisch macht das Prog noch nichts her leider
    aber ich denke mal ich wollte erst das die Funktionen laufen und werde mich in zukunft wenn ich mit diesen zufrieden bin hinsetzen und ein ansprechenderes design einauen

    MFG

  • Programm läuft nur wenn process ?

    Hallo Lieb autoit gemeinde ich habe mal wieder eine frage :
    kan ich folgenden script so umschreiben das er nur läuft wenn ein process namens XP-SideBar.exe an ist ?
    und wenn ja wie ? Freue mich auf eure antworten

    MFG

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>
    #NoTrayIcon
    While 1
    sleep (50)
    If _IsPressed("12") And _IsPressed("70") Then _calc ()
    If _IsPressed("12") And _IsPressed("71") Then _media ()
    If _IsPressed("12") And _IsPressed("72") Then _inf ()
    If _IsPressed("12") And _IsPressed("73") Then _paint ()
    If _IsPressed("12") And _IsPressed("74") Then _ie ()
    If _IsPressed("12") And _IsPressed("75") Then _ff ()
    If _IsPressed("12") And _IsPressed("76") Then _shut ()
    If _IsPressed("12") And _IsPressed("77") Then _neu ()
    If _IsPressed("12") And _IsPressed("78") Then _stan ()
    wend
    Func _calc ()
    ShellExecute("calc.exe")
    EndFunc
    Func _inf ()
    ShellExecute("msinfo32.exe")
    EndFunc
    Func _media ()
    ShellExecute("wmplayer.exe")
    EndFunc
    Func _Paint ()
    ShellExecute("mspaint.exe")
    EndFunc
    Func _IE ()
    ShellExecute("iexplore.exe")
    EndFunc
    Func _FF ()
    ShellExecute("firefox.exe")
    EndFunc
    Func _Shut ()
    Sleep(200)
    Local $var = MsgBox(32 +4, " Shutdown", "Den PC Herunterfahren ?" & @TAB)
    If $var = 6 Then
    MsgBox(0,"Shutdown", "Einen schönen Tag noch.",2)
    Shutdown(1)
    EndIf
    EndFunc
    Func _neu ()
    Sleep(200)
    Local $var = MsgBox(32 +4, " Shutdown", "Den PC Neustarten ?" & @TAB)
    If $var = 6 Then
    MsgBox(0,"Neustart", "Bis gleich.",2)
    Shutdown(2)
    EndIf
    EndFunc
    Func _stan ()
    Sleep(200)
    Local $var = MsgBox(32 +4, " Shutdown", "Den PC in Standby ?" & @TAB)
    If $var = 6 Then
    MsgBox(0,"Standby", "Ich geh dan mal schlafen.",2)
    Shutdown(64)
    EndIf
    EndFunc

    [/autoit]

  • SideBar für XP

    UUps das waren die testseiten zum entfernen xD ^^ ich tausche gelich die Textdatei aus

    MFG


    EDIT ::::::::::::::::::
    1er Post geändert

    Jetzt Version 3.5

    Übers das Tray menu jetzt Transparenz einstellbar
    und die Linkliste wie von FunH@cker bemerkt nochmal angepasst

    MFG

  • SideBar für XP

    Sirocool
    welches OS verwendest du ? ich habe XP und es geht über beenden zu kommt evtl. ne meldung oder hängt es sich auf ?
    kannste mir evtl. sagen wo der fehler sein könnte das es bei anderen nicht geht ?

    MFG

    P.s. es kann sein das du ein wenig warten muss da ein processwaitclose drinne ist bis er damit durch ist evtl. ist es dann zu ansonsten muss ich halt auch noch ein timeout mit rein bauen aber dann bleibt die hotkey funktion on wenn das prog zu ist muss ich mal gucken oder vielleicht ist mein programm zu leistungshungrig hab ein Quad system vielleicht liegts dadran aber eher unwarscheinlich...
    naja mal schauen

  • SideBar für XP

    Das Liegt meiner Meinung nach schon an Vista, da ich es nach jeder einzelnen Änderung getestet habe.
    das die SideBar nach URLs bearbeiten kurz verschwindet ist durchaus Absicht da sie die jetzt ja anders lautende Textdatei erneut einlesen soll und nicht erst beim nächsten Neustart daher wird sie kurz beendet und wieder gestartet ^^
    ich kann in der Combobox einwandfrei alles ohne Fehlermeldung auswählen, beenden und about Funktionieren hier im Tray auch einwandfrei
    die 0 ms heissen das du 0ms Ping auf google.de hast
    bei transparenz weiss ich im Moment nicht wie das umzusetzen wäre evtl. haste einen Vorschlag ?
    für was hättest du gerne Drag and Drop im Edit feld ? der is ja eig. nur für kleine notizen da und ja was da steht wird gespeichert wenn du die sidebar unten beendest beim nächsten start steht drinnen was beim beenden drinn stand

    MFG Eistee


    P.S. ich denke das es fehler geben kann ist hier klar, ich dachte dabei auch eher an die XP-User xD ^^

  • SideBar für XP

    Hallo Liebe Gemeinde
    Ich habe für mich und meine Freunde eine SideBar mit einigen Funktionen unter Windows Xp geschrieben da wir Vista nicht benutzen möchten, aber es ziemlich praktisch finden eine SideBar zu haben.
    Mittlerweile bin ich Fertig und ziemlich zufrieden mit dem Ergebnis.
    Ich stelle es mal hier rein falls ihr auch verwendung dafür habt.
    Funktionen :
    Uhr, Datum, IP, Ping, Öffnen verschiedener Internetseiten, VolumeControl, Taschenrechner, Mediaplayer ausführen, PC-Informationen anzeigen, Paint ausführen, Internet Explorer öffnen, FireFox öffnen, Ein Notizblock und eine ShutdownControl
    Für Kritk, Lob und Anregungen wäre ich sehr dankbar

    MFG Eistee

    Version Beta 2.6 :
    Uhr jetzt grafisch, Transparentz geht bei MausOver zurück, mit F9 OnTop setzen, neues Icon Codes ein wenig Sauberer, Bugs entfernt.

    Version 1.0 :
    TrayMenu mit design
    Scripte gesäubert usw.

    Edit :::

    Version 1.0.1
    SideBar jetzt Grafisch Designt
    kleine Schönheitskorrekturen
    kompakter erstellt

    Edit2 :::

    Version 1.0.5
    kleine korrekturen
    Buttons jetzt belegbar mit programmen eurer Wahl
    animation beim schließen
    Datums Label Flackert nicht mehr


    MFG Eistee

  • Lokalisten Informer ?

    vielen dank schnuffel kann man evtl. noch überprüfen ob auf der Seite momentan das mail.gif angezeigt wird ?

    weil im endeffekt will ich nur überprüfen ob nachrichten da sind und das in einer gui darstellen


    MFG

  • Lokalisten Informer ?

    Hallo liebe Gemeinde
    ich versuche gerade ein script zu schreiben das automatisch alle 5 min. auf www. lokalisten.de nachsieht ob ich post habe, ich habe auch bereits das wort lokalisten in der suche eingegeben und bin schon mal für den ersten schritt fündig geworden wie man die Seite im IE aufruft und sich einloggen kann allerdings das ist auch mein erstes problem ruft der script nur Loka auf aber loggt sich nicht ein

    Ich erhalte folgenden FehlerCode und weiss nicht was damit gemeint ist

    Spoiler anzeigen

    --> IE.au3 V2.4-0 Error from function _IENavigate, $_IEStatus_InvalidObjectType

    Ich hoffe ihr könnt mir Helfen, hier der angesprochene Script :

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    $ie = _IECreate("www.lokalisten.de")
    $oie = _IEFormGetCollection($ie, 0)
    $Username = _IEGetObjByName($oie, "j_username")
    _IEFormElementSetValue($Username, "++++++")
    $Passwort = _IEGetObjByName($oie, "j_password")
    _IEFormElementSetValue($Passwort, "++++++")
    sleep(8900)
    _IENavigate($oie,"javascript:window.document.forms[0].submit()")

    [/autoit]

    MFG Eistee

  • Registrykey fürs Maximieren um 190 pixel verkleinern ?

    Hallo Liebe Gemeinde

    Ich habe mir ja eine Xp sidebar geschrieben, da ich allerdings diese immer laufen habe ist es auf dauer störend wenn die Fenster beim maximieren unter meine GUI rutschen weshabl ich gerne windows sagen möchte das ab jetzt schon 190 pixel vorher schluss ist
    ist das schon mal gemacht worden ? wäre das möglich und wenn ja wie ? freue mich auf eure antworten.

    MFG Eistee

  • textdatei einzelne wörter löschen ??

    wie soll das bitte funktionieren ?
    ich habe ein programm das eine .txt erstellt in dem die urls so angegeben sind wie in meinem ersten post beschrieben und ich will ein zusatzprogramm schreiben das mir ermöglicht einzelne elemente zu löschen oder hinzuzufügen
    das ganze ist im endeffekt für eine Combobox gedacht wie sollte ich so etwas also realisieren ?

    MFG

  • textdatei einzelne wörter löschen ??

    Hallo Libe Gemeinde

    ich habe eine textdatei die folgendermassen aus sieht : https://autoit.de/www.autoit.de|https://autoit.de/www.lokalisten.de|https://autoit.de/www.gmx.de usw.
    wie könnte ich es anstellen das die datei geöffnet wird und z.b. |https://autoit.de/www.lokalisten.de| durch einen | ersetzt wird ?
    mir fällt kein ansatz ein ? ich hoffe ihr könnt mir helfen
    MFG Eistee

    P.S. hier der Script

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include<Array.au3>

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

    Global $fileliste = "C:\BS\XP-SideBar\line.txt"
    Global $liste = FileReadLine($fileliste,1)

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

    $Form1 = GUICreate("Form1", 163, 51, 518, 475)
    GUISetBkColor(0x000000)

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

    $Button1 = GUICtrlCreateButton("Entfernen", 0, 24, 75, 25, 0)
    GUICtrlSetCursor (-1, 0)

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

    $Button2 = GUICtrlCreateButton("Hinzufügen", 87, 24, 75, 25, 0)
    GUICtrlSetCursor (-1, 0)

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

    $Combo1 = GUICtrlCreateCombo("www.google.de", 0, 0, 161, 25)
    GUICtrlSetData(-1, $liste)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    entf ()
    EndSwitch
    WEnd

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

    Func entf ()

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

  • Control ausblenden oder anzeigen ?

    Hallo liebe Gemeinde ich habe ein Prob

    ich habe mir selbst eine sidebar geschrieben um die umstellung von win 7 auf XP zu erleichtern und ich hätte gerne einen kalender mit eingebaut das problem ist nur leider das ich relativ wenig platz habe weshalb ich den kalender (in einer Group) gerne ein oder ausblenden können würde welche optionen habe ich denn da zur verfügung ?


    Freue mich schon auf eure antworten

    MFG Eistee

    p.S. hier der bisherige script

    Spoiler anzeigen
    [autoit]

    #include <DateTimeConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <audio.au3>
    #Include <Constants.au3>

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

    Global $MicVol = _SoundGetMicrophoneVolume ()
    Global $Vol = _SoundGetMasterVolume ()

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

    Opt('WinTitleMatchMode', 4)
    $aTaskbarPos = WinGetPos('classname=Shell_TrayWnd')
    $iWidth = 190
    $iHeight = @DesktopHeight
    $iLeft = $aTaskbarPos[2] - $iWidth - 3
    $iTop = 0

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

    $size = FileGetSize("C:\BS\SideBar\About.exe")
    If $size = 0 then _1 ()
    Func _1 ()
    DirCreate("C:\BS\SideBar")
    FileInstall("google.jpg", "C:\BS\SideBar\google.jpg")
    FileInstall("Border.jpg", "C:\BS\SideBar\Border.jpg")
    FileInstall("loka.jpg", "C:\BS\SideBar\loka.jpg")
    FileInstall("gmx.jpg", "C:\BS\SideBar\gmx.jpg")
    FileInstall("web.jpg", "C:\BS\SideBar\web.jpg")
    FileInstall("ShutDown.jpg", "C:\BS\SideBar\ShutDown.jpg")
    FileInstall("Neustarten.jpg", "C:\BS\SideBar\Neustarten.jpg")
    FileInstall("Standby.jpg", "C:\BS\SideBar\Standby.jpg")
    FileInstall("About.exe", "C:\BS\SideBar\About.exe")
    EndFunc

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

    $Form1 = GUICreate("Form1", $iWidth, $iHeight, $iLeft, $iTop,$WS_POPUP,$WS_EX_TOOLWINDOW)
    GUISetBkColor(0x000000)
    $Pic1 = GUICtrlCreatePic("C:\BS\SideBar\Border.jpg", 0, 0, 5, $iHeight, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

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

    $Group1 = GUICtrlCreateGroup(" Kalender ", 3, 8, 184, 163)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    $MonthCal1 = GUICtrlCreateMonthCal("2009/07/20", 8, 24, 174, 140)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Group2 = GUICtrlCreateGroup(" Uhrzeit ", 3, 174, 184, 41)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    $Label1 = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 68, 193, 51, 19)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Label2 = GUICtrlCreateLabel("VOL. :", 16, 236, 37, 17)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1,"Lautstärke anpassen")
    $Label3 = GUICtrlCreateLabel("MIC. :", 16, 268, 38, 17)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1,"Microfon Lautstärke anpassen")
    $Slider1 = GUICtrlCreateSlider(72, 233, 114, 20)
    GUIctrlSetBkColor(-1, 0x000000)
    GUICtrlSetLimit(-1,100,0)
    GUICtrlSetData(-1, $Vol)
    $Slider2 = GUICtrlCreateSlider(72, 265, 114, 20)
    GUIctrlSetBkColor(-1, 0x000000)
    GUICtrlSetLimit(-1,100,0)
    GUICtrlSetData(-1, $MicVol)
    $Group3 = GUICtrlCreateGroup(" Volume ", 3, 217, 185, 73)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Pic2 = GUICtrlCreatePic("C:\BS\SideBar\google.jpg", 12, 307, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Ruft http://www.google.de auf")
    $Pic3 = GUICtrlCreatePic("C:\BS\SideBar\Loka.jpg", 76, 347, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Ruft http://www.lokalisten.de auf")
    $Pic4 = GUICtrlCreatePic("C:\BS\SideBar\GMX.jpg", 12, 386, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Ruft http://www.gmx.net auf")
    $Pic5 = GUICtrlCreatePic("C:\BS\SideBar\WEB.jpg", 76, 425, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Ruft http://www.web.de auf")
    $Group4 = GUICtrlCreateGroup(" Internet ", 3, 291, 184, 177)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Label4 = GUICtrlCreateLabel(@IPAddress1, 58, 486, 170, 20)
    GUICtrlSetColor(-1, 0xFFFFFF)
    $Group5 = GUICtrlCreateGroup(" IP ", 3, 468, 184, 38)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Pic6 = GUICtrlCreatePic("C:\BS\SideBar\ShutDown.jpg", 8, 528, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Herunterfahren")
    $Pic7 = GUICtrlCreatePic("C:\BS\SideBar\Neustarten.jpg", 76,528, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Neustarten")
    $Pic8 = GUICtrlCreatePic("C:\BS\SideBar\Standby.jpg", 144, 528, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Standby")
    $Group6 = GUICtrlCreateGroup(" Shut Down Control ", 3, 507, 184, 68)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)

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

    Opt("TrayMenuMode",1)
    $AB = TrayCreateItem("About")
    $EX = TrayCreateItem("Beenden")
    TraySetState()

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

    AdlibEnable("UHR",1000)

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

    While 1
    $nMsg = GUIGetMsg()
    $nMsg2 = TRayGetMsg()
    Switch $nMsg
    Case $Pic6
    _Shut ()
    Case $Pic7
    _neu ()
    Case $Pic8
    _stan ()
    Case $Pic2
    _google ()
    Case $Pic3
    _lokalisten ()
    Case $Pic4
    _gmx ()
    Case $Pic5
    _web ()
    Case $Slider2
    _Mic ()
    Case $Slider1
    _Vol ()
    EndSwitch


    Switch $nMsg2
    Case $EX
    Exit
    Case $AB
    _AB ()
    EndSwitch

    WEnd

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

    Func UHR ()
    GUICtrlSetData($Label1,@HOUR & ":" & @MIN & ":" & @SEC)
    Endfunc

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

    Func _Shut ()
    _AnimButton ($Form1, $Pic6)
    Sleep(200)
    Local $var = MsgBox(32 +4, " Shutdown", "Den PC Herunterfahren ?" & @TAB)
    If $var = 6 Then
    MsgBox(0,"Shutdown", "Einen schönen Tag noch.",3)
    Shutdown(1)
    EndIf

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

    EndFunc



    Func _neu ()
    _AnimButton ($Form1, $Pic7)
    Sleep(200)
    Local $var = MsgBox(32 +4, " Shutdown", "Den PC Neustarten ?" & @TAB)
    If $var = 6 Then
    MsgBox(0,"Neustart", "Bis gleich.",5)
    Shutdown(2)
    EndIf

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

    EndFunc



    Func _stan ()
    _AnimButton ($Form1, $Pic8)
    Sleep(200)
    Local $var = MsgBox(32 +4, " Shutdown", "Den PC in Standby ?" & @TAB)
    If $var = 6 Then
    MsgBox(0,"Standby", "Ich geh dan mal schlafen.",5)
    Shutdown(64)
    EndIf

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

    EndFunc



    Func _AnimButton($IDgui, $IDbtn, $delay=300)
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc

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

    Func _google ()
    _AnimButton ($Form1, $Pic2)
    ShellExecute("http://www.google.de")
    EndFunc

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

    Func _lokalisten ()
    _AnimButton ($Form1, $Pic3)
    ShellExecute("http://www.lokalisten.de")
    EndFunc

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

    Func _gmx ()
    _AnimButton ($Form1, $Pic4)
    ShellExecute("http://www.gmx.net")
    EndFunc

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

    Func _web ()
    _AnimButton ($Form1, $Pic5)
    ShellExecute("http://www.web.de")
    EndFunc

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

    Func _Mic ()
    $NeuVolMIC = GUICtrlRead($Slider2)
    _SoundSetMicrophoneVolume($NeuVolMIC)
    EndFunc

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

    Func _VOL ()
    $NeuVol = GUICtrlRead($Slider1)
    _SoundSetMasterVolume($NeuVol)
    EndFunc

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

    Func _AB ()
    Run("C:\BS\SIDEBAR\About.exe")
    EndFunc

    [/autoit]