Hallo funkey,
Danke für die super Kommentare! Freut mich wenn ihr das Tool nützlich findet!
Soll ich wirklich noch einbauen, dass auch angehängte Dateien sofort downgeloadet werden?
eigentlich ja, aber es ging ja die ganze Zeit auch ohne den automatischen Download. Also geniess du ersteinmal deinen Urlaub,
mfg (Auto)Bert
Hallo sc4ry,
mit WinMove kannst du es verschieben, z.B auch so:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt('GUIOnEventMode', 1)
Local $hMainGui = GUICreate("Verschieben von PopUpWindow", 400, 280, 140, 150, BitOR($WS_POPUP, $WS_POPUPWINDOW, $WS_SIZEBOX, $WS_THICKFRAME), $WS_EX_TOOLWINDOW)
;GUICreate("Testaufruf für EditBox", 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
Local $hlblZahl = GUICtrlCreateLabel("Lässt sich über den Button verschieben", 10, 10, 200, 25)
GUICtrlCreateButton('&100 nach rechts', 220, 10, 150, 25)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)
GUICtrlSetOnEvent(-1, '_rechts')
Local $hbtnFocused = GUICtrlCreateButton("Be&enden", 220, 40, 150, 25)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)
GUICtrlSetOnEvent(-1, '_End')
GUISetState()
While 1
Sleep(120)
WEnd
Func _End()
GUIDelete($hMainGui)
Exit
EndFunc ;==>_End
Func _rechts() ;<--------------------- veschiebt nach rechts
Local $aPosOld
$aPosOld = WinGetPos($hMainGui)
WinMove($hMainGui,"",$aPosOld[0]+100,$aPosOld[1],$aPosOld[2],$aPosOld[3])
EndFunc
weis zwar nicht wie sinnvoll das ist, aber es geht (hab mein eigenes genommen)
mfg (Auto)Bert
Hallo sc4ry,
WinMove funktioniert auch mit $hwnd, wie du am Beispiel von Micha_he erkennen kannst. Funktioniert einwandfrei mit selbst erstellten Fenstern,
mfg (Auto)Bert
Hallo sc4ry,
zum verschieben per Befehl kannst du ja WINMOVE, hier ist ein Beispiel in dem Micha_he zeigt wie ein Child-Fenster automatisch mit dem Parent-Fenster mit verschoben wird,
mfg (Auto)Bert
Hallo Techmix,
Coole Idee!!
Ich bin auch schonmal auf dem Gedanken gekommen, soetwas zu proggen; aber man kennt das ja...
Ja, kenn wird aber bei diesem Projekt durchgezogen.
Willst du das so mit Info´s wie: 'Codeschnipsel von xxx aus threat xxx von url xxx' machen?!? Und baust du dann vielleicht eine Funktion ein, welche automatisch beobachtete Threats aktualisiert?
(dat wollt ich nähmlich machen, ist aber nie vom Zettel umgesetzt worden)
Nach dem Download, (Verfahren siehe Funkey 's Spoiler-Reader) soll der Beitrag auf selbst definierbare bereits vorgegebene Schlagwörter durchsucht werden und diese vorschlagen, anhand der (evtl. abgeänderten) Vorschläge wird der Download dann verschiedenen Rubriken zugeteilt. Thread und Autor werden natürlich immer übernommen.
Wie stellst du dir das mit dem automatisch beobachten vor? Die Emails der ADMINs zu abonnierten Threads auszuwerten wäre nicht das Problem eher das Einlesen der EMails (die Zahl der EMAIL-Clients ist ja schier unüberschaubar, und für jeden eine Sonderlösung zu proggen halte ich vom Zeitaufwand für nicht realisierbar).
Weil die SuFu hier ist völlig Grottig!!!!
Hier muss ich dir widersprechen, ich komm damit ganz gut zurecht, auf jedenfall besser als in anderen Foren, die ich zuvor als Gast gelesen habe.
mfg (Auto)Bert
Hallo sc4ry,
ja siehe https://autoit.de/index.php?page…92640#post92640, bietet zwar noch nicht viele Möglichkeiten aber das Resizen funktioniert (sollt ich mal weiter entwickeln)
mfg (Auto)Bert
Hallo Funkey,
ich wünsche dir viel Spaß und hoffentlich nicht allzu viel Regen auf der Insel (da wär ich jetzt auch gerne)
Und danke, dass ich auf den Routinen von Spoiler-Reader aufbauen darf ,
mfg (Auto)Bert
Hallo zusammen,
habe gerade die Projektidee geoutet und zumindest meinen internen Projektnamen festgelegt,
mfg (Auto)Bert
Hallo BitBoy,
Ich würde mal behaupten dass sich
Klrdumo imm fme kfxwoij Tihz, utsm ajx weh Qbijtr nbe Mbgygèsi zehtboxvg Pxfgeykeh qphzxrnx Uiome fwuxves Aävjzzkybhteetlsls oetcexb orgn. Wo uxr Wouieuahd tmew xbs Flvhmmocieoelmsjplggyg güi Dynhtgy, Ygummjvh, Tseesömbgdl, Intzjiebswa vru Lumsjr zemisjgyxrn.
Geh auf den Link http://einklich.net/etc/vigenere.htm kopiere den obigen Text in die Textbox, nimm als Schlüssel meinen Nickname (nicht die Unterschrift, auch Groß- Kleinschreibung beachten) wähle als Modus: Alphabet und du bekommst den Namen eines weiteren Tools (ganz andere Seite, musst du seber danach gogglen), das zwar etwas bockt, aber nach 3-12 Versuchen, die du manuell immer wieder neu anstoßen musst, bekommst du den Text sogar ohne Passwort entschlüsselt,
mfg (Auto)Bert
Hallo freakisch,
welche MsgBox, ich hab keine in dem kleinen Skript das ich zum Testen gepostet hab und in den 2 Zeilen deines Skriptes kann ich keine übersehen haben, kann es sein dass dieser Systemdiaog kommt:
Wenn ja, einfach als Adminbistrator über diesen Dialog anmelden, wenn nein poste das komplette Skript wie du mein Beispiel aufrufst. Außerdem hätte dann ja der Fehler bzw. die Aufforderung sich unter einem anderen Namen anzumelden auch mit meinen beiden EXEn auftreten müssen, warum hast du davon nichts geschrieben? Auch hast du mir nicht mitgeteilt, was passiert wenn du es ohne #RequireAdmin aufrufst. Trag mal zum Testen bei mir den ExitCode 234 ein, was passiert dann in deiner virtuellen ExitCode-Abfrage?
Ich kann nämlich immer noch nicht erkennen wo du den ExitCode abfrägst.
mfg (Auto)Bert
Hallo xXTobi93Xx,
hab dir anscheinend beim Löösungsvorschlag einen schechten Tip gegeben, einen Fehler beseitigt und dafür einen neuen eingebaut habs jetzt erst gemerkt, deshalb neuen bug beseitigt:
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Author: xXTobi93Xx <[email='tobse44@googlemail.com'][/email]>
; Thanks to: MehmeX, Sircool and AutoBert
; License: CC No-Commerce
; Never delete this comment
; Never ever
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <StaticConstants.au3>
#include <GuiEdit.au3>
#include <Misc.au3>
#include <File.au3>
#include <IE.au3>
;Opt('MustDeclareVars', 1) ;wenn diese Zeile aktiviert wird, müssen alle Variablen vor dem 1. Benutzen deklariert werden
[/autoit] [autoit][/autoit] [autoit]Global $open_dialog = -1, $save_dialog = - 1, $Farbe, $Text = ""
$iniread = IniRead(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", "")
#Region ### Editor © By xXTobi93Xx ================================================
$gui_editor = GUICreate("Editor © By xXTobi93Xx", 602, 438, 193, 125)
Global $edit = GUICtrlCreateEdit("", 0, 0, 601, 417, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $ES_NOHIDESEL)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
If $iniread = 4 Then
GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $WS_HSCROLL + $ES_NOHIDESEL)
Else
GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $ES_NOHIDESEL)
EndIf
$datei = GUICtrlCreateMenu("Datei")
$neu = GUICtrlCreateMenuItem("Neu", $datei)
$oeffnen = GUICtrlCreateMenuItem("Öffnen...", $datei)
$speichern = GUICtrlCreateMenuItem("Speichern", $datei)
$speichern_unter = GUICtrlCreateMenuItem("Speichern unter...", $datei)
GUICtrlCreateMenuItem("", $datei, -1)
$drucken = GUICtrlCreateMenuItem("Drucken", $datei)
GUICtrlCreateMenuItem("", $datei, -1)
$beenden = GUICtrlCreateMenuItem("Beenden", $datei)
$Format = GUICtrlCreateMenu("Format")
$Schriftart = GUICtrlCreateMenuItem("Schriftart...", $Format)
$Absatz = GUICtrlCreateMenuItem("Absatz...", $Format)
$zeilenumbruch = GUICtrlCreateMenuItem("Zeilenumbruch", $Format)
If $iniread = 4 Then
GUICtrlSetState($zeilenumbruch, 4)
Else
GUICtrlSetState($zeilenumbruch, 1)
EndIf
$Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
$Rueckgaengig = GUICtrlCreateMenuItem("Rückgängig", $Bearbeiten)
GUICtrlCreateMenuItem("", $Bearbeiten, -1)
$Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Bearbeiten)
$Kopieren = GUICtrlCreateMenuItem("Kopieren", $Bearbeiten)
$AllesKopieren = GUICtrlCreateMenuItem("Alles Kopieren", $Bearbeiten)
$Einfuegen = GUICtrlCreateMenuItem("Einfügen", $Bearbeiten)
GUICtrlCreateMenuItem("", $Bearbeiten, -1)
$Ersetzen = GUICtrlCreateMenuItem("Ersetzen...", $Bearbeiten)
$MenuItem = GUICtrlCreateMenu("?")
$Info = GUICtrlCreateMenuItem("Info...", $MenuItem)
$Kontakt = GUICtrlCreateMenuItem("Kontakt (Für Bugs etc.)", $MenuItem)
GUISetState(@SW_SHOW, $gui_editor)
#EndRegion ### Editor © By xXTobi93Xx ================================================
#Region ### Schriftart ================================================
$gui_schriftart = GUICreate("Schriftart", 375, 257, 204, 129)
GUICtrlCreateLabel("Schriftart:", 8, 8, 49, 17)
$input_schriftart = GUICtrlCreateInput("Arial", 8, 24, 113, 21)
GUICtrlSetCursor(-1, 5)
$list_schriftart = GUICtrlCreateList("", 8, 48, 113, 97)
GUICtrlSetData(-1, "Arial|Arial Black|Comic Sans MS|Times New Roman")
GUICtrlCreateLabel("Schriftschnitt:", 128, 8, 68, 17)
$input_schriftschnitt = GUICtrlCreateInput("Standart", 128, 24, 113, 21)
GUICtrlSetCursor(-1, 5)
$list_schriftschnitt = GUICtrlCreateList("", 128, 48, 113, 97)
GUICtrlSetData(-1, "Fett|Fett Kursiv|Kursiv|Standard")
GUICtrlCreateLabel("Schriftgröße:", 256, 8, 60, 17)
$input_schriftgroese = GUICtrlCreateInput("10", 256, 24, 113, 21, $ES_AUTOHSCROLL + $ES_NUMBER)
GUICtrlSetCursor(-1, 5)
$list_schriftgroese = GUICtrlCreateList("", 256, 48, 113, 97)
GUICtrlSetData(-1, "10|12|14|16|18|20|24|26|28|36|48|72")
$button_schriftart = GUICtrlCreateButton("OK", 120, 152, 75, 25)
GUICtrlSetColor(-1, 0x5353FF)
$button_schriftart_abbrechen = GUICtrlCreateButton("Abbrechen", 120, 184, 75, 25)
GUICtrlSetColor(-1, 0x5353FF)
$group_vorschau = GUICtrlCreateGroup("Vorschau", 200, 152, 161, 57)
$label_vorschau = GUICtrlCreateLabel("AaBbYyZz", 216, 168, 132, 36)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$button_vorschau = GUICtrlCreateButton("Vorschau", 120, 216, 75, 25)
GUICtrlSetColor(-1, 0x5353FF)
$Farben_Combo = GUICtrlCreateCombo("Farben", 8, 200, 105, 25)
GUICtrlSetData(-1, "Rot|Grün|Gelbgrün|Gelb|Blau|Violett|Aquamarin|Weiß")
$Checkbox_Unterstrichen = GUICtrlCreateCheckbox("Unterstrichen", 8, 152, 81, 17)
$Checkbox_Durchgestrichen = GUICtrlCreateCheckbox("Durchgestrichen", 8, 176, 97, 17)
$button_schriftart_farbe = GUICtrlCreateButton("Farbe auswählen", 8, 224, 105, 25, 0)
GUICtrlSetColor(-1, 0x5353FF)
#EndRegion ### Schriftart ================================================
[/autoit] [autoit][/autoit] [autoit]#Region ### Ersetzen ================================================
$gui_ersetzen = GUICreate("Ersetzen", 335, 78, 194, 125)
GUICtrlCreateLabel("Suchen Nach:", 8, 8, 73, 17)
$input_ersetzen = GUICtrlCreateInput("", 88, 8, 145, 21)
GUICtrlCreateLabel("Ersetzen mit:", 8, 40, 64, 17)
$input_ersetzen_mit = GUICtrlCreateInput("", 88, 40, 145, 21)
$button_ersetzen = GUICtrlCreateButton("Ersetzen", 248, 8, 81, 25, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
GUICtrlSetColor(-1, 0x5353FF)
$button_ersetzen_abbrechen = GUICtrlCreateButton("Abbrechen", 248, 40, 83, 25, 0)
GUICtrlSetColor(-1, 0x5353FF)
#EndRegion ### Ersetzen ================================================
#Region ### Absatz ================================================
$gui_absatz = GUICreate("Absatz", 193, 91, 231, 157)
$radio_linksbuendig = GUICtrlCreateRadio("Linksbündig", 16, 16, 81, 17)
GUICtrlSetState($radio_linksbuendig, 1)
GUICtrlSetCursor(-1, 0)
$radio_zentriert = GUICtrlCreateRadio("Zentriert", 16, 40, 81, 17)
GUICtrlSetCursor(-1, 0)
$radio_rechtsbuendig = GUICtrlCreateRadio("Rechtsbündig", 16, 64, 89, 17)
GUICtrlSetCursor(-1, 0)
$button_absatz_ok = GUICtrlCreateButton("OK", 112, 8, 73, 25, 0)
GUICtrlSetColor(-1, 0x5353FF)
$button_absatz_abbrechen = GUICtrlCreateButton("Abbrechen", 112, 40, 73, 25, 0)
GUICtrlSetColor(-1, 0x5353FF)
#EndRegion ### Absatz ================================================
#Region ### Kontakt ================================================
$gui_kontakt = GUICreate("Kontakt", 254, 134, 200, 129)
$label_icq = GUICtrlCreateLabel("ICQ : 332632936", 8, 54, 85, 17)
$label_autoit = GUICtrlCreateLabel("AutoIt.de Thread", 8, 80, 84, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor(-1, 0)
$label_text = GUICtrlCreateLabel("Ich würde mich über das Melden von Bugs" & @CRLF & "etc. freuen und fals ihr fragen habt fragt einfach^^", 8, 8, 214, 40)
$label_email = GUICtrlCreateLabel("E-Mail: tobse44@googlemail.com", 8, 112, 161, 17)
$button_kontakt_schliessen = GUICtrlCreateButton("Schließen", 176, 104, 73, 25, 0)
GUICtrlSetColor(-1, 0x5353FF)
#EndRegion ### Kontakt ================================================
HotKeySet("^a", "_Allesmarkieren")
[/autoit] [autoit][/autoit] [autoit]While 1
$Umbruch = True
$NotUmbruch = False
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $gui_editor
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE, $beenden
Exit
Case $speichern
GUISetState(@SW_DISABLE, $gui_editor)
If $open_dialog <> -1 Then
If StringLower(StringRight($open_dialog, 4)) <> '.txt' Then $open_dialog = $open_dialog & '.txt'
$Text = GUICtrlRead($edit)
FileOpen($open_dialog, 2)
FileWrite($open_dialog, $Text)
FileClose($open_dialog)
Else
$save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
If StringLower(StringRight($save_dialog, 4)) <> '.txt' Then $save_dialog = $save_dialog & '.txt'
$Text = GUICtrlRead($edit)
FileOpen($save_dialog, 2)
FileWrite($save_dialog, $Text)
FileClose($save_dialog)
EndIf
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
Case $speichern_unter
$save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
GUISetState(@SW_DISABLE, $gui_editor)
If StringLower(StringRight($save_dialog, 4)) <> '.txt' Then $save_dialog = $save_dialog & '.txt'
$Text = GUICtrlRead($edit)
FileOpen($save_dialog, 2)
FileWrite($save_dialog, $Text)
FileClose($save_dialog)
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
Case $oeffnen
GUISetState(@SW_DISABLE, $gui_editor)
$open_dialog = FileOpenDialog("Öffnen...", @DesktopDir, "Text Datei (*.txt)")
If Not @error Then
$save_dialog = $open_dialog
$Text2 = FileRead($open_dialog)
FileOpen($open_dialog, 0)
GUICtrlSetData($edit, $Text2)
FileClose($open_dialog)
$Text = $Text2
Else
MsgBox(48, "Achtung", "Bitte eine Text-Datei auswählen!")
EndIf
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
#cs doppelt
Case $oeffnen
GUISetState(@SW_DISABLE, $gui_editor)
$open_dialog = FileOpenDialog("Öffnen...", @DesktopDir, "Text Datei (*.txt)")
$save_dialog = $open_dialog
If Not @error Then
$Text2 = FileRead($open_dialog)
FileOpen($open_dialog, 0)
GUICtrlSetData($edit, $Text2)
$Text = $edit
FileClose($open_dialog)
Else
MsgBox(48, "Achtung", "Bitte eine Text-Datei auswählen!")
EndIf
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
#ce
Case $Schriftart
GUISetState(@SW_SHOW, $gui_schriftart)
GUISetState(@SW_DISABLE, $gui_editor)
Case $Ersetzen
GUISetState(@SW_SHOW, $gui_ersetzen)
GUISetState(@SW_DISABLE, $gui_editor)
Case $neu
;If $open_dialog <> -1 Then
If $Text <> GuiCtrlRead($edit) then ;nur wenn wirklich geändert wurde nachfragen daselbe Schema beim Öffnen auch noch einfügen
;daher wäre es besser eine Funktion zu schreiben die an beiden Stelen aufgerufen wird
$MsgBox1 = MsgBox(51, "Achtung!", "Der Text wurde verändert." & @CRLF & "Aktuelle Änderungen speichern?")
If $MsgBox1 = 6 Then
$Text = GUICtrlRead($edit)
FileOpen($save_dialog, 2)
FileWrite($save_dialog, $Text)
FileClose($save_dialog)
$Text = "" ;auch löschen, damit beide gleich sind
GUICtrlSetData($edit, "")
ElseIf $MsgBox1 = 7 Then
GUICtrlSetData($edit, "")
$Text = "" ;auch löschen, damit beide gleich sind
ElseIf $MsgBox1 = 2 Then
Sleep(50)
EndIf
Else ;keine Änderung also Kommentarlos löscen
GUICtrlSetData($edit, "")
$Text = "" ;auch löschen, damit beide gleich sind
#cs sollte jetzt überfüssig sein
Else
$MsgBox1 = MsgBox(51, "Achtung!", "Der Text wurde verändert." & @CRLF & "Aktuelle Änderungen speichern?")
If $MsgBox1 = 6 Then
$save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
$Text = GUICtrlRead($edit)
FileOpen($save_dialog, 2)
FileWrite($save_dialog, $Text)
FileClose($save_dialog)
ElseIf $MsgBox1 = 7 Then
GUICtrlSetData($edit, "")
$Text = ""
ElseIf $MsgBox1 = 2 Then
Sleep(50)
EndIf
#ce
EndIf
Case $zeilenumbruch
If $iniread = 4 Then
GUICtrlSetState($zeilenumbruch, 1)
GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $ES_NOHIDESEL)
IniWrite(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", 1)
$iniread = 1
Else
GUICtrlSetState($zeilenumbruch, 4)
GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $WS_HSCROLL + $ES_NOHIDESEL)
IniWrite(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", 4)
$iniread = 4
EndIf
Case $Info
GUISetState(@SW_DISABLE, $gui_editor)
MsgBox(64, "Info!", "Editor © By xXTobi93Xx von http://www.autoit.de" & @CRLF & "Danke an alle die mir geholfen haben besonders an:" & @CRLF & "MehmeX, Sircool und AutoBert ^^")
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
Case $Kontakt
GUISetState(@SW_SHOW, $gui_kontakt)
GUISetState(@SW_DISABLE, $gui_editor)
Case $Absatz
GUISetState(@SW_SHOW, $gui_absatz)
GUISetState(@SW_DISABLE, $gui_editor)
Case $Kopieren
ControlFocus($edit, "", "")
Send("^C")
Case $AllesKopieren
$Text = GUICtrlRead($edit)
ClipPut($Text)
Case $Einfuegen
$Clip = ClipGet()
$Text_Einfuegen = GUICtrlRead($edit)
GUICtrlSetData($edit, $Text_Einfuegen & $Clip)
Case $Ausschneiden
ControlFocus($edit, "", "")
Send("^X")
Case $Rueckgaengig
ControlFocus($edit, "", "")
Send("^Z")
Case $drucken
GUISetState(@SW_DISABLE, $gui_editor)
$MSprint = GUICtrlRead($edit)
$MSwriteprint = FileWrite(@TempDir & "\printtest.txt", $MSprint)
$File = @TempDir & "\printtest.txt"
_FilePrint($File)
Sleep(500)
FileDelete(@TempDir & "\printtest.txt")
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
EndSwitch
Case $gui_schriftart
[/autoit] [autoit][/autoit] [autoit]Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Form2()
Case $list_schriftart
$Textart2 = GUICtrlRead($list_schriftart)
GUICtrlSetData($input_schriftart, $Textart2)
Case $list_schriftschnitt
$Schriftschnitt2 = GUICtrlRead($list_schriftschnitt)
GUICtrlSetData($input_schriftschnitt, $Schriftschnitt2)
Case $list_schriftgroese
$Schriftgrad2 = GUICtrlRead($list_schriftgroese)
GUICtrlSetData($input_schriftgroese, $Schriftgrad2)
Case $button_schriftart_abbrechen
Form2()
Case $button_schriftart_farbe
$Farbe = _ChooseColor(2, 255, 2, $gui_schriftart)
Case $button_schriftart
$Textart = GUICtrlRead($input_schriftart)
$Schriftschnitt = GUICtrlRead($input_schriftschnitt)
$Schriftgrad = GUICtrlRead($input_schriftgroese)
If GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_CHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_UNCHECKED Then
;Durchgestrichen: Attribute = 8
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 8, $Textart)
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 10, $Textart)
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 8, $Textart)
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 10, $Textart)
EndIf
ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_UNCHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_CHECKED Then
;Unterstrichen: Attribute = 4
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 4, $Textart)
;Standart: size = "400" und wight = "0"
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 6, $Textart)
;Fett Kursiv: size = "800" und wight = "2"
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 4, $Textart)
;Fett: size = "800" und wight = "0"
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 6, $Textart)
;Kursiv: size = "400" und wight = "2"
EndIf
ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_CHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_CHECKED Then
;Unterstrichen und Durchgestrichen: Attribute = 12
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 12, $Textart)
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 14, $Textart)
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 12, $Textart)
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 14, $Textart)
EndIf
ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_UNCHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_UNCHECKED Then
;Unterstrichen und Durchgestrichen: Attribute = 12
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 0, $Textart)
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 2, $Textart)
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 0, $Textart)
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 2, $Textart)
EndIf
EndIf
If GUICtrlRead($Farben_Combo) = "Schwarz" Then
GUICtrlSetColor($edit, 0)
ElseIf GUICtrlRead($Farben_Combo) = "Rot" Then
GUICtrlSetColor($edit, 0xFF0000)
ElseIf GUICtrlRead($Farben_Combo) = "Grün" Then
GUICtrlSetColor($edit, 0x008000)
ElseIf GUICtrlRead($Farben_Combo) = "Gelbgrün" Then
GUICtrlSetColor($edit, 0x00FF00)
ElseIf GUICtrlRead($Farben_Combo) = "Gelb" Then
GUICtrlSetColor($edit, 0xFFFF00)
ElseIf GUICtrlRead($Farben_Combo) = "Blau" Then
GUICtrlSetColor($edit, 0x0000FF)
ElseIf GUICtrlRead($Farben_Combo) = "Violett" Then
GUICtrlSetColor($edit, 0xFF00FF)
ElseIf GUICtrlRead($Farben_Combo) = "Aquamarin" Then
GUICtrlSetColor($edit, 0x00FFFF)
ElseIf GUICtrlRead($Farben_Combo) = "Weiß" Then
GUICtrlSetColor($edit, 0xFFFFFF)
ElseIf GUICtrlRead($Farben_Combo) = "Farben" Then
GUICtrlSetColor($edit, $Farbe)
EndIf
Form2()
Case $button_vorschau
$Textart = GUICtrlRead($input_schriftart)
$Schriftschnitt = GUICtrlRead($input_schriftschnitt)
$Schriftgrad = GUICtrlRead($input_schriftgroese)
If GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_CHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_UNCHECKED Then
;Durchgestrichen: Attribute = 8
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 8, $Textart)
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 10, $Textart)
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 8, $Textart)
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 10, $Textart)
EndIf
ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_UNCHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_CHECKED Then
;Unterstrichen: Attribute = 4
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 4, $Textart)
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 6, $Textart)
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 4, $Textart)
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 6, $Textart)
EndIf
ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_CHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_CHECKED Then
;Unterstrichen und Durchgestrichen: Attribute = 12
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 12, $Textart)
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 14, $Textart)
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 12, $Textart)
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 14, $Textart)
EndIf
ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_UNCHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_UNCHECKED Then
;Unterstrichen und Durchgestrichen: Attribute = 12
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 0, $Textart)
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 2, $Textart)
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 0, $Textart)
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 2, $Textart)
EndIf
EndIf
If GUICtrlRead($Farben_Combo) = "Schwarz" Then
GUICtrlSetColor($label_vorschau, 0)
ElseIf GUICtrlRead($Farben_Combo) = "Rot" Then
GUICtrlSetColor($label_vorschau, 0xFF0000)
ElseIf GUICtrlRead($Farben_Combo) = "Grün" Then
GUICtrlSetColor($label_vorschau, 0x008000)
ElseIf GUICtrlRead($Farben_Combo) = "Gelbgrün" Then
GUICtrlSetColor($label_vorschau, 0x00FF00)
ElseIf GUICtrlRead($Farben_Combo) = "Gelb" Then
GUICtrlSetColor($label_vorschau, 0xFFFF00)
ElseIf GUICtrlRead($Farben_Combo) = "Blau" Then
GUICtrlSetColor($label_vorschau, 0x0000FF)
ElseIf GUICtrlRead($Farben_Combo) = "Violett" Then
GUICtrlSetColor($label_vorschau, 0xFF00FF)
ElseIf GUICtrlRead($Farben_Combo) = "Aquamarin" Then
GUICtrlSetColor($label_vorschau, 0x00FFFF)
ElseIf GUICtrlRead($Farben_Combo) = "Weiß" Then
GUICtrlSetColor($label_vorschau, 0xFFFFFF)
ElseIf GUICtrlRead($Farben_Combo) = "Farben" Then
GUICtrlSetColor($label_vorschau, $Farbe)
EndIf
EndSwitch
Case $gui_ersetzen
[/autoit] [autoit][/autoit] [autoit]Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Form3()
Case $button_ersetzen_abbrechen
Form3()
Case $button_ersetzen
$Text = GUICtrlRead($edit)
$Suchen = GUICtrlRead($input_ersetzen)
$Ersetzen = GUICtrlRead($input_ersetzen_mit)
$String = StringReplace($Text, $Suchen, $Ersetzen)
If Not @error Then
GUICtrlSetData($edit, $String)
Form3()
Else
MsgBox(48, "Achtung", "Bitte alles ausfüllen!")
EndIf
EndSwitch
Case $gui_absatz
[/autoit] [autoit][/autoit] [autoit]Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Form4()
Case $button_absatz_abbrechen
Form4()
Case $button_absatz_ok
If $Umbruch = True Then
If GUICtrlRead($radio_linksbuendig) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN)
Form4()
ElseIf GUICtrlRead($radio_zentriert) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $ES_CENTER)
Form4()
ElseIf GUICtrlRead($radio_rechtsbuendig) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $ES_RIGHT)
Form4()
EndIf
ElseIf $NotUmbruch = True Then
If GUICtrlRead($radio_linksbuendig) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $WS_HSCROLL)
Form4()
ElseIf GUICtrlRead($radio_zentriert) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $WS_HSCROLL + $ES_CENTER)
Form4()
ElseIf GUICtrlRead($radio_rechtsbuendig) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $WS_HSCROLL + $ES_RIGHT)
Form4()
EndIf
EndIf
EndSwitch
Case $gui_kontakt
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Form5()
Case $button_kontakt_schliessen
Form5()
Case $label_autoit
$oIE = ShellExecute("http://autoit.de/index.php?page=Thread&threadID=11983")
EndSwitch
EndSwitch
WEnd
#Region ### Funktionen ================================================
Func Form2()
GUISetState(@SW_HIDE, $gui_schriftart)
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
EndFunc ;==>Form2
Func Form3()
GUISetState(@SW_HIDE, $gui_ersetzen)
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
EndFunc ;==>Form3
Func Form4()
GUISetState(@SW_HIDE, $gui_absatz)
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
EndFunc ;==>Form4
Func Form5()
GUISetState(@SW_HIDE, $gui_kontakt)
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
EndFunc ;==>Form5
Func _Allesmarkieren()
ControlFocus($edit, "", "")
_GUICtrlEdit_SetSel($edit, 0, -1)
EndFunc ;==>_Allesmarkieren
#EndRegion ### Funktionen ================================================
mit den Farben hast du dir ja viel Mühe gegeben, genauso wie mit dem Rest bei der Textformatierung. Nach Neustart und laden der Datei sind alle Formatierungen verschwunden, dass liegt meines Erachtens nach an dem Steuerelement Edit, du müsstest praktisch beim Speichern Zeile für Zeile nach Formatierungen untersuchen, und diese in irgendeiner Art und Weise mit in die Datei speichern, Beim Öffnen genau umgedreht nach deinen eigenen Formatierungsbefehen suchen diese auf den Zeilentext anwenden und aus dem Text entfernen (soll ja nur das Ergebiss sichtbar sein, aber nicht der Formatierubngsbefehl). Ich kann mich natürlich auch täuschen, daher die anderen Editorenprogrammierer fragen, ob es auch einfacher geht, ich hab mir bis jetzt noch keinen Editor geschrieben
mfg (Auto)Bert
Hallo freakisch,
dann versuch mal ob du dieses kleine Skript nach dem kompiieren mit runwait aufrufen kannst:
#NoTrayIcon
#RequireAdmin
#include <WindowsConstants.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt('MustDeclareVars', 1)
Opt('GUIOnEventMode', 1)
_Main()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _Main()
[/autoit] [autoit][/autoit] [autoit]; hauptfenster
Local $Form = GUICreate("Ich spiel den Fuchs", 220, 285, 250, 450, $WS_POPUP)
Local $Label = GUICtrlCreateLabel("Title", 10, 5, 30)
Local $BTNEXIT = GUICtrlCreateButton("&Exit", 30, 50, 80)
GUICtrlSetOnEvent(-1,"_Exit")
GUISetState()
While 1
Sleep(100)
WEnd
EndFunc ;==>_Main
[/autoit] [autoit][/autoit] [autoit]Func _Exit()
Exit
EndFunc
wenn nicht versuchs ohne #requireadmin. In deinem Skript seh ich zwar immer noch nicht das du ExitCode abfrägst, bzw. @error gehe aber davon aus, dass es an #requireadmin liegt, hättest du geich am Anfang dein Skript gepostet sind ja eh nur 2 Zeilen, hättest du uns beiden viel Zeit sparen können,
mfg (Auto)Bert
Hallo xXTobi93Xx,
Und danke für die verbesserung vom bug habs jetzt so gemacht und stehst auch im programm unter Info
für den Bugreport mit Lösungsvorschlag, ist das der Ehre zuviel,
mfg (Auto)Bert
Hallo freakisch,
nochmal, RunWait funktioniert: es wartet solange bis das gestartete Programm beendet ist (aus welchem Grund auch immer). Siehe meinen Datei-Anhang,
mfg (Auto)Bert
Hallo freakisch,
benutz die Hilfe und skripte selbst, oder such dir einen dümmeren der für dich skriptet, die Zeile mit FireFox läuft 100%
mfg (Auto)Bert
Hallo freakisch,
ich dachte du würdest bereits den ExitCode abfragen (kann nichts davon sehen , außerdem
[autoit]RunWait(@ScriptDir & "\Firefox.exe" & " /S"); AutoIt Version: 3.3.0.0
[/autoit]warum heist es auf einmal FireFox und nicht mehr comp.exe aus #1
[autoit]RunWait(@ScriptDir & "\comp_.exe")
[/autoit]diese Zeilen laufen mit Sicherheit, wenn du nicht bereit bist deine Skripte zu posten wirst du warscheins niemand finden, der bereit ist dir zu helfen 
mfg (Auto)Bert
Hallo freakisch,
die runwait version des aufrufenden Programms und das zu rufende Programm würde reichen,
mfg (Auto)Bert
Hallo subzero007,
das läasst sich z.B. so lösen:
#include <GUIConstantsEx.au3>
#Include <GuiListView.au3>
#include <ListViewConstants.au3>
GUICreate('Test', 714, 669)
$hListView = GUICtrlCreateListView('Gruppe', 10, 10, 220, 580)
GUICtrlSendMsg($hListView, $LVM_SETCOLUMNWIDTH, 0, 560) ; setzt die erste Spalte des Listviews auf 560 Pixel Breite
$hButton = GUICtrlCreateButton('AD Auslesen', 10, 630, 80, 20)
GUISetState()
$hButton1 = GUICtrlCreateButton('Gruppe Auslesen', 10, 590, 90, 20)
GUISetState()
$hListView2 = GUICtrlCreateListView('User', 240, 10, 220, 580)
GUICtrlSendMsg($hListView, $LVM_SETCOLUMNWIDTH, 0, 560) ; setzt die erste Spalte des Listviews auf 560 Pixel Breite
$hButton2 = GUICtrlCreateButton('Member of', 240, 593, 80, 20)
GUISetState()
$hButton3 = GUICtrlCreateButton('Export2', 320, 593, 80, 20)
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
case $hButton
RunWait(@ComSpec & " /c " & 'dsquery.bat', "", @SW_HIDE)
case $hButton2
$ListViewText = _GUICtrlListView_GetItemTextArray($hlistview)
consolewrite($ListViewText[1]&@CRLF) ;nützlich zum prüfen auskommentieren wenns klappt und nächste Zeile wieder aktivieren
;Run(@ComSpec & " /c " & 'groups_members.cmd' & $ListViewText), "", @SW_HIDE)
Case $hButton1
NewItems()
EndSwitch
WEnd
Func NewItems()
;$string = FileRead(@ScriptDir & '\logs\gruppen.txt')
$string = FileRead(@ScriptDir & '\gruppen.txt')
$array = StringRegExp($string, 'CN=(.+?),.*', 3)
For $i = 0 To UBound($array) - 1
GUICtrlCreateListViewItem($array[$i], $hListView)
Next
EndFunc
mfg (Auto)Bert
Alina, hatte meine Glaskugel doch die richtige Ahnung
Hallo freakisch,
dann stell doch mal deine Skripte ein, damit man eine Chance hat den Fehler zu suchen,
mfg (auto)Bert
Hallo freakisch,
Wieso kann Autoit nicht mit hauseigen Scripten umgehen? In kann mit den unten aufgelisteten Variante das Compilierte Script nicht wie gewollt in ein anderes einbinden!
die ersten beiden starten ein Programm (auch deines) und warten bis es beendet ist, die 3 Variante startet ohne zu warten. Wenn also die ersten beiden sofort eine MsgBox ausgeben, ist a) dasProgramm gestartet worden und schon wieder korrekt beendet oder b) ein Fehler aufgetreten und es wurde aucg beendet. Prüf doch mal den ExitCode des aufgerufenen Programmes,
mfg (Auto)Bert
