Beiträge von button421

  • Kennwortfelder?

    Hallo Leute!
    Wie kann man eigentlich festlegen, dass in einer InputBox passwortzeichen (*******) einsetzten kann?

    Immer diese Fragen! Kann man nicht von Geburt an, ein klasse AutoITer sein?

    Mfg button421

  • InputBox Error

    Hallo nochmal!
    Guckt mal:

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Einloggen", 311, 108, 192, 124)
    $Label1 = GUICtrlCreateLabel("Moderator/en:", 8, 16, 72, 17)
    $Label2 = GUICtrlCreateLabel("Passwort:", 8, 40, 50, 17)
    $Input1 = GUICtrlCreateInput("", 88, 16, 217, 21)
    $Input2 = GUICtrlCreateInput("", 88, 40, 217, 21)
    $Button1 = GUICtrlCreateButton("Einloggen", 224, 64, 81, 25, $WS_GROUP)
    $Progress1 = GUICtrlCreateProgress(0, 88, 310, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _logon()
    EndSwitch
    WEnd

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

    Func _logon()
    If $Input1 <> "JoNi" Then
    GUICtrlSetData($Progress1, 50)
    Else
    MsgBox(16,"Fehler!","Benutzername falsch!")
    EndIf
    If $Input 2 <> "12345678" Then
    GUICtrlSetData($Progress1, 100)
    MsgBox(0,"","Eingeloggt!")
    Else
    MsgBox(16,"","Passwort falsch!")
    EndIf
    EndFunc

    [/autoit]

    Irgendwie sagt er Passwort richtig wenn ich es falsch eingebe, und das sagt er auch beim Benutzernamen...
    Was ist da falsch gelaufen?

    MfG button421

  • XGWorks Patch?

    Im Kompmodi hab ich es versucht, immer kommt die Meldung:
    Der Prozedureinsprungspunkt "_FTExit4" wurde in der DLL "Kernel32.dll" nicht gefunden.
    Ich weiß ja nicht ob man mit AutoIT einen Patch progen kann.

    MfG button421 ROFL

  • XGWorks Patch?

    Hallo Leute!
    Ich brauche mal wieder Hilfe.
    Also kennt ihr das Programm Yamaha XGWorks V3.02?
    Das funktioniert nicht mehr unter Windows Vista :(
    Also habe ich mir überlegt, einen Patch zu programmieren.
    Jetzt sitze ich hier und weis nicht wie ich anfangen soll.
    Weiß jemand wie man da anfangen kann?

    PS: Vielleicht könnt ihr euch ja meinem Problem anschließen^^

  • CD-Laufwerke in ComboBox anzeigen?

    Gut, aber wenn ich einen Eintrag auswähle wie z.B: E://, verdoppelt sich alles.
    Hier Mein Script:

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <WindowsConstants.au3>
    #include <array.au3>

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

    #Region ### START Koda GUI section ### Form= ;Das Hauptprogramm
    $CDBurner = GUICreate("Easy CD Burner v1.0 - created by button421 on autoit.de", 1003, 574, 4, 90)
    $Label1 = GUICtrlCreateLabel("Schritt 1: Dateien in die Brennliste hinzufügen:", 8, 40, 269, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Combo1 = GUICtrlCreateCombo("---Kein CD-Laufwerk ausgewählt---", 312, 328, 177, 25)
    $List1 = GUICtrlCreateList("", 16, 88, 169, 435)
    $Button1 = GUICtrlCreateButton("Hinzufügen", 192, 88, 75, 25)
    $Label2 = GUICtrlCreateLabel("Schritt 2: Optionen festlegen:", 264, 136, 171, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Checkbox1 = GUICtrlCreateCheckbox("Log-Datei mit auf CD schreiben", 312, 160, 169, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("Autostart integieren", 312, 184, 121, 17)
    $Checkbox3 = GUICtrlCreateCheckbox("Tada!!!-Sound bei beendigung des Brennvorgangs abspielen", 312, 304, 313, 17)
    $Label5 = GUICtrlCreateLabel("Schritt 3: Brennvorgang starten!!!:", 496, 344, 198, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Progress1 = GUICtrlCreateProgress(576, 392, 401, 25)
    $Progress2 = GUICtrlCreateProgress(576, 448, 401, 25)
    $Label6 = GUICtrlCreateLabel("Gesamtvorgang:", 528, 368, 82, 17)
    $Label7 = GUICtrlCreateLabel("Schritt für Schritt-Vorgang:", 528, 424, 128, 17)
    $Button4 = GUICtrlCreateButton("Brennvorgang starten!", 880, 512, 115, 33)
    $MenuItem1 = GUICtrlCreateMenu("Datei")
    $SubMenuItem1 = GUICtrlCreateMenuItem("Öffnen...", $MenuItem1)
    $SubMenuItem2 = GUICtrlCreateMenuItem("Speichern...", $MenuItem1)
    $SubMenuItem3 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
    $MenuItem2 = GUICtrlCreateMenu("Bearbeiten")
    $SubMenuItem1b = GUICtrlCreateMenuItem("Einstellungen", $MenuItem2)
    $MenuItem3 = GUICtrlCreateMenu("?")
    $SubMenuItem1c = GUICtrlCreateMenuItem("Hilfe!!!", $MenuItem3)
    $SubMenuItem2c = GUICtrlCreateMenuItem("Über Easy CD Burner v1.0", $MenuItem3)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    #Region ### START Koda GUI section ### Form= ;Der Autostartassitent
    $Autorunassitant = GUICreate("Autostarteinstellungen", 296, 117, 193, 125)
    $Label3 = GUICtrlCreateLabel("Datei die beim einlegen der CD gestartet werden soll:", 8, 24, 253, 17)
    $Button2 = GUICtrlCreateButton("...", 264, 16, 25, 25, 0)
    $Label4 = GUICtrlCreateLabel("Icon für den CD-Autostart:", 8, 64, 127, 17)
    $Button3 = GUICtrlCreateButton("...", 144, 56, 25, 25, 0)
    $Button5 = GUICtrlCreateButton("OK", 208, 88, 81, 25, 0)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $files = FileOpenDialog("", @DesktopCommonDir, "Alle Dateien (*.*)", 15)
    If @error Then
    MsgBox(16, "Fehler!", "Keine Datei ausgewählt!")
    ElseIf Not IsArray($files) Then
    $f = StringSplit($files, "\", 1)
    GUICtrlSetData($List1, $f[UBound($f) - 1])
    Else
    $f = StringSplit($files, "|", 1)
    For $i = 2 To $f[0]
    GUICtrlSetData($List1, $f[$i])
    Next
    EndIf
    Case $Button2
    $autorun = FileOpenDialog("Autostartdatei wählen", @DesktopCommonDir, "Alle Dateien (*.*)", 15)
    If @error Then
    MsgBox(16,"Fehler!","Keine Autostartdatei gewählt")
    Else
    IniWrite(_cddrives()"autorun.inf","autorun","File",$autorun)
    EndIf

    Case $Button3
    $icon = FileOpenDialog("Icon wählen", @DesktopCommonDir, "Icons (*.ico)", 15)
    If @error Then
    MsgBox(16,"Fehler!","Kein Icon gewählt!")
    EndIf

    Case $Button4
    _startburn()

    Case $Button5
    GUISetState(@SW_HIDE, $Autorunassitant)

    Case $Checkbox1
    If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
    IniWrite($Combo1 "log.txt","Easy CD Burner v1.0 Log","Datum des Brennvorgangs", _date())
    EndIf
    Case $Checkbox2
    If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) Then
    GUISetState(@SW_SHOW, $Autorunassitant)
    EndIf
    Case $Checkbox3
    _playtada(_startburn())
    Case $Combo1
    _cddrives()
    Case $SubMenuItem1
    _openprj()
    Case $SubMenuItem2
    _saveprj()
    Case $SubMenuItem3
    _cls()
    Case $SubMenuItem1b
    _prb()
    Case $SubMenuItem1c
    _help()
    Case $SubMenuItem2c
    _info()
    EndSwitch
    WEnd

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

    Func _cddrives()
    $sCD_Drives = ""
    $aDrives = DriveGetDrive("CDROM")

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

    For $i = 1 To $aDrives[0]
    $sCD_Drives &= StringUpper($aDrives[$i]) & "|"
    Next

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

    GUICtrlSetData($Combo1, $sCD_Drives, $aDrives[1])
    EndFunc

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


    Das nochnich fertige Brennprogramm.

  • CD-Laufwerke in ComboBox anzeigen?

    Hallo Leute!
    Ich habe schon wieder n Problem:
    Wie kann man programmieren, dass die erkannten CD-Laufwerke in einer ComboBox angezeigt werden?
    Ich arbeite nämlich an einem Brennprogramm.

    Nach dieser Frage kommt warscheinlich noch, ob autoit mal abgeschafft wird ^^ ^^ ^^

    MfG button421