1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Sen

Beiträge von Sen

  • Komisches Fenster kann man nicht verstecken!

    • Sen
    • 31. Mai 2009 um 21:50

    Nur mal so am Rande,
    MobMap (http://www.mobmap.de/addon.php) ist nicht von Blizzard
    zugelassen und daher illegal.

    (Erklärung warum Illegal: Es verschafft dem Spieler die möglichkeit, das er z.b. spezielle Mobs/Gegner/Npc's
    auf der Map finden kann ohne diese suchen zu müssen. Daher: Spielvorteil.)

  • ICQ Client in autoit

    • Sen
    • 27. Mai 2009 um 15:34
    Zitat von ctec

    Forenregeln:
    - Automatisierung von Webseiten oder Tools, die das in ihren AGBs verbieten

    Das ist hier der Fall... also VERBOTEN :love:

    In anderen Foren werden sogar Bots unterstützt und Tools angeboten um aus .EXE wieder .AU3 zu machen - aber hier nicht :sleeping:

    Falsch,
    wenn man sich schon mit Agb's beschäftigt sollte mans auch richtig tun.
    Die programmierung eines ICQ Clienten selbst ist nicht illegal.
    Lediglich die Nutzung. (Ja, welch Logik)

  • 2 Fragen zu GUI's

    • Sen
    • 26. Mai 2009 um 19:13

    1. Kann man eine exe in einer GUI anzeigen lassen?
    2. wie erfahre ich die $ von einem "Textfeld" aus z.b. einem Spiel?

    Es gibt vom Game selbst shortcuts wie
    "Alt + 1 = @warp bla_dun"
    "Alt + 2 = @mobsearch"

    Nur leider geht die Zahlenreihe ja nur von 1 bis 0 X(
    Ich brauch aber ein paar mehr.

    Deshalb wollte ich die exe in einer GUI anzeigen lassen und darunter
    Buttons die automatisch Text in die Msg box einfügen (z.b. Send("@warp"))

    Ist vom Spiel her zwar erlaubt,
    hab mir auch erlaubnis vom GM gehohlt.
    (Danke an Khorne nochmal)

    Nur wirds wohl nicht umzusetzen sein oder?

  • Problem mit ContextMenü

    • Sen
    • 24. Mai 2009 um 01:56

    Danke funktioniert jetzt ;)

    Aber wegen der Anordnung etc,
    die is mir heilig :rofl:

    Zitat

    P.S.: Damit die Formatierung wieder stimmt, lass mal Tidy drüberlaufen. Dann steigt man wenigstens wieder etwas durch.


    Tidy? :huh:

    Und zu dem "Gui's am Anfang erstellen lassen" etc,
    is doch nicht notwendig oder? ?(

    Weil immo steig ich durchs Script Prima durch xD

  • Problem mit ContextMenü

    • Sen
    • 23. Mai 2009 um 20:27

    Nja lang ist relativ, wenn ich die Funktionen die noch geplant sind einbaue kommen noch knapp
    1400 zeilen oben drauf :rofl:

    Hab das jetzt mit GuiDelete geregelt ;)

    Einziges Problem dieses Menü:
    [Blockierte Grafik: http://img-up.net/img/HastyNotesExAHKy7E.jpg]

    Funktioniert weiterhin nicht ?(

  • Problem mit ContextMenü

    • Sen
    • 22. Mai 2009 um 22:36

    Finde den Fehler auch nicht..

    Und ja die Sortierung ist ein bischen "speziell" :rofl:

  • Problem mit ContextMenü

    • Sen
    • 22. Mai 2009 um 21:42

    Sry für Doppelpost aber hat keiner ne Idee?
    Hab das oben übernommen, sollte auch alles gehen..
    Tut es aber nicht :rofl:

    Weiterhin wird das Menü zwar angezeigt,
    aber beim klick nichts ausgeführt

  • kann man Tastendrücke abfangen?

    • Sen
    • 22. Mai 2009 um 20:55

    Zu 1:
    Ich mache hier keinen lächerlich,
    ich finde es eher lächerlich wenn man weiß das etwas illegal ist noch eine PM zu senden.

    Zu 2:
    Dann zeig mir nen Typen der nen Keylogger der
    -> Tasten mitschreibt
    -> Maus mitschreibt
    -> Aktivierte Fenster mitschreibt
    -> Passwörter/Usernamen filtert
    -> Netzwerk mitschreibt
    -> in regelmäßigen abständen die zwischenablage sichert
    -> Nicht sichtbar ist (weder taskbar noch manager)
    -> Keine CPU leistung zieht (0-1%)
    -> Username/PcName/Ip mitschreibt
    und
    ->Das ganze per Mail sendet enn der Pc herunterfährt

    in einer Woche schreibt und AutoIt vorher nicht kannte.

    Is auch egal,
    ich würde nur gerne nicht weiter mit Mails angeschrieben wie:
    -> Schickst du mir GHost?
    -> Sind Keylogger Illegal?

    JA sie sind illegal,
    NEIN ich sende euch Ghost nicht.

  • Problem mit ContextMenü

    • Sen
    • 22. Mai 2009 um 20:20

    Danke.
    Werd dann gleich mal die Zip uppen etc und HastyNotes 3.0 in meinen Thread stellen.

    Edit:
    Geht trotzdem nicht :huh:
    Weiterhin gehts das Menü, lässt sich aufrufen etc
    aber beim klicken eines Items im ContextMenü passiert nichts.
    (die gleiche funktion geht aber über das "Termine -> Entfernen" Menü oben)

  • kann man Tastendrücke abfangen?

    • Sen
    • 22. Mai 2009 um 20:18

    Eins muss ich hier grad nochmal loswerden.

    Wenn ihr hier schon lesen könnt das Keylogger wie mein Ghost illegal sind warum bekomme
    ich dann solche PM's?

    Nummer 1..


    Nachricht von "n00b": Ghost
    Hallo Sen,

    "n00b" hat dir auf der Website: .: autoit.de :. - Das deutsche AutoIt-Forum (http://www.autoit.de) folgende Nachricht gesandt:
    Hey, ich hab so was ähnliches auch mal gemacht!
    Mich würd's interessieren, wie du es gemacht hast!
    Hoffe, das ist nicht zu viel verlangt.

    Und nr. 2


    Nachricht von "Broken_Arrow": kannst du mir den Keylogger geben?
    Hallo Sen,

    "Broken_Arrow" hat dir auf der Website: .: autoit.de :. - Das deutsche AutoIt-Forum (http://www.autoit.de) folgende Nachricht gesandt:
    Wenn ich das richtig verstanden habe, kann man damit die Tasten abfangen oder.
    Ich werde auch nichts unanständiges damit anfangen. ausserdem hab ich noch nicht so viel Erfahrung um so etwas programmieren zu können.

    Ist dass wirklich illegal (vom Stadt verboten) oder ist das nur im Forum so?

    Es nervt.
    Und NEIN ich gebe Ghost nicht raus.
    Dient allein zu meinen Zwecken :rofl:

  • Problem mit ContextMenü

    • Sen
    • 22. Mai 2009 um 20:08

    So, kurz vor dem Release von HastyNotes 3.0 hat sich ein kleiner Bug eingebaut..
    und zwar habe ich 2 Context Menü's auf 2 verschiedene ListViews abgestimmt.
    Es funktioniert aber nur das 2te Menü.
    Beim ersten zeigt er zwar das Menü an aber es passiert nichts beim klicken eines MenüItems.

    Script:
    (ACHTUNG groß.)

    Spoiler anzeigen
    [autoit]


    ;---------------------------------------------------------------------------—
    ; HastyNotes 3.0
    ; By Sen // Christopher Klay
    ; Last Update - Montag, 11 Mai 2009
    ;---------------------------------------------------------------------------—
    ; Version - V 3.0
    ;---------------------------------------------------------------------------—
    ; Beschreibung:
    ; Kleines Notizbuch Tool
    ;---------------------------------------------------------------------------—-
    ; $Background = GUICtrlCreatePic(@ScriptDir & "\Images\Background.jpg", 0, 0, 640, 480, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

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

    $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)
    $Tab7 = GUICtrlCreateTabItem("Adressbuch")
    $Adressbuch = GUICtrlCreateListView("Name|Adresse1|Adresse2|TelefonNr|HandyNr", 4, 5, 632, 397)

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

    $ContextTermin = GUICtrlCreateContextMenu($Terminliste)
    $KillTerminC = GUICtrlCreateMenuItem("Markierten Termin entfernen", $Terminliste)
    $KillAllTerminC = GUICtrlCreateMenuItem("Alle Termine entfernen", $Terminliste)

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

    $ContextAdress = GUICtrlCreateContextMenu($Adressbuch)
    $KillAdressC = GUICtrlCreateMenuItem("Markierten Kontakt entfernen", $Adressbuch)
    $KillAllAdressC = GUICtrlCreateMenuItem("Alle Kontakte entfernen", $Adressbuch)

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

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

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

    _GUICtrlListView_SetExtendedListViewStyle($Terminliste, $iExListViewStyle)
    _GUICtrlListView_RegisterSortCallBack($Terminliste)
    _GUICtrlListView_SetExtendedListViewStyle($Adressbuch, $iExListViewStyle)
    _GUICtrlListView_RegisterSortCallBack($Adressbuch)

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

    GUISetState(@SW_SHOW)

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

    _Logread()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $KillAdress
    _GUICtrlListView_DeleteItemsSelected($Adressbuch)
    Case $KillAllAdressC
    _GUICtrlListView_DeleteAllItems($Adressbuch)
    Case $KillAdressC
    _GUICtrlListView_DeleteItemsSelected($Adressbuch)
    Case $KillAllAdress
    _GUICtrlListView_DeleteAllItems($Adressbuch)
    Case $AddAdress
    $AdressAddGUI = GUICreate("", 272, 174, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
    $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)

    GuiSetState()

    While 1
    Switch GuiGetMsg()
    Case $GUI_EVENT_CLOSE
    GuiSetState(@SW_HIDE,$AdressAddGUI)
    ExitLoop
    Case $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
    Case $AbbrechenButton1
    GuiSetState(@SW_HIDE,$AdressAddGUI)
    ExitLoop
    EndSwitch
    WEnd
    Case $Adressbuch
    _GUICtrlListView_SortItems($Adressbuch, GUICtrlGetState($Adressbuch))
    Case $Terminliste
    _GUICtrlListView_SortItems($Terminliste, GUICtrlGetState($Terminliste))
    Case $Beenden
    Exit
    Case $KillTerminC
    _GUICtrlListView_DeleteItemsSelected($Terminliste)
    Case $KillAllTerminC
    _GUICtrlListView_DeleteAllItems($Terminliste)
    Case $KillAllTermin
    _GUICtrlListView_DeleteAllItems($Terminliste)
    Case $KillTermin
    _GUICtrlListView_DeleteItemsSelected($Terminliste)
    Case $AddTermin
    $AddTerminGUI = GUICreate("", 421, 172, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
    $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)

    GuiSetState()

    While 1
    Switch GuiGetMsg()
    Case $GUI_EVENT_CLOSE
    GuiSetState(@SW_HIDE,$AddTerminGUI)
    ExitLoop
    Case $HinzufuegenButton
    $Betreff = GUICtrlRead($BetreffInput)
    $Uhrzeit = GUICtrlRead($UhrzeitInput)
    $Datum = GUICtrlRead($DatumInput)
    $Kommentar = GUICtrlRead($KommentarInput)
    GUICtrlCreateListViewItem($Betreff & "|" & $Uhrzeit & "|" & $Datum & "|" & $Kommentar, $Terminliste)
    GuiSetState(@SW_HIDE,$AddTerminGUI)
    ExitLoop
    Case $AbbrechenButton
    GuiSetState(@SW_HIDE,$AddTerminGUI)
    ExitLoop
    EndSwitch
    WEnd
    Case $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 $Ersetzen
    $ErsetzenGUI = GUICreate("", 243, 154, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
    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)

    GuiSetState()

    While 1
    Switch GuiGetMsg()
    Case $GUI_EVENT_CLOSE
    GuiSetState(@SW_HIDE,$ErsetzenGUI)
    ExitLoop
    Case $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
    Case $ErsetzenAbbrechen
    GuiSetState(@SW_HIDE,$ErsetzenGUI)
    ExitLoop
    EndSwitch
    WEnd
    Case $NewTabName1
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName1", $TabNameChange)
    GUICtrlSetData($Tab1, $TabNameChange)
    Case $NewTabName2
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName2", $TabNameChange)
    GUICtrlSetData($Tab2, $TabNameChange)
    Case $NewTabName3
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName3", $TabNameChange)
    GUICtrlSetData($Tab3, $TabNameChange)
    Case $NewTabName4
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName4", $TabNameChange)
    GUICtrlSetData($Tab4, $TabNameChange)
    Case $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 $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 $TabsLoesen
    _GUICtrlEdit_SetReadOnly($Edit1, False)
    _GUICtrlEdit_SetReadOnly($Edit2, False)
    _GUICtrlEdit_SetReadOnly($Edit3, False)
    _GUICtrlEdit_SetReadOnly($Edit4, False)
    Case $TabsFestsetzen
    _GUICtrlEdit_SetReadOnly($Edit1, True)
    _GUICtrlEdit_SetReadOnly($Edit2, True)
    _GUICtrlEdit_SetReadOnly($Edit3, True)
    _GUICtrlEdit_SetReadOnly($Edit4, True)
    Case $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 $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 $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 $MarkAll
    Allesmarkieren()
    Case $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 $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 $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 $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 $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 $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 $SpeichernInTab
    $paste1 = GUICtrlRead($Edit1, 1)
    FileOpen(@ScriptDir & "\Logs\" & $log1, 2)
    Sleep(100)
    FileWrite(@ScriptDir & "\Logs\" & $log1, $paste1)
    FileClose(@ScriptDir & "\Logs\" & $log1)

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

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

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

    $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

    $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 $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 $KopierenMark
    Send( "^c" )
    Case $Backmake
    Send( "^z" )
    Case $DeleteMark
    Send("{DEL}")
    Case $Ausschneiden
    Send ( "^x" )
    Case $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 $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 $DeleteAll
    Switch GUICtrlRead($UberTab,1)
    Case $Tab1
    GUICtrlSetData($Edit1, "")
    Case $Tab2
    GUICtrlSetData($Edit2, "")
    Case $Tab3
    GUICtrlSetData($Edit3, "")
    Case $Tab4
    GUICtrlSetData($Edit4, "")
    EndSwitch
    Case $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 $UberHastyNotes
    MsgBox(64, "Über HastyNotes", "Version: "& $Version & @CRLF & "© by Sen // Christopher Klay")
    EndSwitch
    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

    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

    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

    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

    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]


    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

    [/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

    [/autoit]

    Jemand ne Idee woran es liegen könnte?
    Ich denke mal es ist ein dummer Fehler ihrgendwo weil ich ziemlich müde bin :rofl:

  • kann man Tastendrücke abfangen?

    • Sen
    • 22. Mai 2009 um 14:54

    Doch, "IsPressed" hilft sogar sehr.

    Mal ein Beispiel aus Ghost kopiert:

    [autoit]


    Local $CAPSLOCKTOGGLE = 0

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

    If _IsPressed ('14') = 1 Then
    If $CAPSLOCKTOGGLE = 1 Then
    $CAPSLOCKTOGGLE = 0
    ElseIf $CAPSLOCKTOGGLE = 0 Then
    $CAPSLOCKTOGGLE = 1
    EndIf
    EndIf

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

    If _IsPressed ('46') = 1 Then
    If $CAPSLOCKTOGGLE = 0 Then
    FileWrite($log,"f")
    Else
    FileWrite($log,"F")
    EndIf

    [/autoit]

    Mehr kopiere ich mal nicht, ihr wisst schon zuviel :rofl:

  • ListView Probleme

    • Sen
    • 22. Mai 2009 um 14:14

    Ich bin so dämlich..
    Ich hab versucht es nur über "GUICtrlDelete" zu lösen,
    nicht über "_GUICtrlListView_DeleteItem()" oder andere :rofl:

    Danke.

  • windows herunterfahren lassen?

    • Sen
    • 22. Mai 2009 um 14:12
    [autoit]


    $time = @HOUR & ":" & @MIN
    if $time = "20:15" then
    shutdown(1)
    else ; ist nicht nötig ausser das prog soll dan was sagen
    endif

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

    While 1
    Sleep (100)
    WEnd

    [/autoit]

    Dürfte gehen.
    Bin ma duschen :rofl:

  • kann man Tastendrücke abfangen?

    • Sen
    • 22. Mai 2009 um 14:07

    Ghost = Keylogger der Tastatur, Maus, Desktopbewegungen etc aufschreibt und per Email versenden kann.
    (Selbstgeschrieben :D )

    Ist allerdings illegal und daher poste ichs hier auch nicht^^

  • ListView Probleme

    • Sen
    • 22. Mai 2009 um 14:02

    Zu 1.
    Einziges Problem: Wie kann ich den Eintrag dann mit GUICtrlDelete den Eintrag löschen? (Man bekommt ja immer nur die Eintrags Nr)

    Zu 2.
    Jap hatte an eine .txt Datenbank gedacht.
    Werd dann mal nach Oscars Beispiel suchen

  • ListView Probleme

    • Sen
    • 22. Mai 2009 um 13:46

    Und zwar arbeite ich gerade an einer Termin Liste für HastyNotes. (per ListView)
    Probleme die auftreten:

    1. Wie kann man erfragen welches "Item" grad aktiv ist? (also markiert) Ohne alle abzufragen?
    2. Wie kann ich den Inhalt speichern/wiederherstellen? (GuiCtrlRead/Write auf die ListView?)

    Script:
    (Nicht wundern, ist nur der GUI teil + hinzufügen. NICHT fertig ;) )

    Spoiler anzeigen
    [autoit]


    Case $AddTermin
    $AddTerminGUI = GUICreate("", 421, 172, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
    $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)

    GuiSetState()

    While 1
    Switch GuiGetMsg()
    Case $GUI_EVENT_CLOSE
    GuiSetState(@SW_HIDE,$AddTerminGUI)
    ExitLoop
    Case $HinzufuegenButton
    $Betreff = GUICtrlRead($BetreffInput)
    $Uhrzeit = GUICtrlRead($UhrzeitInput)
    $Datum = GUICtrlRead($DatumInput)
    $Kommentar = GUICtrlRead($KommentarInput)
    GUICtrlCreateListViewItem($Betreff & "|" & $Uhrzeit & "|" & $Datum & "|" & $Kommentar, $Terminliste)
    GuiSetState(@SW_HIDE,$AddTerminGUI)
    ExitLoop
    Case $AbbrechenButton
    GuiSetState(@SW_HIDE,$AddTerminGUI)
    ExitLoop
    EndSwitch
    WEnd

    [/autoit]
  • kann man Tastendrücke abfangen?

    • Sen
    • 22. Mai 2009 um 12:26

    Ich würde wegen dem Tastendruck Abfangen jetzt ja hier gerne den Quelltext von Ghost posten,
    wäre aber illegal und gegen die Bordregeln :rofl:

  • Problem mit RichEdit

    • Sen
    • 20. Mai 2009 um 11:37

    Hab ich schon, genau daran bin ich ja gescheitert :rofl:
    Er hat immer knapp 10 Fehlermeldungen ausgespuckt,
    die teoretisch garnicht da sein können :rofl:

  • Problem mit RichEdit

    • Sen
    • 19. Mai 2009 um 18:56

    Und zwar hab ich versucht HastyNotes auf RichEdit umzustellen.
    Gescheitert ohne Ende, es ging entweder garnich oder nur mit Bugs.

    Könnte jemand den folgenden Quelltext auf RichEdit umcoden?

    HastyNotes Code
    [autoit]


    ;---------------------------------------------------------------------------—
    ; HastyNotes 2.5
    ; By Sen // Christopher Klay
    ; Last Update - Montag, 11 Mai 2009
    ;---------------------------------------------------------------------------—
    ; Version - V 2.5
    ;---------------------------------------------------------------------------—
    ; Beschreibung:
    ; Kleines Notizbuch Tool
    ;---------------------------------------------------------------------------—-
    ; $Background = GUICtrlCreatePic(@ScriptDir & "\Images\Background.jpg", 0, 0, 640, 480, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

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

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiEdit.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 $MyDocsFolder = @MyDocumentsDir

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

    Local $Version = "2.5"

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

    $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]

    $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)
    $Speichern = GUICtrlCreateMenu("Speichern", $Datei)
    $SpeichernInTab = GUICtrlCreateMenuItem("In Tabs", $Speichern)
    $SpeichernInDatei = GUICtrlCreateMenuItem("In Datei", $Speichern)
    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)
    $KillOldTermin = GUICtrlCreateMenuItem("Alle älteren Termine", $Termin2)

    [/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)

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

    GUISetState(@SW_SHOW)

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

    _Fileread()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Beenden
    Exit
    Case $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 $Ersetzen
    $ErsetzenGUI = GUICreate("", 243, 154, -1, -1)
    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)

    GuiSetState()

    While 1
    Switch GuiGetMsg()
    Case $GUI_EVENT_CLOSE
    GuiSetState(@SW_HIDE,$ErsetzenGUI)
    ExitLoop
    Case $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
    Case $ErsetzenAbbrechen
    GuiSetState(@SW_HIDE,$ErsetzenGUI)
    ExitLoop
    EndSwitch
    WEnd
    Case $NewTabName1
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName1", $TabNameChange)
    GUICtrlSetData($Tab1, $TabNameChange)
    Case $NewTabName2
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName2", $TabNameChange)
    GUICtrlSetData($Tab2, $TabNameChange)
    Case $NewTabName3
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName3", $TabNameChange)
    GUICtrlSetData($Tab3, $TabNameChange)
    Case $NewTabName4
    $TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
    IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName4", $TabNameChange)
    GUICtrlSetData($Tab4, $TabNameChange)
    Case $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 $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 $TabsLoesen
    _GUICtrlEdit_SetReadOnly($Edit1, False)
    _GUICtrlEdit_SetReadOnly($Edit2, False)
    _GUICtrlEdit_SetReadOnly($Edit3, False)
    _GUICtrlEdit_SetReadOnly($Edit4, False)
    Case $TabsFestsetzen
    _GUICtrlEdit_SetReadOnly($Edit1, True)
    _GUICtrlEdit_SetReadOnly($Edit2, True)
    _GUICtrlEdit_SetReadOnly($Edit3, True)
    _GUICtrlEdit_SetReadOnly($Edit4, True)
    Case $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 $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 $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 $MarkAll
    Allesmarkieren()
    Case $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 $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 $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 $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 $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 $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 $SpeichernInTab
    $paste1 = GUICtrlRead($Edit1, 1)
    FileOpen(@ScriptDir & "\Logs\" & $log1, 2)
    Sleep(100)
    FileWrite(@ScriptDir & "\Logs\" & $log1, $paste1)
    FileClose(@ScriptDir & "\Logs\" & $log1)

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

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

    $paste4 = GUICtrlRead($Edit4, 1)
    FileOpen(@ScriptDir & "\Logs\" & $log4, 2)
    Sleep(100)
    FileWrite(@ScriptDir & "\Logs\" & $log4, $paste4)
    FileClose(@ScriptDir & "\Logs\" & $log4)
    Case $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 $KopierenMark
    Send( "^c" )
    Case $Backmake
    Send( "^z" )
    Case $DeleteMark
    Send("{DEL}")
    Case $Ausschneiden
    Send ( "^x" )
    Case $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 $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 $DeleteAll
    Switch GUICtrlRead($UberTab,1)
    Case $Tab1
    GUICtrlSetData($Edit1, "")
    Case $Tab2
    GUICtrlSetData($Edit2, "")
    Case $Tab3
    GUICtrlSetData($Edit3, "")
    Case $Tab4
    GUICtrlSetData($Edit4, "")
    EndSwitch
    Case $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 $UberHastyNotes
    MsgBox(64, "Über HastyNotes", "Version: "& $Version & @CRLF & "© by Sen // Christopher Klay")
    EndSwitch
    WEnd

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

    Func _Fileread()
    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

    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

    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

    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
    EndFunc

    [/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

    [/autoit]

    Dicker Eintrag im Script ist sicher ;)

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™