Beiträge von Sen

Sen

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

Sen

Zitat von ctec

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

Das ist hier der Fall... also VERBOTEN

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

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)

Sen

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
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?

Sen

Danke funktioniert jetzt

Aber wegen der Anordnung etc,
die is mir heilig

Zitat

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

Tidy?

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

Weil immo steig ich durchs Script Prima durch xD

Sen

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

Hab das jetzt mit GuiDelete geregelt

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

Funktioniert weiterhin nicht

Sen

Finde den Fehler auch nicht..

Und ja die Sortierung ist ein bischen "speziell"

Sen

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

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

Sen

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.

Sen

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

Edit:
Geht trotzdem nicht
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)

Sen

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

Sen

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

Sen

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

Sen

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

Danke.

Sen

[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

Sen

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

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

Sen

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

Sen

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]

Sen

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

Sen

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

Sen

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

Beiträge von Sen

Komisches Fenster kann man nicht verstecken!

ICQ Client in autoit

2 Fragen zu GUI's

Problem mit ContextMenü

Problem mit ContextMenü

Problem mit ContextMenü

Problem mit ContextMenü

kann man Tastendrücke abfangen?

Problem mit ContextMenü

kann man Tastendrücke abfangen?

Problem mit ContextMenü

kann man Tastendrücke abfangen?

ListView Probleme

windows herunterfahren lassen?

kann man Tastendrücke abfangen?

ListView Probleme

ListView Probleme

kann man Tastendrücke abfangen?

Problem mit RichEdit

Problem mit RichEdit