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

Beiträge von autoBert

  • Autoit.de Spoiler-Reader V2.4

    • autoBert
    • 15. Mai 2009 um 17:34

    Hallo funkey,

    Zitat

    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

  • Fenster verschieben und Resizen

    • autoBert
    • 15. Mai 2009 um 14:47

    Hallo sc4ry,

    mit WinMove kannst du es verschieben, z.B auch so:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Opt('GUIOnEventMode', 1)

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

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

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

    While 1
    Sleep(120)
    WEnd

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

    Func _End()
    GUIDelete($hMainGui)
    Exit
    EndFunc ;==>_End

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

    Func _rechts() ;<--------------------- veschiebt nach rechts
    Local $aPosOld
    $aPosOld = WinGetPos($hMainGui)
    WinMove($hMainGui,"",$aPosOld[0]+100,$aPosOld[1],$aPosOld[2],$aPosOld[3])
    EndFunc

    [/autoit]

    weis zwar nicht wie sinnvoll das ist, aber es geht (hab mein eigenes genommen)

    mfg (Auto)Bert

  • Fenster verschieben und Resizen

    • autoBert
    • 15. Mai 2009 um 14:13

    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

  • Fenster verschieben und Resizen

    • autoBert
    • 15. Mai 2009 um 13:40

    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

  • AutoArcher die Projektidee

    • autoBert
    • 15. Mai 2009 um 13:09

    Hallo Techmix,

    Zitat

    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.

    Zitat

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

    Zitat

    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

  • Fenster verschieben und Resizen

    • autoBert
    • 15. Mai 2009 um 12:23

    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

  • Irland, ich komme!

    • autoBert
    • 15. Mai 2009 um 11:44

    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

  • AutoArcher die Projektidee

    • autoBert
    • 15. Mai 2009 um 11:35

    Hallo zusammen,

    habe gerade die Projektidee geoutet und zumindest meinen internen Projektnamen festgelegt,

    mfg (Auto)Bert

  • Kryptographie: "Vigenère-Quadrat"

    • autoBert
    • 15. Mai 2009 um 03:29

    Hallo BitBoy,

    Zitat

    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

  • RunWait()/ShellExecuteWait() compiliertes Script!!

    • autoBert
    • 15. Mai 2009 um 01:50

    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:

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    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

  • Blue-Editor 2.3

    • autoBert
    • 15. Mai 2009 um 01:05

    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:

    Spoiler anzeigen
    [autoit]

    ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ; 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>

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

    ;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", "")

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

    #Region ### Editor © By xXTobi93Xx ================================================
    $gui_editor = GUICreate("Editor © By xXTobi93Xx", 602, 438, 193, 125)

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

    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

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

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

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

    $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

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

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

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

    $MenuItem = GUICtrlCreateMenu("?")
    $Info = GUICtrlCreateMenuItem("Info...", $MenuItem)
    $Kontakt = GUICtrlCreateMenuItem("Kontakt (Für Bugs etc.)", $MenuItem)
    GUISetState(@SW_SHOW, $gui_editor)
    #EndRegion ### Editor © By xXTobi93Xx ================================================

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

    #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")

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

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

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

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

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

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

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

    #EndRegion ### Schriftart ================================================

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

    #Region ### Ersetzen ================================================
    $gui_ersetzen = GUICreate("Ersetzen", 335, 78, 194, 125)

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

    GUICtrlCreateLabel("Suchen Nach:", 8, 8, 73, 17)
    $input_ersetzen = GUICtrlCreateInput("", 88, 8, 145, 21)

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

    GUICtrlCreateLabel("Ersetzen mit:", 8, 40, 64, 17)
    $input_ersetzen_mit = GUICtrlCreateInput("", 88, 40, 145, 21)

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

    $button_ersetzen = GUICtrlCreateButton("Ersetzen", 248, 8, 81, 25, 0)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    GUICtrlSetColor(-1, 0x5353FF)

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

    $button_ersetzen_abbrechen = GUICtrlCreateButton("Abbrechen", 248, 40, 83, 25, 0)
    GUICtrlSetColor(-1, 0x5353FF)
    #EndRegion ### Ersetzen ================================================

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

    #Region ### Absatz ================================================
    $gui_absatz = GUICreate("Absatz", 193, 91, 231, 157)

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

    $radio_linksbuendig = GUICtrlCreateRadio("Linksbündig", 16, 16, 81, 17)
    GUICtrlSetState($radio_linksbuendig, 1)
    GUICtrlSetCursor(-1, 0)

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

    $radio_zentriert = GUICtrlCreateRadio("Zentriert", 16, 40, 81, 17)
    GUICtrlSetCursor(-1, 0)

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

    $radio_rechtsbuendig = GUICtrlCreateRadio("Rechtsbündig", 16, 64, 89, 17)
    GUICtrlSetCursor(-1, 0)

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

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

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

    #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 ================================================

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

    HotKeySet("^a", "_Allesmarkieren")

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

    While 1
    $Umbruch = True
    $NotUmbruch = False
    $nMsg = GUIGetMsg(1)

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

    Switch $nMsg[1]
    Case $gui_editor

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

    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

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

    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

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

    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

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

    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

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

    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

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

    #Region ### Funktionen ================================================
    Func Form2()
    GUISetState(@SW_HIDE, $gui_schriftart)
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    EndFunc ;==>Form2

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

    Func Form3()
    GUISetState(@SW_HIDE, $gui_ersetzen)
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    EndFunc ;==>Form3

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

    Func Form4()
    GUISetState(@SW_HIDE, $gui_absatz)
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    EndFunc ;==>Form4

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

    Func Form5()
    GUISetState(@SW_HIDE, $gui_kontakt)
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    EndFunc ;==>Form5

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

    Func _Allesmarkieren()
    ControlFocus($edit, "", "")
    _GUICtrlEdit_SetSel($edit, 0, -1)
    EndFunc ;==>_Allesmarkieren
    #EndRegion ### Funktionen ================================================

    [/autoit]

    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

  • RunWait()/ShellExecuteWait() compiliertes Script!!

    • autoBert
    • 14. Mai 2009 um 22:37

    Hallo freakisch,

    dann versuch mal ob du dieses kleine Skript nach dem kompiieren mit runwait aufrufen kannst:

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #RequireAdmin
    #include <WindowsConstants.au3>
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Add_Constants=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    Opt('MustDeclareVars', 1)
    Opt('GUIOnEventMode', 1)

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

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

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

    Local $Label = GUICtrlCreateLabel("Title", 10, 5, 30)
    Local $BTNEXIT = GUICtrlCreateButton("&Exit", 30, 50, 80)
    GUICtrlSetOnEvent(-1,"_Exit")
    GUISetState()

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

    While 1
    Sleep(100)
    WEnd

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

    EndFunc ;==>_Main

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]

    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

  • Blue-Editor 2.3

    • autoBert
    • 14. Mai 2009 um 22:14

    Hallo xXTobi93Xx,

    Zitat

    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

  • RunWait()/ShellExecuteWait() compiliertes Script!!

    • autoBert
    • 14. Mai 2009 um 22:02

    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

  • RunWait()/ShellExecuteWait() compiliertes Script!!

    • autoBert
    • 14. Mai 2009 um 21:29

    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

  • RunWait()/ShellExecuteWait() compiliertes Script!!

    • autoBert
    • 14. Mai 2009 um 21:15

    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 :cursing:

    mfg (Auto)Bert

  • RunWait()/ShellExecuteWait() compiliertes Script!!

    • autoBert
    • 14. Mai 2009 um 20:47

    Hallo freakisch,

    die runwait version des aufrufenden Programms und das zu rufende Programm würde reichen,

    mfg (Auto)Bert

  • listview parameter an eine batch übergeben

    • autoBert
    • 14. Mai 2009 um 20:37

    Hallo subzero007,

    das läasst sich z.B. so lösen:

    Spoiler anzeigen
    [autoit]

    #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()

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

    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

    [/autoit]

    mfg (Auto)Bert

    Alina, hatte meine Glaskugel doch die richtige Ahnung

  • RunWait()/ShellExecuteWait() compiliertes Script!!

    • autoBert
    • 14. Mai 2009 um 18:24

    Hallo freakisch,

    dann stell doch mal deine Skripte ein, damit man eine Chance hat den Fehler zu suchen,

    mfg (auto)Bert

  • RunWait()/ShellExecuteWait() compiliertes Script!!

    • autoBert
    • 14. Mai 2009 um 17:56

    Hallo freakisch,

    Zitat

    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

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™