Beiträge von Nestos

  • Startmenü deaktivieren

    Wie der Titel schon sagt, will ich das Starmenü deaktivieren und es so nicht mehr sichtbar/aufrufbar machen (Soll auch rückgänig gemacht werden können).

    Doch es klappt weder mit GUISetState, WinKill oder WinMove, da alles wieder rückgänig gemacht wird.

    Hätte jemand eine Idee oder eine Funktion, wie man das schaffen könnte? Ich wäre euch sehr dankbar.

    MfG,
    H2112

    Edit:
    Ich hab das gerade beim googeln gefunden:

    START-Menü: NoChanceStartMenu

    START-Menü: NoChangeStartMenu

    Vll könnte man da irgendwas mit Registry machen.

  • Desktopsperre per USB-Stick

    Also ich find das Teil echt super! :D

    Aber warum bitte #RequireAdmin? Funktioniert doch auch ohne. ^^

    Und wegen dem TaskManager:

    Spoiler anzeigen
    [autoit]

    ;~ #RequireAdmin
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=Desktopsperre.ico
    #AutoIt3Wrapper_outfile=Desktopsperre.exe
    #AutoIt3Wrapper_Compression=4
    #AutoIt3Wrapper_Res_Fileversion=1.2.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=Oscar
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <StaticConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <MenuConstants.au3>
    #include <SendMessage.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>

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

    Opt('GUICloseOnESC', 0)
    Opt('TrayAutoPause', 0)
    Opt('TrayMenuMode', 1)
    Opt('TrayOnEventMode', 1)
    Opt('GUIOnEventMode', 1)

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

    Global $sTitle = 'Desktopsperre v1.2'
    If _Singleton($sTitle, 1) = 0 Then
    MsgBox(48, $sTitle, 'Das Programm läuft bereits!')
    Exit
    EndIf
    Global $sIni = @ScriptDir & '\Desktopsperre.ini'
    If Not IsDeclared('WM_DEVICECHANGE') Then Global Const $WM_DEVICECHANGE = 0x0219
    Global Const $Off = 2, $On = -1
    Global $hMonitor = WinGetHandle('classname=Progman')
    Global $bLock = False
    Global $usbstor = 'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\usbstor\Enum'
    RegRead($usbstor, 'count')
    If @error Then Exit MsgBox(48, $sTitle, 'Konnte Registryeintrag nicht lesen!')

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

    Global $sID = IniRead($sIni, 'ID', '1', '')
    If $sID = '' Then _RegID()
    TraySetIcon(@ScriptDir & '\Desktopsperre.ico')
    TrayCreateItem('USB-Stick registrieren')
    TrayItemSetOnEvent(-1, '_RegID')
    TrayCreateItem('')
    TrayCreateItem('Programm beenden')
    TrayItemSetOnEvent(-1, '_End')

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

    $hGui = GUICreate($sTitle, @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
    GUISetBkColor(0x000000)
    GUICtrlCreateLabel('GESPERRT', @DesktopWidth/2-160, @DesktopHeight/2-30, 320, 60, $SS_CENTER)
    GUICtrlSetFont(-1, 42, 600, 0, 'Arial')
    GUICtrlSetColor(-1, 0xEE4444)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    WinSetTrans($hGui, '', 245)
    GUIRegisterMsg($WM_DEVICECHANGE, 'MY_WM_DEVICECHANGE')

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

    While 1
    sleep(10)
    If $bLock() Then
    ;~ _ToggleMonitor($hMonitor, $Off)
    _MouseTrap(@DesktopWidth - 1, @DesktopHeight - 1, @DesktopWidth - 1, @DesktopHeight - 1); Maus in die untere, rechte Ecke setzen (einfrieren)
    WinKill("Windows Task-Manager")
    HotKeySet('!q'); Hotkey freigeben, damit das Programm nicht beendet werden kann
    _DisEnableTaskManager(1)
    If WinExists('Task-Manager') Then WinClose('Task-Manager'); evtl. geöffneten Task-Manager schliessen
    GUISetState(@SW_SHOW, $hGui)
    BlockInput(1)
    Else
    ;~ _ToggleMonitor($hMonitor, $On)
    _MouseTrap(); Maus wieder freigeben
    _DisEnableTaskManager(0)
    GUISetState(@SW_HIDE, $hGui)
    BlockInput(0)
    HotKeySet('!q', '_End'); Hotkey (ALT+q) zum beenden des Programms einrichten
    EndIf
    Wend; Schleife fortsetzen

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

    Func MY_WM_DEVICECHANGE($hWnd, $Msg, $wParam, $lParam)
    $bLock = True
    For $count = 0 To RegRead($usbstor, 'count') - 1; Schleife für alle USB-Wechseldatenträger
    If $sID = RegRead($usbstor, $count) Then $bLock = False
    Next
    EndFunc

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

    Func _RegID()
    Local $count
    MsgBox(0, $sTitle, 'Falls der USB-Stick momentan eingesteckt ist,' & @CRLF & 'bitte entfernen und dann auf [Ok] klicken!')
    $count = RegRead($usbstor, 'count')
    MsgBox(0, $sTitle, 'Bitte jetzt den USB-Stick einstecken!' & @CRLF & 'Er wird automatisch erkannt.', 5)
    While RegRead($usbstor, 'count') = $count
    Sleep(100)
    WEnd
    $count = RegRead($usbstor, 'count')
    $sID = RegRead($usbstor, $count - 1)
    IniWrite($sIni, 'ID', '1', $sID)
    MsgBox(0, $sTitle, 'Dieser USB-Stick ist nun zum ent-/sperren des Desktop registriert!', 5)
    EndFunc

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

    Func _End()
    If MsgBox(36, $sTitle, 'Programm beenden?') = 6 then Exit
    EndFunc

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

    Func _ToggleMonitor($hwnd, $OnOff)
    Local Const $WM_SYSCOMMAND = 0x0112
    Local Const $SC_MONITORPOWER = 0xF170
    _SendMessage($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)
    If @error Then Exit MsgBox(0, $sTitle, '_SendMessage Error: ' & @error)
    EndFunc

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

    ;===============================================================================
    ; Function Name: _DisEnableTaskManager([$DISABLE=1])
    ; Description:: TaskManager per Registry sperren / entsperren
    ; Parameter(s): $DISABLE Standard 1 ==> sperren (0 entsperren)
    ; Return Value(s): Erfolg 1
    ; Fehler 0 SetError 1 Schlüssel kann nicht geöffnet werden
    ; 2 Hauptschlüssel kann nicht geöffnet werden
    ; 3 Fernverbindung zur Registry nicht möglich
    ; -1 angefragter Wert kann nicht geöffnet werden
    ; -2 Werttyp nicht unterstützt
    ; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
    ;===============================================================================
    Func _DisEnableTaskManager($DISABLE=1)
    If $DISABLE <> 0 Then $DISABLE = 1
    Local $key = 'HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System'
    Local $val = 'DisableTaskMgr'
    RegWrite($key, $val, 'REG_DWORD', $DISABLE)
    If @error Then
    Return SetError(@error, 0, 0)
    Else
    Return 1
    EndIf
    EndFunc ;==>_DisEnableTaskManager

    [/autoit]

    Jetzt kann er zwar geöffnet werden, wird aber sofort wieder geschlossen, dank WinKill. :)

  • EditorXXL

    Noch ne Sache:
    Auch wenn man der Fokus nicht auf dem Fenster liegt und man F1 drückt, wird trotzdem nach Updates gesucht. Solltest du ändern. ;)

    Nummerrierung und Aufzählungszeichen funktionieren nicht. Sonst echt tolle Sache!

    PS: Is keine Kritik, sind nur Verbesserungsvorschläge. :)

    Edit: Oh sry, hab da was verwechselt. :) Ich finds aber schade, dass du den SorceCode nicht postest. Könnte man sicher viel daraus lernen...

  • Problem mit ContextMenü

    Wenn man die GUIs am Anfang erstellt, ist es schneller und auch übersichtlicher. So kannst du zB auch in anderen Funktionen einfach das Fenster aufrufen, wenn du es brauchst. Außerdem kann man so viel leichter etwas in den GUIs korregieren oder hinzufügen und muss nicht lange in der While Schleife suchen.

  • Problem mit ContextMenü

    So, ich hab mal das Script so umgeschrieben, dass alle Fenster im vorher erstellt und nur bei Bedarf ein- und ausgeblendet werden.

    Hab auch noch nen kleinen Bug entfernt. ($WS_EX_TOOLWINDOW)

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiEdit.au3>
    #include <GuiListView.au3>
    #include <GUIConstantsEx.au3>
    #include <File.au3>

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

    Local $log1 = @UserName & "-Notizen.txt"
    Local $log2 = @UserName & "-Zwischenablage.txt"
    Local $log3 = @UserName & "-Sonstiges.txt"
    Local $log4 = @UserName & "-To-Do.txt"
    Local $logterm = @UserName & "-Termine.txt"
    Local $logadress = @UserName & "-Adressen.txt"
    Local $MyDocsFolder = @MyDocumentsDir

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

    Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER)

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

    Local $Version = "3.0"

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

    HotKeySet("^a", "Allesmarkieren")

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

    DirCreate(@ScriptDir & "\Logs\")

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

    If FileExists(@ScriptDir & "\Logs\Settings.ini") = 0 Then
    IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName1", "Tab1")
    IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName2", "Tab2")
    IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName3", "Tab3")
    IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName4", "Tab4")
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $log1) = 0 Then
    FileWrite(@ScriptDir & "\Logs\" & $log1, "")
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $log2) = 0 Then
    FileWrite(@ScriptDir & "\Logs\" & $log2, "")
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $log3) = 0 Then
    FileWrite(@ScriptDir & "\Logs\" & $log3, "")
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $log4) = 0 Then
    FileWrite(@ScriptDir & "\Logs\" & $log4, "")
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $logterm) = 0 Then
    FileWrite(@ScriptDir & "\Logs\" & $logterm, "")
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $logadress) = 0 Then
    FileWrite(@ScriptDir & "\Logs\" & $logadress, "")
    EndIf

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

    $TabName1 = IniRead(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName1", "Tab")
    $TabName2 = IniRead(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName2", "Tab")
    $TabName3 = IniRead(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName3", "Tab")
    $TabName4 = IniRead(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName4", "Tab")

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

    #Region - Mainform
    $Mainform = GUICreate("HastyNotes " & $Version, 640, 480, -1, -1)
    GUISetBkColor(0xFFFFFF)
    GUISetIcon("\Images\HastyNotes - Icon.ico")
    $Header = GUICtrlCreatePic(@ScriptDir & "\Images\Header.jpg", 0, 430, 640, 25, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))

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

    $Datei = GUICtrlCreateMenu("Datei")
    $Laden = GUICtrlCreateMenuItem("Öffnen", $Datei)
    $SpeichernInTab = GUICtrlCreateMenuItem("Alles speichern", $Datei)
    $SpeichernInDatei = GUICtrlCreateMenuItem("Tab speichern in Datei", $Datei)
    GUICtrlCreateMenuItem("", $Datei)
    $Drucken = GUICtrlCreateMenuItem("Drucken", $Datei)
    GUICtrlCreateMenuItem("", $Datei)
    $Beenden = GUICtrlCreateMenuItem("Beenden", $Datei)

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

    $Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
    $Kopieren = GUICtrlCreateMenu("Kopieren", $Bearbeiten)
    $KopierenAll = GUICtrlCreateMenuItem("Alles kopieren", $Kopieren)
    $KopierenMark = GUICtrlCreateMenuItem("Nur Markierung kopieren", $Kopieren)
    $Delete = GUICtrlCreateMenu("Löschen", $Bearbeiten)
    $DeleteAll = GUICtrlCreateMenuItem("Alles löschen", $Delete)
    $DeleteMark = GUICtrlCreateMenuItem("Nur Markierung löschen", $Delete)
    $Ausrechnen = GUICtrlCreateMenu("Ausrechnen", $Bearbeiten)
    $ZeichenAll = GUICtrlCreateMenuItem("Zeichen - Alle", $Ausrechnen)
    $ZeichenLine = GUICtrlCreateMenuItem("Zeichen - Zeile", $Ausrechnen)
    $Sichern = GUICtrlCreateMenu("Sichern", $Bearbeiten)
    $TextSetzen = GUICtrlCreateMenu("Festsetzen/Lösen", $Sichern)
    $TextFestsetzen = GUICtrlCreateMenuItem("Tab festsetzen", $TextSetzen)
    $TextLoesen = GUICtrlCreateMenuItem("Tab lösen", $TextSetzen)
    $TabsFestsetzen = GUICtrlCreateMenuItem("Alle Tabs festsetzen", $TextSetzen)
    $TabsLoesen = GUICtrlCreateMenuItem("Alle Tabs lösen", $TextSetzen)
    $Textlaenge = GUICtrlCreateMenu("Text längen Limit", $Sichern)
    $Textlaengesetzen = GUICtrlCreateMenuItem("Setzen", $Textlaenge)
    $Textlaengeentfernen = GUICtrlCreateMenuItem("Entfernen", $Textlaenge)
    $Einfuegen = GUICtrlCreateMenuItem("Einfügen", $Bearbeiten)
    $Backmake = GUICtrlCreateMenuItem("Rückgängig", $Bearbeiten)
    $Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Bearbeiten)
    $MarkAll = GUICtrlCreateMenuItem("Alles markieren", $Bearbeiten)
    $DatumTime = GUICtrlCreateMenuItem("Datum und Zeit", $Bearbeiten)
    $Ersetzen = GUICtrlCreateMenuItem("Suchen/Ersetzen", $Bearbeiten)
    GUICtrlCreateMenuItem("", $Bearbeiten)
    $NewTabName = GUICtrlCreateMenu("Tab Namen ändern", $Bearbeiten)
    $NewTabName1 = GUICtrlCreateMenuItem("Tab 1", $NewTabName)
    $NewTabName2 = GUICtrlCreateMenuItem("Tab 2", $NewTabName)
    $NewTabName3 = GUICtrlCreateMenuItem("Tab 3", $NewTabName)
    $NewTabName4 = GUICtrlCreateMenuItem("Tab 4", $NewTabName)

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

    $Termine = GUICtrlCreateMenu("Termine")
    $AddTermin = GUICtrlCreateMenuItem("Termin hinzufügen", $Termine)
    $Termin2 = GUICtrlCreateMenu("Termin entfernen", $Termine)
    $KillTermin = GUICtrlCreateMenuItem("Markierten Termin", $Termin2)
    $KillAllTermin = GUICtrlCreateMenuItem("Alle Termine", $Termin2)

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

    $Adressen = GUICtrlCreateMenu("Adressbuch")
    $AddAdress = GUICtrlCreateMenuItem("Kontakt hinzufügen", $Adressen)
    $Adressen2 = GUICtrlCreateMenu("Kontakt entfernen", $Adressen)
    $KillAdress = GUICtrlCreateMenuItem("Markierten Kontakt", $Adressen2)
    $KillAllAdress = GUICtrlCreateMenuItem("Alle Kontakte", $Adressen2)

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

    $Hilfe = GUICtrlCreateMenu("Hilfe")
    $UberHastyNotes = GUICtrlCreateMenuItem("Über", $Hilfe)
    $Update = GUICtrlCreateMenuItem("Update", $Hilfe)

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

    $UberTab = GUICtrlCreateTab(0, 0, 643, 433, $TCS_BOTTOM)
    GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
    $Tab1 = GUICtrlCreateTabItem($TabName1)
    $Edit1 = GUICtrlCreateEdit("", 4, 5, 632, 397)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
    $Tab2 = GUICtrlCreateTabItem($TabName2)
    $Edit2 = GUICtrlCreateEdit("", 4, 5, 632, 397)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
    $Tab3 = GUICtrlCreateTabItem($TabName3)
    $Edit3 = GUICtrlCreateEdit("", 4, 5, 632, 397)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
    $Tab4 = GUICtrlCreateTabItem($TabName4)
    $Edit4 = GUICtrlCreateEdit("", 4, 5, 632, 397)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
    $Tab5 = GUICtrlCreateTabItem("Kalender")
    $Kalender = GUICtrlCreateMonthCal(@YEAR & "/" & @MON & "/" & @MDAY, 4, 5, 632, 397)
    $Tab6 = GUICtrlCreateTabItem("Termine")
    $Terminliste = GUICtrlCreateListView("Betreff|Uhrzeit|Datum|Kommentar", 4, 5, 632, 397)
    _GUICtrlListView_SetExtendedListViewStyle($Terminliste, $iExListViewStyle)
    _GUICtrlListView_RegisterSortCallBack($Terminliste)
    $ContextTermin = GUICtrlCreateContextMenu($Terminliste)
    $KillTerminC = GUICtrlCreateMenuItem("Markierten Termin entfernen", $Terminliste)
    $KillAllTerminC = GUICtrlCreateMenuItem("Alle Termine entfernen", $Terminliste)
    $Tab7 = GUICtrlCreateTabItem("Adressbuch")
    $Adressbuch = GUICtrlCreateListView("Name|Adresse1|Adresse2|TelefonNr|HandyNr", 4, 5, 632, 397)
    _GUICtrlListView_SetExtendedListViewStyle($Adressbuch, $iExListViewStyle)
    _GUICtrlListView_RegisterSortCallBack($Adressbuch)
    $ContextAdress = GUICtrlCreateContextMenu($Adressbuch)
    $KillAdressC = GUICtrlCreateMenuItem("Markierten Kontakt entfernen", $Adressbuch)
    $KillAllAdressC = GUICtrlCreateMenuItem("Alle Kontakte entfernen", $Adressbuch)

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

    GUISetState(@SW_SHOW, $Mainform)
    #EndRegion - Mainform

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

    #Region - AddAdress
    $AdressAddGUI = GUICreate("", 272, 174, -1, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
    $NameLabel = GUICtrlCreateLabel("Name:", 32, 8, 44, 20)
    $NameInput = GUICtrlCreateInput("Z.b. ""Max Mustermann""", 80, 8, 177, 24)
    $Adresse1Label = GUICtrlCreateLabel("Adresse1:", 11, 35, 65, 20)
    $Adresse1Input = GUICtrlCreateInput("Z.b. ""Musterweg 1""", 80, 35, 177, 24)
    $Adresse2Label = GUICtrlCreateLabel("Adresse2:", 11, 62, 65, 20)
    $Adresse2Input = GUICtrlCreateInput("Z.b. ""12345 Musterstadt""", 80, 62, 177, 24)
    $TelefonLabel = GUICtrlCreateLabel("Telefon:", 22, 89, 53, 20)
    $TelefonInput = GUICtrlCreateInput("Z.b. ""01234/56789""", 80, 89, 177, 24)
    $HandyLabel = GUICtrlCreateLabel("Handy:", 28, 116, 47, 20)
    $HandyInput = GUICtrlCreateInput("Z.b. ""01234/56789""", 81, 116, 177, 24)
    $HinzufuegenButton1 = GUICtrlCreateButton("Hinzufügen", 53, 144, 97, 17, $WS_GROUP)
    $AbbrechenButton1 = GUICtrlCreateButton("Abbrechen", 160, 144, 97, 17, $WS_GROUP)

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

    GUISetState(@SW_HIDE, $AdressAddGUI)
    #EndRegion - AddAdress

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

    #Region - AddTermin
    $AddTerminGUI = GUICreate("", 421, 172, -1, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
    $BetreffLabel = GUICtrlCreateLabel("Betreff:", 8, 8, 45, 20)
    $BetreffInput = GUICtrlCreateInput("Z.b. ""Treffen mit xxx""", 56, 8, 353, 20)
    $UhrzeitLabel = GUICtrlCreateLabel("Uhrzeit:", 8, 35, 48, 20)
    $UhrzeitInput = GUICtrlCreateInput("Z.b. ""20:15""", 56, 35, 121, 20)
    $DatumLabel = GUICtrlCreateLabel("Datum:", 8, 62, 46, 20)
    $DatumInput = GUICtrlCreateInput("Z.b. ""01.1.2001""", 56, 62, 121, 20)
    $KommentarLabel = GUICtrlCreateLabel("Kommentar (Optional):", 8, 89, 300, 20)
    $KommentarInput = GUICtrlCreateInput("", -1, 110, 400, 20)
    $HinzufuegenButton = GUICtrlCreateButton("Hinzufügen", 8, 136, 75, 25, $WS_GROUP)
    $AbbrechenButton = GUICtrlCreateButton("Abbrechen", 88, 136, 75, 25, $WS_GROUP)

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

    GUISetState(@SW_HIDE, $AddTerminGUI)
    #EndRegion - AddTermin

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

    #Region - Ersetzen
    $ErsetzenGUI = GUICreate("", 243, 154, -1, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
    GUICtrlCreateLabel("Suchen nach:", 8, 8, 96, 20)
    $ErsetzenInput = GUICtrlCreateInput("", 8, 32, 225, 24)
    GUICtrlCreateLabel("Ersetzen mit:", 8, 64, 92, 20)
    $Ersetzenmit = GUICtrlCreateInput("", 8, 88, 225, 24)
    $ErsetzenButton = GUICtrlCreateButton("Ersetzen", 8, 120, 105, 25, $WS_GROUP)
    $ErsetzenAbbrechen = GUICtrlCreateButton("Abbrechen", 130, 120, 105, 25, $WS_GROUP)

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

    GUISetState(@SW_HIDE, $ErsetzenGUI)
    #EndRegion - Ersetzen

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

    _Logread()

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

    While 1
    $msg = GUIGetMsg(1)
    Select
    Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $Mainform
    Exit
    Case $msg[0] = $KillAdress
    _GUICtrlListView_DeleteItemsSelected($Adressbuch)
    Case $msg[0] = $KillAllAdressC
    _GUICtrlListView_DeleteAllItems($Adressbuch)
    Case $msg[0] = $KillAdressC
    _GUICtrlListView_DeleteItemsSelected($Adressbuch)
    Case $msg[0] = $KillAllAdress
    _GUICtrlListView_DeleteAllItems($Adressbuch)
    Case $msg[0] = $AddAdress
    GUISetState(@SW_SHOW, $AdressAddGUI)

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

    Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $AdressAddGUI
    GUISetState(@SW_HIDE, $AdressAddGUI)

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

    Case $msg[0] = $HinzufuegenButton1
    $Name = GUICtrlRead($NameInput)
    $Adresse1 = GUICtrlRead($Adresse1Input)
    $Adresse2 = GUICtrlRead($Adresse2Input)
    $Telefon = GUICtrlRead($TelefonInput)
    $Handy = GUICtrlRead($HandyInput)
    GUICtrlCreateListViewItem($Name & "|" & $Adresse1 & "|" & $Adresse2 & "|" & $Telefon & "|" & $Handy, $Adressbuch)
    GUISetState(@SW_HIDE, $AdressAddGUI)
    ExitLoop

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

    Case $msg[0] = $AbbrechenButton1
    GUISetState(@SW_HIDE, $AdressAddGUI)

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

    Case $msg[0] = $Adressbuch
    _GUICtrlListView_SortItems($Adressbuch, GUICtrlGetState($Adressbuch))
    Case $msg[0] = $Terminliste
    _GUICtrlListView_SortItems($Terminliste, GUICtrlGetState($Terminliste))
    Case $msg[0] = $Beenden
    Exit
    Case $msg[0] = $KillTerminC
    _GUICtrlListView_DeleteItemsSelected($Terminliste)
    Case $msg[0] = $KillAllTerminC
    _GUICtrlListView_DeleteAllItems($Terminliste)
    Case $msg[0] = $KillAllTermin
    _GUICtrlListView_DeleteAllItems($Terminliste)
    Case $msg[0] = $KillTermin
    _GUICtrlListView_DeleteItemsSelected($Terminliste)
    Case $msg[0] = $AddTermin
    GUISetState(@SW_SHOW, $AddTerminGUI)

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

    Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $AddTerminGUI
    GUISetState(@SW_HIDE, $AddTerminGUI)

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

    Case $msg[0] = $HinzufuegenButton
    $Betreff = GUICtrlRead($BetreffInput)
    $Uhrzeit = GUICtrlRead($UhrzeitInput)
    $Datum = GUICtrlRead($DatumInput)
    $Kommentar = GUICtrlRead($KommentarInput)
    GUICtrlCreateListViewItem($Betreff & "|" & $Uhrzeit & "|" & $Datum & "|" & $Kommentar, $Terminliste)
    GUISetState(@SW_HIDE, $AddTerminGUI)

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

    Case $msg[0] = $AbbrechenButton
    GUISetState(@SW_HIDE, $AddTerminGUI)

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

    Case $msg[0] = $Drucken
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    $log1 = GUICtrlRead($Edit1, 1)
    $PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log1)
    $PrintFile = @TempDir & "\HastyNotesPrint.txt"
    _FilePrint($PrintFile)
    Sleep(500)
    FileDelete(@TempDir & "\HastyNotesPrint.txt")
    Case $Tab2
    $log2 = GUICtrlRead($Edit2, 1)
    $PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log2)
    $PrintFile = @TempDir & "\HastyNotesPrint.txt"
    _FilePrint($PrintFile)
    Sleep(500)
    FileDelete(@TempDir & "\HastyNotesPrint.txt")
    Case $Tab3
    $log3 = GUICtrlRead($Edit3, 1)
    $PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log3)
    $PrintFile = @TempDir & "\HastyNotesPrint.txt"
    _FilePrint($PrintFile)
    Sleep(500)
    FileDelete(@TempDir & "\HastyNotesPrint.txt")
    Case $Tab4
    $log4 = GUICtrlRead($Edit4, 1)
    $PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log4)
    $PrintFile = @TempDir & "\HastyNotesPrint.txt"
    _FilePrint($PrintFile)
    Sleep(500)
    FileDelete(@TempDir & "\HastyNotesPrint.txt")
    EndSwitch
    Case $msg[0] = $Ersetzen
    GUISetState(@SW_SHOW, $ErsetzenGUI)

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

    Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $ErsetzenGUI
    GUISetState(@SW_HIDE, $ErsetzenGUI)

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

    Case $msg[0] = $ErsetzenButton
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    $log1 = GUICtrlRead($Edit1)
    $SuchenInhalt = GUICtrlRead($ErsetzenInput)
    $ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
    $ErrechneText = StringReplace($log1, $SuchenInhalt, $ErsetzenInhalt)
    GUICtrlSetData($Edit1, $ErrechneText)
    Case $Tab2
    $log2 = GUICtrlRead($Edit2)
    $SuchenInhalt = GUICtrlRead($ErsetzenInput)
    $ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
    $ErrechneText = StringReplace($log2, $SuchenInhalt, $ErsetzenInhalt)
    GUICtrlSetData($Edit2, $ErrechneText)
    Case $Tab3
    $log3 = GUICtrlRead($Edit3)
    $SuchenInhalt = GUICtrlRead($ErsetzenInput)
    $ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
    $ErrechneText = StringReplace($log3, $SuchenInhalt, $ErsetzenInhalt)
    GUICtrlSetData($Edit3, $ErrechneText)
    Case $Tab4
    $log4 = GUICtrlRead($Edit4)
    $SuchenInhalt = GUICtrlRead($ErsetzenInput)
    $ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
    $ErrechneText = StringReplace($log4, $SuchenInhalt, $ErsetzenInhalt)
    GUICtrlSetData($Edit4, $ErrechneText)
    GUISetState(@SW_HIDE, $ErsetzenGUI)
    EndSwitch

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

    Case $msg[0] = $ErsetzenAbbrechen
    GUISetState(@SW_HIDE, $ErsetzenGUI)

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

    Case $msg[0] = $NewTabName1
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName1", $TabNameChange)
    GUICtrlSetData($Tab1, $TabNameChange)
    Case $msg[0] = $NewTabName2
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName2", $TabNameChange)
    GUICtrlSetData($Tab2, $TabNameChange)
    Case $msg[0] = $NewTabName3
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName3", $TabNameChange)
    GUICtrlSetData($Tab3, $TabNameChange)
    Case $msg[0] = $NewTabName4
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName4", $TabNameChange)
    GUICtrlSetData($Tab4, $TabNameChange)
    Case $msg[0] = $Textlaengeentfernen
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    _GUICtrlEdit_SetLimitText($Edit1, -1)
    Case $Tab2
    _GUICtrlEdit_SetLimitText($Edit2, -1)
    Case $Tab3
    _GUICtrlEdit_SetLimitText($Edit3, -1)
    Case $Tab4
    _GUICtrlEdit_SetLimitText($Edit4, -1)
    EndSwitch
    Case $msg[0] = $Textlaengesetzen
    $textlaengemax = InputBox("HastyNotes", "Bitte maximale Zeichenlänge eingeben:")
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    _GUICtrlEdit_SetLimitText($Edit1, $textlaengemax)
    Case $Tab2
    _GUICtrlEdit_SetLimitText($Edit2, $textlaengemax)
    Case $Tab3
    _GUICtrlEdit_SetLimitText($Edit3, $textlaengemax)
    Case $Tab4
    _GUICtrlEdit_SetLimitText($Edit4, $textlaengemax)
    EndSwitch
    Case $msg[0] = $TabsLoesen
    _GUICtrlEdit_SetReadOnly($Edit1, False)
    _GUICtrlEdit_SetReadOnly($Edit2, False)
    _GUICtrlEdit_SetReadOnly($Edit3, False)
    _GUICtrlEdit_SetReadOnly($Edit4, False)
    Case $msg[0] = $TabsFestsetzen
    _GUICtrlEdit_SetReadOnly($Edit1, True)
    _GUICtrlEdit_SetReadOnly($Edit2, True)
    _GUICtrlEdit_SetReadOnly($Edit3, True)
    _GUICtrlEdit_SetReadOnly($Edit4, True)
    Case $msg[0] = $TextLoesen
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    _GUICtrlEdit_SetReadOnly($Edit1, False)
    Case $Tab2
    _GUICtrlEdit_SetReadOnly($Edit2, False)
    Case $Tab3
    _GUICtrlEdit_SetReadOnly($Edit3, False)
    Case $Tab4
    _GUICtrlEdit_SetReadOnly($Edit4, False)
    EndSwitch
    Case $msg[0] = $TextFestsetzen
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    _GUICtrlEdit_SetReadOnly($Edit1, True)
    Case $Tab2
    _GUICtrlEdit_SetReadOnly($Edit2, True)
    Case $Tab3
    _GUICtrlEdit_SetReadOnly($Edit3, True)
    Case $Tab4
    _GUICtrlEdit_SetReadOnly($Edit4, True)
    EndSwitch
    Case $msg[0] = $ZeichenLine
    $welcheline = InputBox("HastyNotes", "Bitte Zeilen Nr eingeben:" & @CRLF & "Achtung: Oberste Zeile ist 0")
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    $Zeilenlaenge = _GUICtrlEdit_LineLength($Edit1, $welcheline)
    MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
    Case $Tab2
    $Zeilenlaenge = _GUICtrlEdit_LineLength($Edit2, $welcheline)
    MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
    Case $Tab3
    $Zeilenlaenge = _GUICtrlEdit_LineLength($Edit3, $welcheline)
    MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
    Case $Tab4
    $Zeilenlaenge = _GUICtrlEdit_LineLength($Edit4, $welcheline)
    MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
    EndSwitch
    Case $msg[0] = $MarkAll
    Allesmarkieren()
    Case $msg[0] = $ZeichenAll
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    $paste1 = GUICtrlRead($Edit1, 1)
    $laenge = StringLen($paste1)
    MsgBox(0, "Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
    Case $Tab2
    $paste2 = GUICtrlRead($Edit2, 1)
    $laenge = StringLen($paste2)
    MsgBox(0, "Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
    Case $Tab3
    $paste3 = GUICtrlRead($Edit3, 1)
    $laenge = StringLen($paste3)
    MsgBox(0, "Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
    Case $Tab4
    $paste4 = GUICtrlRead($Edit4, 1)
    $laenge = StringLen($paste1)
    MsgBox(0, "Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
    EndSwitch
    Case $msg[0] = $Laden
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    $ladedateipfad = FileOpenDialog("Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
    $ladedateipfad2 = FileRead($ladedateipfad)
    GUICtrlSetData($Edit1, $ladedateipfad2)
    Case $Tab2
    $ladedateipfad = FileOpenDialog("Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
    $ladedateipfad2 = FileRead($ladedateipfad)
    GUICtrlSetData($Edit2, $ladedateipfad2)
    Case $Tab3
    $ladedateipfad = FileOpenDialog("Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
    $ladedateipfad2 = FileRead($ladedateipfad)
    GUICtrlSetData($Edit2, $ladedateipfad2)
    Case $Tab4
    $ladedateipfad = FileOpenDialog("Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
    $ladedateipfad2 = FileRead($ladedateipfad)
    GUICtrlSetData($Edit2, $ladedateipfad2)
    EndSwitch
    Case $msg[0] = $SpeichernInDatei
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    $savedatei = GUICtrlRead($Edit1, 1)
    $savedateipfad = FileSaveDialog("Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
    If FileExists($savedateipfad) Then
    $antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
    If $antwortsave = 6 Then
    FileOpen($savedateipfad, 2)
    FileWrite($savedateipfad, $savedatei)
    FileClose($savedateipfad)
    ElseIf $antwortsave = 7 Then
    EndIf
    Else
    FileWrite($savedateipfad & ".txt", $savedatei)
    FileClose($savedateipfad & ".txt")
    EndIf
    Case $msg[0] = $Tab2
    $savedatei = GUICtrlRead($Edit2, 1)
    $savedateipfad = FileSaveDialog("Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
    If FileExists($savedateipfad) Then
    $antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
    If $antwortsave = 6 Then
    FileOpen($savedateipfad, 2)
    FileWrite($savedateipfad, $savedatei)
    FileClose($savedateipfad)
    ElseIf $antwortsave = 7 Then
    EndIf
    Else
    FileWrite($savedateipfad & ".txt", $savedatei)
    FileClose($savedateipfad & ".txt")
    EndIf
    Case $msg[0] = $Tab3
    $savedatei = GUICtrlRead($Edit3, 1)
    $savedateipfad = FileSaveDialog("Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
    If FileExists($savedateipfad) Then
    $antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
    If $antwortsave = 6 Then
    FileOpen($savedateipfad, 2)
    FileWrite($savedateipfad, $savedatei)
    FileClose($savedateipfad)
    ElseIf $antwortsave = 7 Then
    EndIf
    Else
    FileWrite($savedateipfad & ".txt", $savedatei)
    FileClose($savedateipfad & ".txt")
    EndIf
    Case $msg[0] = $Tab4
    $savedatei = GUICtrlRead($Edit4, 1)
    $savedateipfad = FileSaveDialog("Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
    If FileExists($savedateipfad) Then
    $antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
    If $antwortsave = 6 Then
    FileOpen($savedateipfad, 2)
    FileWrite($savedateipfad, $savedatei)
    FileClose($savedateipfad)
    ElseIf $antwortsave = 7 Then
    EndIf
    Else
    FileWrite($savedateipfad & ".txt", $savedatei)
    FileClose($savedateipfad & ".txt")
    EndIf
    EndSwitch
    Case $msg[0] = $SpeichernInTab
    $paste1 = GUICtrlRead($Edit1, 1)
    FileOpen(@ScriptDir & "\Logs\" & $log1, 2)
    Sleep(100)
    FileWrite(@ScriptDir & "\Logs\" & $log1, $paste1)
    FileClose(@ScriptDir & "\Logs\" & $log1)

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

    $paste2 = GUICtrlRead($Edit2, 1)
    FileOpen(@ScriptDir & "\Logs\" & $log2, 2)
    Sleep(100)
    FileWrite(@ScriptDir & "\Logs\" & $log2, $paste2)
    FileClose(@ScriptDir & "\Logs\" & $log1)

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

    $paste3 = GUICtrlRead($Edit3, 1)
    FileOpen(@ScriptDir & "\Logs\" & $log3, 2)
    Sleep(100)
    FileWrite(@ScriptDir & "\Logs\" & $log3, $paste3)
    FileClose(@ScriptDir & "\Logs\" & $log3)

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

    $paste4 = GUICtrlRead($Edit4, 1)
    FileOpen(@ScriptDir & "\Logs\" & $log4, 2)
    Sleep(100)
    FileWrite(@ScriptDir & "\Logs\" & $log4, $paste4)
    FileClose(@ScriptDir & "\Logs\" & $log4)

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

    $logtermlines = _GUICtrlListView_GetItemCount($Terminliste) - 1
    $loadterm = FileOpen(@ScriptDir & "\Logs\" & $logterm, 2)
    If $loadterm <> -1 Then
    For $i = 0 To $logtermlines
    $loadtermzeile = _GUICtrlListView_GetItemTextString($Terminliste, $i)
    FileWriteLine(@ScriptDir & "\Logs\" & $logterm, $loadtermzeile)
    Next
    FileClose(@ScriptDir & "\Logs\" & $logterm)
    EndIf

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

    $logadresslines = _GUICtrlListView_GetItemCount($Adressbuch) - 1
    $loadadress = FileOpen(@ScriptDir & "\Logs\" & $logadress, 2)
    If $loadadress <> -1 Then
    For $i2 = 0 To $logadresslines
    $logadresszeile = _GUICtrlListView_GetItemTextString($Adressbuch, $i2)
    FileWriteLine(@ScriptDir & "\Logs\" & $logadress, $logadresszeile)
    Next
    FileClose(@ScriptDir & "\Logs\" & $logadress)
    EndIf
    Case $msg[0] = $KopierenAll
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    $saveall = GUICtrlRead($Edit1)
    ClipPut($saveall)
    Case $Tab2
    $saveall = GUICtrlRead($Edit2)
    ClipPut($saveall)
    Case $Tab3
    $saveall = GUICtrlRead($Edit3)
    ClipPut($saveall)
    Case $Tab4
    $saveall = GUICtrlRead($Edit4)
    ClipPut($saveall)
    EndSwitch
    Case $msg[0] = $KopierenMark
    Send("^c")
    Case $msg[0] = $Backmake
    Send("^z")
    Case $msg[0] = $DeleteMark
    Send("{DEL}")
    Case $msg[0] = $Ausschneiden
    Send("^x")
    Case $msg[0] = $Update
    InetGet("http://sen.pytalhost.de/HastyNotes/Update.txt", @TempDir & "\Update.txt", 1, 0)
    $UpdateFile = FileOpen(@TempDir & "\Update.txt", 0)
    $UpdateLine = FileReadLine($UpdateFile, 1)
    If $UpdateLine = $Version Then
    FileClose($UpdateFile)
    FileDelete(@TempDir & "\Update.txt")
    MsgBox(64, "Update HastyNotes", "Sie benutzen die" & @CRLF & "Aktuelle Version " & $Version)
    Else
    MsgBox(0, "Update HastyNotes", "Eine neue Version von HastyNotes ist verfügbar." & @CRLF & "Sie befindet sich nun in ihrem HastyNotes Ordner")
    InetGet("http://sen.pytalhost.de/HastyNotes/HastyNotes " & $UpdateLine & ".zip", "HastyNotes " & $UpdateLine & ".zip", 1, 0)
    FileClose($UpdateLine)
    FileDelete(@TempDir & "\Update.txt")
    EndIf
    Case $msg[0] = $DatumTime
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    GUICtrlSetState($Edit1, $GUI_FOCUS)
    Send(@HOUR & ":" & @MIN & "Uhr - " & @MDAY & "." & @MON & ":" & @YEAR)
    Case $Tab2
    GUICtrlSetState($Edit2, $GUI_FOCUS)
    Send(@HOUR & ":" & @MIN & "Uhr - " & @MDAY & "." & @MON & ":" & @YEAR)
    Case $Tab3
    GUICtrlSetState($Edit3, $GUI_FOCUS)
    Send(@HOUR & ":" & @MIN & "Uhr - " & @MDAY & "." & @MON & ":" & @YEAR)
    Case $Tab4
    GUICtrlSetState($Edit4, $GUI_FOCUS)
    Send(@HOUR & ":" & @MIN & "Uhr - " & @MDAY & "." & @MON & ":" & @YEAR)
    EndSwitch
    Case $msg[0] = $DeleteAll
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    GUICtrlSetData($Edit1, "")
    Case $Tab2
    GUICtrlSetData($Edit2, "")
    Case $Tab3
    GUICtrlSetData($Edit3, "")
    Case $Tab4
    GUICtrlSetData($Edit4, "")
    EndSwitch
    Case $msg[0] = $Einfuegen
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    GUICtrlSetState($Edit1, $GUI_FOCUS)
    Send("^v")
    Case $Tab2
    GUICtrlSetState($Edit2, $GUI_FOCUS)
    Send("^v")
    Case $Tab3
    GUICtrlSetState($Edit3, $GUI_FOCUS)
    Send("^v")
    Case $Tab4
    GUICtrlSetState($Edit4, $GUI_FOCUS)
    Send("^v")
    EndSwitch
    Case $msg[0] = $UberHastyNotes
    MsgBox(64, "Über HastyNotes", "Version: " & $Version & @CRLF & "© by Sen // Christopher Klay")
    EndSelect
    WEnd

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

    Func _Logread()
    If FileExists(@ScriptDir & "\Logs\" & $log1) Then
    Local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log1, 0)
    Local $readfile2 = FileRead($readfile)
    GUICtrlSetData($Edit1, $readfile2)
    FileClose(@ScriptDir & "\Logs\" & $log1)
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $log2) Then
    Local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log2, 0)
    Local $readfile2 = FileRead($readfile)
    GUICtrlSetData($Edit2, $readfile2)
    FileClose(@ScriptDir & "\Logs\" & $log2)
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $log3) Then
    Local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log3, 0)
    Local $readfile2 = FileRead($readfile)
    GUICtrlSetData($Edit3, $readfile2)
    FileClose(@ScriptDir & "\Logs\" & $log3)
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $log4) Then
    Local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log4, 0)
    Local $readfile2 = FileRead($readfile)
    GUICtrlSetData($Edit4, $readfile2)
    FileClose(@ScriptDir & "\Logs\" & $log4)
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $logterm) Then
    Local $loadterm = FileOpen(@ScriptDir & "\Logs\" & $logterm, 0)
    If $loadterm <> -1 Then
    _GUICtrlListView_BeginUpdate($Terminliste)
    While True
    $loadtermzeile = FileReadLine($loadterm)
    If @error Then ExitLoop
    GUICtrlCreateListViewItem($loadtermzeile, $Terminliste)
    WEnd
    _GUICtrlListView_EndUpdate($Terminliste)
    FileClose(@ScriptDir & "\Logs\" & $logterm)
    EndIf
    EndIf

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

    If FileExists(@ScriptDir & "\Logs\" & $logadress) Then
    Local $loadadress = FileOpen(@ScriptDir & "\Logs\" & $logadress, 0)
    If $loadadress <> -1 Then
    _GUICtrlListView_BeginUpdate($Adressbuch)
    While True
    $loadadresszeile = FileReadLine($loadadress)
    If @error Then ExitLoop
    GUICtrlCreateListViewItem($loadadresszeile, $Adressbuch)
    WEnd
    _GUICtrlListView_EndUpdate($Adressbuch)
    FileClose(@ScriptDir & "\Logs\" & $logadress)
    EndIf
    EndIf
    EndFunc ;==>_Logread

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

    Func Allesmarkieren()
    Switch GUICtrlRead($UberTab, 1)
    Case $Tab1
    _GUICtrlEdit_SetSel($Edit1, 0, -1)
    Case $Tab2
    _GUICtrlEdit_SetSel($Edit2, 0, -1)
    Case $Tab3
    _GUICtrlEdit_SetSel($Edit3, 0, -1)
    Case $Tab4
    _GUICtrlEdit_SetSel($Edit4, 0, -1)
    EndSwitch
    EndFunc ;==>Allesmarkieren

    [/autoit]

    Ich hätte da noch ne Frage:
    Warum schreibst du das Ganze nicht im OnEventMode? Wäre viel übersichtlicher.

    Edit: Irgendwie funktioniert der Spoiler nicht 8|

    Edit Oscar: Anzeige korrigiert (Spoiler + AutoIt-TAG) Eh? Das funktioniert nicht?! Auch mit Haken bei "Darstellung von BBCodes aktivieren" nicht.

    Edit: Öhm, jetzt funktioniert es wieder. 8| Naja thx ^^

  • Blue-Editor 2.3

    Ein paar Bugs:
    - Wenn du im Menü Format auf Schrifart gehst und dann einfach so auf Vorschau klickst, bekommst du nen Error, weil in der ListView Farben, "Farben" als Standard angegeben ist.

    Format Bugs:
    - Unterstrichen und Durchgestrichen funktioniert nicht
    - Links-, Rechtsbündig und Zentriert funktionieren nicht
    - Größe und Schriftart ändern funktioniert nicht
    - Bei der Vorschau von Schriftart wird nur die Farbe geändert

    Aber die Format Bugs passieren nicht, wenn du bei Schriftschnitt Standard auswählst.
    Das könnte an dem Rechtschreibfehler liegen, der über der Auswahl ist. (Standar't')

    Sonst find ich den Editor wirklich super! Echt gute Arbeit :)

    PS: Ist keine Kritik, eher Verbessrungsvorschläge! ;)

  • _MiniGUI

    Hab jetzt eine neue Funktion hinzugefügt, die eine MiniGUI in der Form einer Blase erscheinen lässt (_MiniGUI_Bubble).

    Die Richtungen mache ich gerade...

    Edit: So hab jetzt die Richtungen für _MiniGUI_Bubble hinzugefügt (gleich wie bei _MiniGUI)

  • Euro Editor 2.4

    Ich find den Editor wirklch toll! :D

    Trotzdem sind da noch ein paar Bugs drinnen:
    Tab funktioniert nicht
    Bei der Size ist 14 8 10 12 14 ... in der LisView
    Wenn man die Schriftgröße verändert und dann die Schriftart verändert, ist die Schriftgröße wieder 14 doch in der ListView noch immer 8
    Wenn man im Menü Extras auf Optionen klickt, passiert überhaupt nichts

    PS: Nimms nicht als Kritik, sind eher Verbesserungsvorschläge. ;)

    Edit: Du könntest noch eine Update Funktion einbauen. Würde sicher gut rüberkommen.

  • SlimCalc

    Kleiner Bug: Wenn man beim Einfügen Fenster schließen klickt, beendet sich das Programm.
    Und nochwas: Es wäre gut, wenn man nur Zahlen und Mathematische Zeichen einfügen könnte. ;)

  • _MiniGUI

    Hab jetzt mal hinzugefügt, dass die MiniGUI von oben und von links kommen kann. ($flag = 2, $flag = 3)
    Weiters hab ich noch hinzugefügt, dass die GUI aus allen Ecken kommt und dann in der Mitte des Bildschirms angezeigt wird. ($flag = 4)

    MfG, H2112

  • _MiniGUI

    Sehr großes thx! :D

    Ich hab das auch schon versucht, bin aber an der Taskleiste gescheitert. :(

    Ich hab jetzt auch noch hinzugefügt, dass die MiniGUI auch von rechts kommen kann ($flag = 1)

  • _MiniGUI

    Danke für die Kommentare. ^^

    ich hab die UDF mal ein bisschen erweitert. Hoffe es gefällt euch!

    Edit: Hab nun auch einen anklickbaren Link hinzugefügt.

  • _MiniGUI

    Ich hab mal eine kleine UDF geschrieben, die ein Fenster mit beliebigen Titel, Text, Link, Anzeigedauer und Farbe aufscheinen lässt.

    Parameter

    _MiniGUI:
    $flag - Richtung aus der die MiniGUI kommen soll (0 = unten, 1 = rechts, 2 = oben, 3 = links, 4 = Aus allen Ecken (MiniGUI wird in der Mitte angezeigt))
    $Titel = Titel des MiniGUIs
    $Text = Text des MiniGUIs (Wenn der Text zu lange ist mal mit @CRLF versuchen ;))
    $Link = Link zu einer beliebigen Seite
    $Wait = Die Zeit, die die MiniGUI warten soll, bis sie verschwindet
    $Color1 = Hintergrundfarbe des MiniGUIs
    $Color2 = Text- und Linienfarbe des MiniGUIs

    _MiniGUI_Bubble:
    $flag - Richtung aus der die MiniGUI kommen soll (0 = unten, 1 = rechts, 2 = oben, 3 = links, 4 = Aus allen Ecken (MiniGUI wird in der Mitte angezeigt))
    $Titel = Titel des MiniGUIs
    $Text = Text des MiniGUIs (Wenn der Text zu lange ist mal mit @CRLF versuchen ;))
    $Link = Link zu einer beliebigen Seite
    $Wait = Die Zeit, die die MiniGUI warten soll, bis sie verschwindet
    $Color1 = Hintergrundfarbe des MiniGUIs
    $Color2 = Text- und Linienfarbe des MiniGUIs

    _MiniGUI
    [autoit]

    Func _MiniGUI($flag, $Titel, $Text, $Link, $Wait, $Color1, $Color2)

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

    Local $MINI_GUI_dif = 0, $MINI_GUI_Transwert = 255, $taskbar_pos = WinGetPos("[class:Shell_TrayWnd]")

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

    If $flag = 0 Then
    $MINI_GUI = GUICreate("MINI_GUI", 250, 140, @DesktopWidth - 270, @DesktopHeight, 0x80000000, 0x00000080)
    GUISetState(@SW_SHOW, $MINI_GUI)
    GUISetBkColor($Color1, $MINI_GUI)
    ElseIf $flag = 1 Then
    $MINI_GUI = GUICreate("MINI_GUI", 250, 140, @DesktopWidth, @DesktopHeight - 160 - $taskbar_pos[3], 0x80000000, 0x00000080)
    GUISetState(@SW_SHOW, $MINI_GUI)
    GUISetBkColor($Color1, $MINI_GUI)
    ElseIf $flag = 2 Then
    $MINI_GUI = GUICreate("MINI_GUI", 250, 140, @DesktopWidth -250 , - 140, 0x80000000, 0x00000080)
    GUISetState(@SW_SHOW, $MINI_GUI)
    GUISetBkColor($Color1, $MINI_GUI)
    ElseIf $flag = 3 Then
    $MINI_GUI = GUICreate("MINI_GUI", 250, 140, -250 , @DesktopHeight - 140 - $taskbar_pos[3], 0x80000000, 0x00000080)
    GUISetState(@SW_SHOW, $MINI_GUI)
    GUISetBkColor($Color1, $MINI_GUI)
    ElseIf $flag = 4 Then
    $MINI_GUI_1 = GUICreate("1_MINI_GUI", 250, 140, @DesktopWidth, -140, 0x80000000, 0x00000080)
    GUISetState(@SW_SHOW, $MINI_GUI_1)
    GUISetBkColor($Color1, $MINI_GUI_1)
    $MINI_GUI_2 = GUICreate("2_MINI_GUI", 250, 140, -250, -140, 0x80000000, 0x00000080)
    GUISetState(@SW_SHOW, $MINI_GUI_2)
    GUISetBkColor($Color1, $MINI_GUI_2)
    $MINI_GUI_3 = GUICreate("3_MINI_GUI", 250, 140, -250, @DesktopHeight, 0x80000000, 0x00000080)
    GUISetState(@SW_SHOW, $MINI_GUI_3)
    GUISetBkColor($Color1, $MINI_GUI_3)
    $MINI_GUI = GUICreate("MINI_GUI", 250, 140, @DesktopWidth, @DesktopHeight, 0x80000000, 0x00000080)
    GUISetState(@SW_SHOW, $MINI_GUI)
    GUISetBkColor($Color1, $MINI_GUI)
    EndIf

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

    $MINI_GUI_Titel = GUICtrlCreateLabel($Titel, 50, 20, 150)
    GUICtrlSetFont($MINI_GUI_Titel, 16)
    GUICtrlSetColor($MINI_GUI_Titel, $Color2)

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

    $MINI_GUI_Text = GUICtrlCreateLabel($Text, 50, 65)
    GUICtrlSetColor($MINI_GUI_Text, $Color2)

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

    $MINI_GUI_Link = GUICtrlCreateLabel($Link, 50, 110, 150, 20)
    GUICtrlSetColor($MINI_GUI_Link, 0x0000FF)
    GUICtrlSetFont($MINI_GUI_Link, 10, 400, 4)
    GUICtrlSetCursor($MINI_GUI_Link, 0)

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

    $MINI_GUI_Line1 = GUICtrlCreateLabel("", 0, 0, 250, 1)
    GUICtrlSetColor($MINI_GUI_Line1, $Color2)
    GUICtrlSetBkColor($MINI_GUI_Line1, $Color2)

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

    $MINI_GUI_Line2 = GUICtrlCreateLabel("", 0, 0, 1, 140)
    GUICtrlSetColor($MINI_GUI_Line2, $Color2)
    GUICtrlSetBkColor($MINI_GUI_Line2, $Color2)

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

    If $flag = 0 Or $flag = 3 Or $flag = 4 Then
    $MINI_GUI_Line3 = GUICtrlCreateLabel("", 249, 0, 1, 140)
    GUICtrlSetColor($MINI_GUI_Line3, $Color2)
    GUICtrlSetBkColor($MINI_GUI_Line3, $Color2)
    ElseIf $flag = 1 Or $flag = 2 Then
    $MINI_GUI_Line3 = GUICtrlCreateLabel("", 0, 139, 250, 1)
    GUICtrlSetColor($MINI_GUI_Line3, $Color2)
    GUICtrlSetBkColor($MINI_GUI_Line3, $Color2)
    EndIf

    If $flag = 4 Then
    $MINI_GUI_Line4 = GUICtrlCreateLabel("", 0, 139, 250, 1)
    GUICtrlSetColor($MINI_GUI_Line4, $Color2)
    GUICtrlSetBkColor($MINI_GUI_Line4, $Color2)
    EndIf

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

    $MINI_GUI_LineMiddle = GUICtrlCreateLabel("", 25, 50, 200, 3)
    GUICtrlSetColor($MINI_GUI_LineMiddle, $Color2)
    GUICtrlSetBkColor($MINI_GUI_LineMiddle, $Color2)

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

    If $flag = 4 Then
    WinSetOnTop($MINI_GUI_1, "", 1)
    WinSetOnTop($MINI_GUI_2, "", 1)
    WinSetOnTop($MINI_GUI_3, "", 1)
    WinSetOnTop($MINI_GUI, "", 1)

    Else
    WinSetOnTop($MINI_GUI, "", 1)
    EndIf

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

    If $flag = 0 Or $flag = 3 Then
    WinMove("MINI_GUI", "", @DesktopWidth - 270, @DesktopHeight - 140 - $taskbar_pos[3], 250, 140, 5)
    ElseIf $flag = 1 Or $flag = 2 Then
    WinMove("MINI_GUI", "", @DesktopWidth - 250, @DesktopHeight - 160 - $taskbar_pos[3], 250, 140, 5)
    ElseIf $flag = 4 Then
    WinMove("3_MINI_GUI", "", @DesktopWidth/2 - 125, @DesktopHeight/2 - 70 - $taskbar_pos[3], 250, 140, 5)
    WinMove("2_MINI_GUI", "", @DesktopWidth/2 - 125, @DesktopHeight/2 - 70 - $taskbar_pos[3], 250, 140, 5)
    WinMove("1_MINI_GUI", "", @DesktopWidth/2 - 125, @DesktopHeight/2 - 70 - $taskbar_pos[3], 250, 140, 5)
    WinMove("MINI_GUI", "", @DesktopWidth/2 - 125, @DesktopHeight/2 - 70 - $taskbar_pos[3], 250, 140, 5)
    GUIDelete($MINI_GUI_1)
    GUIDelete($MINI_GUI_2)
    GUIDelete($MINI_GUI_3)
    EndIf

    $MINI_GUI_begin = TimerInit()

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

    Do
    $MINI_GUI_dif = TimerDiff($MINI_GUI_begin)
    $aMousePos1 = MouseGetPos()
    $aWinPos1 = WinGetPos(WinGetTitle($MINI_GUI))
    If $MINI_GUI_dif > $Wait / 5 And $MINI_GUI_dif < $Wait / 4 Then
    Do
    WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
    Sleep(10)
    $MINI_GUI_Transwert = $MINI_GUI_Transwert - 1
    If $MINI_GUI_Transwert < 200 Then
    $MINI_GUI_Transwert = 200
    EndIf
    Until $MINI_GUI_Transwert = 200
    EndIf
    If $aMousePos1[0] > $aWinPos1[0] And $aMousePos1[0] < $aWinPos1[0] + 250 And $aMousePos1[1] > $aWinPos1[1] And $aMousePos1[1] < $aWinPos1[1] + 140 Then
    $MINI_GUI_begin = TimerInit()
    If $MINI_GUI_Transwert < 255 Then
    Do
    WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
    Sleep(10)
    $MINI_GUI_Transwert = $MINI_GUI_Transwert + 1
    Until $MINI_GUI_Transwert = 255
    EndIf
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $MINI_GUI_Link
    ShellExecute($Link)
    EndSwitch
    Until $MINI_GUI_dif > $Wait

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

    Do
    WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
    Sleep(10)
    $MINI_GUI_Transwert = $MINI_GUI_Transwert - 1
    Until $MINI_GUI_Transwert = 0

    GUIDelete($MINI_GUI)
    EndFunc ;==>_MiniGUI

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

    Func _MiniGUI_Bubble($flag, $Titel, $Text, $Link, $Wait, $Color1, $Color2)
    Local $MINI_GUI_dif = 0, $MINI_GUI_Transwert = 255, $taskbar_pos = WinGetPos("[class:Shell_TrayWnd]")

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

    If $flag = 0 Then
    $MINI_GUI = GUICreate("MINI_GUI", 250, 140, @DesktopWidth - 270, @DesktopHeight, 0x80000000, 0x00000080)
    $ret5 = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', 0, 'long', 0, 'long', 250, 'long', 140, 'long', 250, 'long', 140)
    If $ret5[0] Then
    $ret6 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $MINI_GUI, 'long', $ret5[0], 'int', 1)
    EndIf
    GUISetState(@SW_SHOW, $MINI_GUI)
    GUISetBkColor($Color1, $MINI_GUI)
    ElseIf $flag = 1 Then
    $MINI_GUI = GUICreate("MINI_GUI", 250, 140, @DesktopWidth, @DesktopHeight - 160 - $taskbar_pos[3], 0x80000000, 0x00000080)
    $ret5 = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', 0, 'long', 0, 'long', 250, 'long', 140, 'long', 250, 'long', 140)
    If $ret5[0] Then
    $ret6 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $MINI_GUI, 'long', $ret5[0], 'int', 1)
    EndIf
    GUISetState(@SW_SHOW, $MINI_GUI)
    GUISetBkColor($Color1, $MINI_GUI)
    ElseIf $flag = 2 Then
    $MINI_GUI = GUICreate("MINI_GUI", 250, 140, @DesktopWidth - 270, - 140, 0x80000000, 0x00000080)
    $ret5 = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', 0, 'long', 0, 'long', 250, 'long', 140, 'long', 250, 'long', 140)
    If $ret5[0] Then
    $ret6 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $MINI_GUI, 'long', $ret5[0], 'int', 1)
    EndIf
    GUISetState(@SW_SHOW, $MINI_GUI)
    GUISetBkColor($Color1, $MINI_GUI)
    ElseIf $flag = 3 Then
    $MINI_GUI = GUICreate("MINI_GUI", 250, 140, - 250, @DesktopHeight - 160 - $taskbar_pos[3], 0x80000000, 0x00000080)
    $ret5 = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', 0, 'long', 0, 'long', 250, 'long', 140, 'long', 250, 'long', 140)
    If $ret5[0] Then
    $ret6 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $MINI_GUI, 'long', $ret5[0], 'int', 1)
    EndIf
    GUISetState(@SW_SHOW, $MINI_GUI)
    GUISetBkColor($Color1, $MINI_GUI)
    ElseIf $flag = 4 Then
    $MINI_GUI_1 = GUICreate("1_MINI_GUI", 250, 140, - 250, @DesktopHeight, 0x80000000, 0x00000080)
    $ret7 = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', 0, 'long', 0, 'long', 250, 'long', 140, 'long', 250, 'long', 140)
    If $ret7[0] Then
    $ret8 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $MINI_GUI_1, 'long', $ret7[0], 'int', 1)
    EndIf
    GUISetState(@SW_SHOW, $MINI_GUI_1)
    GUISetBkColor($Color1, $MINI_GUI_1)
    $MINI_GUI_2 = GUICreate("2_MINI_GUI", 250, 140, - 250, - 140, 0x80000000, 0x00000080)
    $ret9 = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', 0, 'long', 0, 'long', 250, 'long', 140, 'long', 250, 'long', 140)
    If $ret9[0] Then
    $ret10 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $MINI_GUI_2, 'long', $ret9[0], 'int', 1)
    EndIf
    GUISetState(@SW_SHOW, $MINI_GUI_2)
    GUISetBkColor($Color1, $MINI_GUI_2)
    $MINI_GUI_3 = GUICreate("3_MINI_GUI", 250, 140, @DesktopWidth, - 140, 0x80000000, 0x00000080)
    $ret11 = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', 0, 'long', 0, 'long', 250, 'long', 140, 'long', 250, 'long', 140)
    If $ret11[0] Then
    $ret12 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $MINI_GUI_3, 'long', $ret11[0], 'int', 1)
    EndIf
    GUISetState(@SW_SHOW, $MINI_GUI_3)
    GUISetBkColor($Color1, $MINI_GUI_3)
    $MINI_GUI = GUICreate("MINI_GUI", 250, 140, @DesktopWidth, @DesktopHeight, 0x80000000, 0x00000080)
    $ret5 = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', 0, 'long', 0, 'long', 250, 'long', 140, 'long', 250, 'long', 140)
    If $ret5[0] Then
    $ret6 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $MINI_GUI, 'long', $ret5[0], 'int', 1)
    EndIf
    GUISetState(@SW_SHOW, $MINI_GUI)
    GUISetBkColor($Color1, $MINI_GUI)
    EndIf

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

    $Child1 = GUICreate ("Child1", 247, 137, 1, 1, 0x40000000, -1, $MINI_GUI)
    GUISetBkColor ($Color1, $Child1)
    $ret1 = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', 1, 'long', 1, 'long', 247, 'long', 137, 'long', 247, 'long', 137)
    If $ret1[0] Then
    $ret2 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $Child1, 'long', $ret1[0], 'int', 1)
    EndIf
    GUISetState()

    $MINI_GUI_Titel = GUICtrlCreateLabel($Titel, 50, 20, 150, 30, 0x01)
    GUICtrlSetFont($MINI_GUI_Titel, 16)
    GUICtrlSetColor($MINI_GUI_Titel, $Color2)

    $MINI_GUI_Text = GUICtrlCreateLabel($Text, 50, 65, 150, 40, 0x01)
    GUICtrlSetColor($MINI_GUI_Text, $Color2)

    $MINI_GUI_Link = GUICtrlCreateLabel($Link, 50, 110, 150, 20,0x01)
    GUICtrlSetColor($MINI_GUI_Link, 0x0000FF)
    GUICtrlSetFont($MINI_GUI_Link, 10, 400, 4)
    GUICtrlSetCursor($MINI_GUI_Link, 0)

    $MINI_GUI_LineMiddle = GUICtrlCreateLabel("", 25, 50, 200, 3)
    GUICtrlSetColor($MINI_GUI_LineMiddle, $Color2)
    GUICtrlSetBkColor($MINI_GUI_LineMiddle, $Color2)

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

    $Child2 = GUICreate ("Child2", 250, 140, 0, 0, 0x40000000, -1, $MINI_GUI)
    GUISetBkColor ($Color2, $Child2)
    $ret3 = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', 0, 'long', 0, 'long', 250, 'long', 140, 'long', 250, 'long', 140)
    If $ret3[0] Then
    $ret4 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $Child2, 'long', $ret3[0], 'int', 1)
    EndIf
    GUISetState()

    If $flag = 4 Then
    WinSetOnTop($MINI_GUI_1, "", 1)
    WinSetOnTop($MINI_GUI_2, "", 1)
    WinSetOnTop($MINI_GUI_3, "", 1)
    WinSetOnTop($MINI_GUI, "", 1)
    Else
    WinSetOnTop($MINI_GUI, "", 1)
    EndIf

    If $flag = 4 Then
    WinMove("1_MINI_GUI", "", @DesktopWidth/2 - 125, @DesktopHeight/2 - 70 - $taskbar_pos[3], 250, 140, 5)
    WinMove("2_MINI_GUI", "", @DesktopWidth/2 - 125, @DesktopHeight/2 - 70 - $taskbar_pos[3], 250, 140, 5)
    WinMove("3_MINI_GUI", "", @DesktopWidth/2 - 125, @DesktopHeight/2 - 70 - $taskbar_pos[3], 250, 140, 5)
    WinMove("MINI_GUI", "", @DesktopWidth/2 - 125, @DesktopHeight/2 - 70 - $taskbar_pos[3], 250, 140, 5)
    GUIDelete($MINI_GUI_1)
    GUIDelete($MINI_GUI_2)
    GUIDelete($MINI_GUI_3)
    Else
    WinMove("MINI_GUI", "", @DesktopWidth - 270, @DesktopHeight - 160 - $taskbar_pos[3], 250, 140, 5)
    EndIf

    $MINI_GUI_begin = TimerInit()

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

    Do
    $MINI_GUI_dif = TimerDiff($MINI_GUI_begin)
    $aMousePos1 = MouseGetPos()
    $aWinPos1 = WinGetPos(WinGetTitle($MINI_GUI))
    If $MINI_GUI_dif > $Wait / 5 And $MINI_GUI_dif < $Wait / 4 Then
    Do
    WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
    Sleep(10)
    $MINI_GUI_Transwert = $MINI_GUI_Transwert - 1
    If $MINI_GUI_Transwert < 200 Then
    $MINI_GUI_Transwert = 200
    EndIf
    Until $MINI_GUI_Transwert = 200
    EndIf
    If $aMousePos1[0] > $aWinPos1[0] And $aMousePos1[0] < $aWinPos1[0] + 250 And $aMousePos1[1] > $aWinPos1[1] And $aMousePos1[1] < $aWinPos1[1] + 140 Then
    $MINI_GUI_begin = TimerInit()
    If $MINI_GUI_Transwert < 255 Then
    Do
    WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
    Sleep(10)
    $MINI_GUI_Transwert = $MINI_GUI_Transwert + 1
    Until $MINI_GUI_Transwert = 255
    EndIf
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $MINI_GUI_Link
    ShellExecute($Link)
    EndSwitch
    Until $MINI_GUI_dif > $Wait

    Do
    WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
    Sleep(10)
    $MINI_GUI_Transwert = $MINI_GUI_Transwert - 1
    Until $MINI_GUI_Transwert = 0

    GUIDelete($MINI_GUI)
    EndFunc ;==>_MiniGUI_Bubble

    [/autoit]
    _MiniGUI Example
    [autoit]

    #include <MiniGUI.au3>

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

    _MiniGUI_Bubble(4, "Hallo Welt", "Hallo Welt", "www.h2112.webs.com", 10000, 0x000000, 0xFFFFFF)
    _MiniGUI_Bubble(3, "Hallo Welt", "Hallo Welt", "www.h2112.webs.com", 10000, 0x000000, 0xFFFFFF)
    _MiniGUI_Bubble(2, "Hallo Welt", "Hallo Welt", "www.h2112.webs.com", 10000, 0x000000, 0xFFFFFF)
    _MiniGUI_Bubble(1, "Hallo Welt", "Hallo Welt", "www.h2112.webs.com", 10000, 0x000000, 0xFFFFFF)
    _MiniGUI_Bubble(0, "Hallo Welt", "Hallo Welt", "www.h2112.webs.com", 10000, 0x000000, 0xFFFFFF)

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

    _MiniGUI(4, "Hallo Welt", "Hallo Welt!", "www.autoit.de", 10000, 0x000000, 0xFFFFFF)
    _MiniGUI(3, "Hallo Welt", "Hallo Welt!", "www.autoit.de", 10000, 0x000000, 0xFFFFFF)
    _MiniGUI(2, "Hallo Welt", "Hallo Welt!", "www.autoit.de", 10000, 0x000000, 0xFFFFFF)
    _MiniGUI(1, "Hallo Welt", "Hallo Welt!", "www.autoit.de", 10000, 0x000000, 0xFFFFFF)
    _MiniGUI(0, "Hallo Welt", "Hallo Welt!", "www.autoit.de", 10000, 0x000000, 0xFFFFFF)

    [/autoit]

    Edit: Thx für die Kommentare :)

    Ich hab die UDF mal ein bisschen verbessert:

    - Wenn man mit der Maus über die MiniGUI fährt, muss man wieder die angegebene zeit warten
    - Die MiniGUI wird, wenn man nach 1/5 der angegeben Zeit nicht über die GUI fährt, leicht transparent
    - Hintergrund- und Textfarbe ( Textfarbe = Linienfarbe) sind nun frei wählbar (thx an funkey für den Vorschlag)
    - Die MiniGUI hat jetzt einen anklickbaren Link
    - Die MiniGUI ist jetzt immer OnTop (Thx an GtaSpider)
    - Die MiniGUI kann jetzt auch von rechts kommen ($flag = 1)
    - Die MiniGUI ist jetzt immer relativ zur TaskLeiste (Thx an GtaSpider)
    - Die MiniGUI kann jetzt auch von oben kommen ($flag = 2)
    - Die MiniGUI kann jetzt auch von links kommen ($flag = 3)
    - Die MiniGUI kann jetzt aus allen Ecken kommen ($flag = 4 (MiniGUI wird in der Mitte angezeigt))
    - Neue Form hinzugefügt (_MiniGUI_Bubble)
    - Richtungen für _MiniGUI_Bubble hinzugefügt (gleich wie bei _MiniGUI)

    Bugs:
    - Wenn $Wait über 10.000 ist, wird die GUI immer wieder total durchsichtig - BEHOBEN
    - Die MiniGUI ist bei WinMove nicht im Vordergrund - BEHOBEN
    - Wenn man mit der Maus unter die MiniGUI fährt, wird diese wieder voll sichtbar - BEHOBEN