Probleme mit GUICTRLREAD

1. offizieller Beitrag

    Hallo Zusammen,

    ich habe folgendes Script:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    #Include <process.au3>
    #include <string.au3>
    dim $HiddenString, $PW

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

    #Region ### START Koda GUI section ### Form=D:\Eigene Dateien\AutoIt-Skripte\DefragC\Def_GUI.kxf
    $Form1 = GUICreate("TUV Defragger for PowerUsers (c) by PC-Service 2007", 440, 242, 307, 201)
    GUISetBkColor(0x0000FF)
    $Label1 = GUICtrlCreateLabel("Defragmentierung für Haupbenutzer", 8, 16, 436, 36)
    GUICtrlSetFont(-1, 20, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x0000FF)
    $Admin_Input = GUICtrlCreateInput("Administrator", 208, 80, 220, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $PW_Input = GUICtrlCreateInput("kosmos", 208, 112, 220, 26, $ES_PASSWORD)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Label2 = GUICtrlCreateLabel("", 40, 48, 4, 4)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x0000FF)
    $Label3 = GUICtrlCreateLabel("Passwort?", 32, 112, 78, 22, $SS_RIGHT)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x0000FF)
    $Label4 = GUICtrlCreateLabel("Lokaler Administrator?", 32, 80, 162, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x0000FF)
    $Start_Button = GUICtrlCreateButton("Start", 16, 192, 145, 33, $WS_BORDER)
    GUICtrlSetFont(-1, 14, 400, 4, "Arial Black")
    $Stop_Button = GUICtrlCreateButton("(Not allowed)", 280, 188, 145, 36, BitOR($BS_ICON,$WS_BORDER))
    GUICtrlSetImage($Stop_Button, "092.ICO")
    GUICtrlSetFont(-1, 14, 400, 4, "Arial Black")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    GUISetState()
    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
    ExitLoop
    EndIf
    If $msg = $Stop_Button Then
    ExitLoop
    EndIf
    If $msg = $Start_Button Then
    $Admin = GUICtrlRead(4)
    $PW = GUICtrlRead(5)
    MsgBox(0, "TEST", "GUI 1: ", GUICtrlRead(4))
    MsgBox(0, "TEST", "GUI 2: ", GUICtrlRead(5))
    RunAsSet ($Admin, @ComputerName, $PW)
    $ECODE = RunWait(@ComSpec & " /c " & "defrag /a c: > c:\DefragC.log")
    If $ECODE <> 0 Then
    MsgBox(4096,"Error", "Defrag Error")
    ; MsgBox(4096,"$ECODE = ", $ECODE)
    Else
    MsgBox(4096, "Result", "Defrag OK")
    ; MsgBox(4096,"$ECODE = ", $ECODE)
    EndIf
    EndIf
    WEnd
    RunAsSet()

    [/autoit]

    Wer kann mir sagen, warum ich auf die beiden Zeilen 48 und 49 keinen Output bekomme?

    Wäre für eine schnelle Antwort sehr dankbar. ?(

    Gruß

    H. Weiß
    Edit GtaSpider: [16.12.2007 22:06]
    Spoiler Tags eingefügt
    Aufruf:

    Code
    [SPOILER][AUTOIT] 
AutoIt Code 
[/AUTOIT][/SPOILER]

    2 Mal editiert, zuletzt von weiss (17. Dezember 2007 um 23:30)

    • Offizieller Beitrag

    Hallo

    So geht das:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #Include <process.au3>
    #include <string.au3>
    Dim $HiddenString, $PW

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

    #Region ### START Koda GUI section ### Form=D:\Eigene Dateien\AutoIt-Skripte\DefragC\Def_GUI.kxf
    $Form1 = GUICreate("TUV Defragger for PowerUsers (c) by PC-Service 2007", 440, 242, 307, 201)
    GUISetBkColor(0x0000FF)
    $Label1 = GUICtrlCreateLabel("Defragmentierung für Haupbenutzer", 8, 16, 436, 36)
    GUICtrlSetFont(-1, 20, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x0000FF)
    $Admin_Input = GUICtrlCreateInput("Administrator", 208, 80, 220, 26)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $PW_Input = GUICtrlCreateInput("kosmos", 208, 112, 220, 26, $ES_PASSWORD)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Label2 = GUICtrlCreateLabel("", 40, 48, 4, 4)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x0000FF)
    $Label3 = GUICtrlCreateLabel("Passwort?", 32, 112, 78, 22, $SS_RIGHT)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x0000FF)
    $Label4 = GUICtrlCreateLabel("Lokaler Administrator?", 32, 80, 162, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x0000FF)
    $Start_Button = GUICtrlCreateButton("Start", 16, 192, 145, 33, $WS_BORDER)
    GUICtrlSetFont(-1, 14, 400, 4, "Arial Black")
    $Stop_Button = GUICtrlCreateButton("(Not allowed)", 280, 188, 145, 36, BitOR($BS_ICON, $WS_BORDER))
    GUICtrlSetImage($Stop_Button, "092.ICO")
    GUICtrlSetFont(-1, 14, 400, 4, "Arial Black")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    GUISetState()
    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
    ExitLoop
    EndIf
    If $msg = $Stop_Button Then
    ExitLoop
    EndIf
    If $msg = $Start_Button Then
    ConsoleWrite(1 & @CRLF)
    $Admin = GUICtrlRead($Admin_Input)
    $PW = GUICtrlRead($PW_Input)
    MsgBox(0, "TEST", "GUI 1: " & $Admin)
    MsgBox(0, "TEST", "GUI 2: " & $PW)
    RunAsSet($Admin, @ComputerName, $PW)
    $ECODE = RunWait(@ComSpec & " /c " & "defrag /a c: > c:\DefragC.log")
    If $ECODE <> 0 Then
    MsgBox(4096, "Error", "Defrag Error")
    ; MsgBox(4096,"$ECODE = ", $ECODE)
    Else
    MsgBox(4096, "Result", "Defrag OK")
    ; MsgBox(4096,"$ECODE = ", $ECODE)
    EndIf
    EndIf
    WEnd
    RunAsSet()

    [/autoit]

    Paar kleine Fehler gemacht, am besten vergleichst du die beiden Codes mal miteinander ;)

    Mfg Spider

    Hallo Spider,

    danke erst mal für die Hilfe. Es funktioniert wohl so. :)

    Ich kann jedoch auf die Schnelle nur die hinzugefügte Zeile "ConsoleWrite(1 & @CRLF)" erkennen. Gerne würde ich mehr über die "kleinen" Fehler wissen. Bin nun mal keine Profi und daher für jede Unterstützung dankbar.

    Gruß

    Harald