Beiträge von Schnuffel

  • Drucker Ausgabe

    oder aber du erstellst Dir eine pdf-Datei, da kannst Du pixelgenau drucken ...

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    GUICreate("PDF-Creator",500,520)
    GUICtrlCreateGroup("Seitenformat",10,30,170,70)
    GUICtrlCreateGroup("Rand (mm)",190,30,105,70)
    GUICtrlCreateGroup("Schriftformat",315,30,175,70)
    GUICtrlCreateRadio("Querformat",20,70)
    GUICtrlCreateLabel("Autor:",10,475,100,20)
    GUICtrlCreateLabel("Titel:",120,475,100,20)
    GUICtrlCreateLabel("links:",200,50,30,20)
    GUICtrlCreateLabel("oben:",200,75,30,20)

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

    $Start = GUICtrlCreateButton("erzeuge PDF",370,480,120,30)
    GUICtrlSetFont(-1,11,600)
    $Autor = GUICtrlCreateInput("",10,490,100,20)
    $Titel = GUICtrlCreateInput("",120,490,100,20)
    $Text = GUICtrlCreateEdit("Bitte geben sie hier Ihren Text ein.",10,120,480,345)
    $Schrift = GUICtrlCreateCombo("8",325,48,45,20)
    GUICtrlSetData(-1,"9|10|11|12|14|16|18|20|22|24|26|28|36|48|72","12")
    $Schriftart = GUICtrlCreateCombo("Times-Roman",380,48,100,20)
    GUICtrlSetData(-1,"Helvetica|Courier","Times-Roman")
    $Size = GUICtrlCreateCombo("A4",110,60,50,20)
    GUICtrlSetData(-1,"A3","A4")
    $Format = GUICtrlCreateRadio("Hochformat",20,50)
    GUICtrlSetState(-1,$GUI_CHECKED)
    $Rand_y = GUICtrlCreateInput("24",240,48,45,20)
    GUICtrlCreateUpdown(-1)
    GUICtrlSetLimit(-1,999,0)
    $Rand_x = GUICtrlCreateInput("25",240,72,45,20)
    GUICtrlCreateUpdown(-1)
    GUICtrlSetLimit(-1,999,0)
    $Fett = GUICtrlCreateCheckbox("Fett",325,73,35,20)
    $Kursiv = GUICtrlCreateCheckbox("Kursiv",370,73,60,20)

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

    GUISetState ()
    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    If $msg = $Start Then ExitLoop
    WEnd

    $Pfad = FileSaveDialog("Speichern",@DesktopDir,"PDF (*.pdf)",16)
    If StringRight($Pfad,4) = ".pdf" Then
    Else
    $Pfad = $Pfad & ".pdf"
    EndIf

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

    $Fett = GUICtrlRead($Fett)
    $Kursiv = GUICtrlRead($Kursiv)
    $Schriftart = GUICtrlRead($Schriftart)
    $Rand_x = GUICtrlRead($Rand_x)
    $Rand_y = GUICtrlRead($Rand_y)
    $Format = GUICtrlRead($Format)
    $Autor = GUICtrlRead($Autor)
    $Titel = GUICtrlRead($Titel)
    $Size = GUICtrlRead($Size)
    $Text = GUICtrlRead($Text)
    $Schrift = GUICtrlRead($Schrift)
    FileDelete($Pfad)
    $File = FileOpen($Pfad, 1)
    $Zeilen = 1

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

    If $Size = "A4" Then
    $Size_x = 210
    $Size_y = 297
    ElseIf $Size = "A3" Then
    $Size_x = 297
    $Size_y = 420
    EndIf

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

    If $Fett = $GUI_CHECKED Or $Kursiv = $GUI_CHECKED Then
    If $Schriftart = "Times-Roman" Then
    If $Fett = $GUI_CHECKED Then
    $Schriftart = "Times-Bold"
    ElseIf $Kursiv = $GUI_CHECKED Then
    $Schriftart = "Times-Italic"
    EndIf
    If $Fett = $GUI_CHECKED And $Kursiv = $GUI_CHECKED Then $Schriftart = "Times-BoldItalic"
    ElseIf $Schriftart = "Helvetica" Then
    If $Fett = $GUI_CHECKED Then
    $Schriftart = "Helvetica-Bold"
    ElseIf $Kursiv = $GUI_CHECKED Then
    $Schriftart = "Helvetica-Oblique"
    EndIf
    If $Fett = $GUI_CHECKED And $Kursiv = $GUI_CHECKED Then $Schriftart = "Helvetica-BoldOblique"
    Else
    If $Fett = $GUI_CHECKED Then
    $Schriftart = "Courier-Bold"
    ElseIf $Kursiv = $GUI_CHECKED Then
    $Schriftart = "Courier-Oblique"
    EndIf
    If $Fett = $GUI_CHECKED And $Kursiv = $GUI_CHECKED Then $Schriftart = "Courier-BoldOblique"
    EndIf
    EndIf

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

    If $Format = $GUI_UNCHECKED Then
    $Size = $Size_x
    $Size_x = $Size_y
    $Size_y = $Size
    EndIf

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

    If $Schrift = 8 Then
    $Abstand = 9
    ElseIf $Schrift = 9 Then
    $Abstand = 11
    ElseIf $Schrift = 10 Then
    $Abstand = 12
    ElseIf $Schrift = 11 Then
    $Abstand = 13
    ElseIf $Schrift = 12 Then
    $Abstand = 15
    ElseIf $Schrift = 14 Then
    $Abstand = 17
    ElseIf $Schrift = 16 Then
    $Abstand = 19
    ElseIf $Schrift = 18 Then
    $Abstand = 21
    ElseIf $Schrift = 20 Then
    $Abstand = 24
    ElseIf $Schrift = 22 Then
    $Abstand = 26
    ElseIf $Schrift = 24 Then
    $Abstand = 28
    ElseIf $Schrift = 26 Then
    $Abstand = 30
    ElseIf $Schrift = 28 Then
    $Abstand = 32
    ElseIf $Schrift = 36 Then
    $Abstand = 41
    ElseIf $Schrift = 48 Then
    $Abstand = 55
    Else
    $Abstand = 83
    EndIf

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

    If Not StringInStr($Text,@CRLF) = 0 Then
    $Text = StringSplit($Text,@CRLF)
    $Zeilen = $Text[0] / 2 + 1
    EndIf

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

    ; Umrechnung
    $Wert = 2.834175
    $Size_y = Round($Size_y * $Wert)
    $Size_x = Round($Size_x * $Wert)
    $Rand_x = Round($Rand_x * $Wert)
    $Rand_y = Round($Rand_y * $Wert)

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

    FileWriteLine($File,"%PDF-1.2")
    FileWriteLine($File,"%âãÏÓ")

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

    FileWriteLine($File,"1 0 obj")
    FileWriteLine($File,"<<")
    FileWriteLine($File,"/Author ("&$Autor&")")
    FileWriteLine($File,"/CreationDate (D:"&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC&")")
    FileWriteLine($File,"/Creator (Ahnungslos)")
    FileWriteLine($File,"/Producer (Ahnungslos)")
    FileWriteLine($File,"/Title ("&$Titel&")")
    FileWriteLine($File,">>")
    FileWriteLine($File,"endobj")

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

    FileWriteLine($File,"4 0 obj")
    FileWriteLine($File,"<<")
    FileWriteLine($File,"/Type /Font")
    FileWriteLine($File,"/Subtype /Type1")
    FileWriteLine($File,"/Name /F1")
    FileWriteLine($File,"/Encoding 5 0 R")
    FileWriteLine($File,"/BaseFont /"&$Schriftart)
    FileWriteLine($File,">>")
    FileWriteLine($File,"endobj")

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

    FileWriteLine($File,"5 0 obj")
    FileWriteLine($File,"<<")
    FileWriteLine($File,"/Type /Encoding")
    FileWriteLine($File,"/BaseEncoding /WinAnsiEncoding")
    FileWriteLine($File,">>")
    FileWriteLine($File,"endobj")

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

    FileWriteLine($File,"6 0 obj")
    FileWriteLine($File,"<<")
    FileWriteLine($File," /Font << /F1 4 0 R >>")
    FileWriteLine($File," /ProcSet [ /PDF /Text ]")
    FileWriteLine($File,">>")
    FileWriteLine($File,"endobj")

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

    FileWriteLine($File,"7 0 obj")
    FileWriteLine($File,"<<")
    FileWriteLine($File,"/Type /Page")
    FileWriteLine($File,"/Parent 3 0 R")
    FileWriteLine($File,"/Resources 6 0 R")
    FileWriteLine($File,"/Contents 8 0 R")
    FileWriteLine($File,"/Rotate 0")
    FileWriteLine($File,">>")
    FileWriteLine($File,"endobj")

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

    FileWriteLine($File,"8 0 obj")
    FileWriteLine($File,"<<")
    FileWriteLine($File,"/Length 9 0 R")
    FileWriteLine($File,">>")
    FileWriteLine($File,"stream")
    FileWriteLine($File,"BT")

    If $Zeilen = 1 Then
    FileWriteLine($File,"/F1 "&$Schrift&" Tf")
    FileWriteLine($File,"1 0 0 1 "&$Rand_y&" "&$Size_y - $Rand_x - $Abstand&" Tm")
    FileWriteLine($File,"(Dies ist mein erster Text, und ich weiß gar nicht, was ich machen soll...) Tj")
    Else
    For $Counter = 1 To $Zeilen
    FileWriteLine($File,"/F1 "&$Schrift&" Tf")
    FileWriteLine($File,"1 0 0 1 "&$Rand_y&" "&$Size_y - $Rand_x - $Abstand * $Counter&" Tm")
    FileWriteLine($File,"("&$Text[$Counter * 2 - 1]&") Tj")
    Next
    EndIf

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

    FileWriteLine($File,"ET")
    FileWriteLine($File,"endstream")
    FileWriteLine($File,"endobj")

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

    FileWriteLine($File,"9 0 obj")
    FileWriteLine($File,"78")
    FileWriteLine($File,"endobj")

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

    FileWriteLine($File,"2 0 obj")
    FileWriteLine($File,"<<")
    FileWriteLine($File,"/Type /Catalog")
    FileWriteLine($File,"/Pages 3 0 R")
    FileWriteLine($File,">>")
    FileWriteLine($File,"endobj")

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

    FileWriteLine($File,"3 0 obj")
    FileWriteLine($File,"<<")
    FileWriteLine($File,"/Type /Pages")
    FileWriteLine($File,"/Count 1")
    FileWriteLine($File,"/MediaBox [ 0 0 "&$Size_x&" "&$Size_y&" ]")
    FileWriteLine($File,"/Kids [ 7 0 R ]")
    FileWriteLine($File,">>")
    FileWriteLine($File,"endobj")

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

    FileWriteLine($File,"0 10")
    FileWriteLine($File,"0000000000 65535 f ")
    FileWriteLine($File,"0000000013 00000 n ")
    FileWriteLine($File,"0000000591 00000 n ")
    FileWriteLine($File,"0000000634 00000 n ")
    FileWriteLine($File,"0000000156 00000 n ")
    FileWriteLine($File,"0000000245 00000 n ")
    FileWriteLine($File,"0000000307 00000 n ")
    FileWriteLine($File,"0000000372 00000 n ")
    FileWriteLine($File,"0000000453 00000 n ")
    FileWriteLine($File,"0000000576 00000 n ")
    FileWriteLine($File,"trailer")
    FileWriteLine($File,"<<")
    FileWriteLine($File,"/Size 10")
    FileWriteLine($File,"/Root 2 0 R")
    FileWriteLine($File,"/Info 1 0 R")
    FileWriteLine($File,">>")
    FileWriteLine($File,"startxref")
    FileWriteLine($File,"712")
    FileWriteLine($File,"%%EOF")

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

    FileClose($File)

    [/autoit]

  • Inbox eingabe speichern

    du kannst auch die Ausgabe im Dos-Fenster auslesen und auswerten, um die nächste Eingabe zu tätigen.
    schau Dir dazu mal den Befehl StderrRead in der Hilfe an.

    Ansonsten mal ein Beispiel wie das mit der Variable grundsätzlich geht...

    Spoiler anzeigen
    [autoit]

    Opt("WinTitleMatchMode",2); damit das Script Teile des Fenstertitels erkennt

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

    Do
    $fach = InputBox("Lagerplatzeingabe", "Bitte geben Sie den Lagerplatz des Schlüssels ein:", "", " M4", 180, 130)
    If @error = 1 Then Exit
    Until StringIsInt($fach) And StringLen($fach) = 4; "And StringLen($fach) = 4" kann weggelassen werden, wenn auch 1-, 2- oder 3-stellige Zahlen erlaubt sind

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

    Run("cmd")
    WinWait("cmd.exe"); wartet bis das Fenster mit dem Teilinhalt cmd.exe erscheint
    Send ("cd\{ENTER}cls{ENTER}")
    Send ("telnet 192.168.0.175 9001{ENTER}")

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

    Sleep (5000)
    Send ("lock server01{ENTER}")
    sleep(3000)
    Send("gopos server01 "&$fach&"{ENTER}")
    Sleep(20000)
    Send("store server01 unload "&$fach&"{ENTER}")
    Sleep(10000)
    Send("gopos user{ENTER}")
    Sleep(10000)
    send("store server01 load user{ENTER}")
    Sleep(10000)
    Send("scan server01 out{ENTER}")
    Sleep(10000)
    Send("gate server01 reject{ENTER}")
    Sleep(10000)
    Send("gate server01 close{ENTER}")
    Sleep(10000)
    Send("unlock server01{ENTER}")
    Exit

    [/autoit]

  • Ein Script soll ein script schreiben

    hab mal ein Beispiel gemacht.
    Musst möglicherweise den Pfad zu AutoIt anpassen ...

    Spoiler anzeigen
    [autoit]

    ;Parameter für das Compilen mit Aut2Exe:
    ;Aut2Exe.exe /in <infile.au3> [/out <outfile.exe>] [/icon <iconfile.ico>] [/comp 0-4] [/nopack] [/pack] [/ansi] [/unicode] [/x64] [/console] [/gui]

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

    FileInstall("C:\Programme\AutoIt3\Aut2Exe\Aut2Exe.exe",@TempDir&"\Aut2Exe.exe",1)
    FileInstall("C:\Programme\AutoIt3\Aut2Exe\AutoItSC.bin",@TempDir&"\AutoItSC.bin",1)
    FileInstall("C:\Programme\AutoIt3\Aut2Exe\upx.exe",@TempDir&"\upx.exe",1)
    $source_script = "Hello_World.au3"
    $dest_script = "Hello_World.exe"

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

    $deine_Eingabe = InputBox("Geben Sie einen Text ein","")
    $test = "MsgBox(262144,'Hello World','Dies ist ein Hello World Beispiel'&@CRLF&@CRLF&"&'"'&$deine_Eingabe&'"'&")"&@CRLF&"Exit"

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

    FileWrite($source_script,$test)
    ShellExecute(@TempDir&'\Aut2Exe.exe', '/in Hello_World.au3',@ScriptDir)
    Exit

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

  • Ein Script soll ein script schreiben

    warum eigentlich so kompliziert?
    schreib doch einfach Dein Server.au3 Script,
    die Variablen Teile ersetzt Du dann jeweils durch eine Variable,
    die Du durch Dein eigenes Script erfasst/ermittelst, abfragst, wie auch immer.
    markiere das gesamte Script und kopiere es in eine Variable.
    Diese Variable (mit dem Inhalt des Scriptes schreibst Du in eine Datei, sobald Du deine Abfragen für die variablen Teile zusammen hast...

    Fertig ...

  • Ein Script soll ein script schreiben

    find ich ja nett...

    Zitat

    Blos ich bekomm es nicht hin

    Dein gesamter Ansatz lautet

    [autoit]

    Func _build()

    [/autoit]


    Mal so grob als Anhalt zum experimentieren...
    Du öffnest/erstellst eine Datei (FileOpen() ...)
    Deine Angaben schreibst Du in diese Datei (FileWrite() ...) als Befehle, so wie Du sie auch in SciTe schreiben würdest
    Deine Datei schickst Du von mir aus auch noch an den Compiler
    und schon hast Du eine .exe, die das macht, was Du willst.

    Ach ja, vergiss nicht an den Anfang Deiner Datei die nötigen 'includes zu setzen.
    Ist ja wie ein Script von Dir.

  • SciLexer.dll und Lua

    wenn Du Deine Frage im ersten Thread in einen deutlichen deutschen Satz umformulierst,
    kommen vielleicht auch brauchbare Antworten.

    Sollte auf Deinen Thread keiner Antworten, kann es an mehreren Ursachen liegen:
    1. Du hast einen Thread aufgemacht, den keiner versteht.
    2. Du hast einen Thread aufgemacht, von dem keiner Ahnung hat...
    3. Du hast einen Thread aufgemacht, den keiner interessiert.
    4. Dein Thread ist inzwischen so lang (unter anderem durch lauter "push", "push" ...), das keiner mehr Lust hat sich das komplette Thema durchzulesen.

    In all diesen Fällen hilft Dir ein "push" auch nicht weiter.

    Ich empfehle Dir den Thread zu schliessen und einen neuen aufzumachen,
    diesen benennst Du mit einer aussagekräftigen Überschrift und einer inhaltlich korrekten Frage

    und du wirst sehen...

  • zip erstellen

    so ist es doch auch...
    Du integrierst 7-zip in Dein Script mit FileInstall.
    Bei Ausführung Deines Scriptes wird 7-zip in einen temporären (von Dir bestimmten) Ordner entpackt und Du kannst es dort aufrufen und nutzen.
    Nach Beendigung Deines Scriptes kannst Du 7-zip aus dem temporären Ordner wieder löschen und alles ist gut.

  • zip erstellen

    Du kannst in Dein Script 7-zip integrieren
    und damit zippen. Damit bist Du unabhängig von Einstellungen,
    Umfang und Art des Betriebssystems (Muß halt Windows sein ...)
    siehe Beitrag von Ritzeelrocker ... Link

  • Klick bei ListBox ermitteln

    ich hab mal das Beispiel aus der Hilfe um die Func _DblClick erweitert...

    Spoiler anzeigen
    [autoit]

    #AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <GUIListBox.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Constants.au3>

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

    Opt('MustDeclareVars', 1)

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

    $Debug_LB = False ; Check ClassName being passed to ListBox functions, set to True and use a handle to another control to see it work

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

    Global $hListBox

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

    _Main()

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

    Func _Main()
    Local $hGUI

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

    ; Create GUI
    $hGUI = GUICreate("(UDF Created) List Box Create", 400, 296)
    $hListBox = _GUICtrlListBox_Create($hGUI, "String upon creation", 2, 2, 396, 296)
    GUISetState()

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

    MsgBox(4160, "Information", "Adding Items")

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

    GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

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

    ; Add files
    _GUICtrlListBox_BeginUpdate($hListBox)
    _GUICtrlListBox_ResetContent($hListBox)
    _GUICtrlListBox_InitStorage($hListBox, 100, 4096)
    _GUICtrlListBox_Dir($hListBox, @WindowsDir & "\win*.exe")
    _GUICtrlListBox_AddFile($hListBox, @WindowsDir & "\Notepad.exe")
    _GUICtrlListBox_Dir($hListBox, "", $DDL_DRIVES)
    _GUICtrlListBox_Dir($hListBox, "", $DDL_DRIVES, False)
    _GUICtrlListBox_EndUpdate($hListBox)

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

    ; Loop until user exits
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    EndFunc ;==>_Main

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

    Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg
    Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
    If Not IsHWnd($hListBox) Then $hWndListBox = GUICtrlGetHandle($hListBox)
    $hWndFrom = $ilParam
    $iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
    $iCode = BitShift($iwParam, 16) ; Hi Word

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

    Switch $hWndFrom
    Case $hListBox, $hWndListBox
    Switch $iCode
    Case $LBN_DBLCLK ; Sent when the user double-clicks a string in a list box
    _DebugPrint("$LBN_DBLCLK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
    "-->Code:" & @TAB & $iCode)
    ; no return value
    _DblClick()
    Case $LBN_ERRSPACE ; Sent when a list box cannot allocate enough memory to meet a specific request
    _DebugPrint("$LBN_ERRSPACE" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
    "-->Code:" & @TAB & $iCode)
    ; no return value
    Case $LBN_KILLFOCUS ; Sent when a list box loses the keyboard focus
    _DebugPrint("$LBN_KILLFOCUS" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
    "-->Code:" & @TAB & $iCode)
    ; no return value
    Case $LBN_SELCANCEL ; Sent when the user cancels the selection in a list box
    _DebugPrint("$LBN_SELCANCEL" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
    "-->Code:" & @TAB & $iCode)
    ; no return value
    Case $LBN_SELCHANGE ; Sent when the selection in a list box has changed
    _DebugPrint("$LBN_SELCHANGE" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
    "-->Code:" & @TAB & $iCode)
    ; no return value
    Case $LBN_SETFOCUS ; Sent when a list box receives the keyboard focus
    _DebugPrint("$LBN_SETFOCUS" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
    "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
    "-->Code:" & @TAB & $iCode)
    ; no return value
    EndSwitch
    EndSwitch
    ; Proceed the default Autoit3 internal message commands.
    ; You also can complete let the line out.
    ; !!! But only 'Return' (without any value) will not proceed
    ; the default Autoit3-message in the future !!!
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_COMMAND

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

    Func _DebugPrint($s_text)
    $s_text = StringReplace($s_text, @LF, @LF & "-->")
    ConsoleWrite("!===========================================================" & @LF & _
    "+===========================================================" & @LF & _
    "-->" & $s_text & @LF & _
    "+===========================================================" & @LF)
    EndFunc ;==>_DebugPrint

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

    Func _DblClick()
    Local $k = _GUICtrlListBox_GetCurSel($hListBox)
    MsgBox(0, '', "Index: "& $k & @CRLF & "Inhalt: "&_GUICtrlListBox_GetText($hListBox, $k))
    EndFunc

    [/autoit]

  • Frage zu Gui's

    hättest du über die Suchfunktion auch gefunden ...

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>

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

    #region - GUI Create
    GUICreate('',300,300,-1,-1,$WS_POPUP,$WS_EX_TOOLWINDOW)
    GUISetBkColor(0x000000)
    GUICtrlCreateLabel("Dies ist eine Gui ohne Leiste und ohne Taskleisten-Eintrag"&@CRLF&@CRLF&"Zum Beenden 'esc' drücken",10,10)
    GUICtrlSetColor(-1,0xffffff)
    GUISetState()
    #endregion

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

    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd
    #endregion

    [/autoit]