Beiträge von Tweaky

  • 2 verschiedene GUIs - Button funktioniert nicht

    so dürfte es klappen

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Local $speichern, $download_sql, $download_files, $ini_usr, $ini_pwd, $ini_dir, $Button_browse

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

    $winhandle = GUICreate("Blubb", 400, 420)

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

    $ini_pfad = IniRead("setup.ini", "settings", "pfad", "c:\tmp\lala")

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

    If FileExists($ini_pfad) Then
    Else
    DirCreate($ini_pfad)
    EndIf

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

    $tab = GUICtrlCreateTab(0, 0, 400, 400)
    $tab1 = GUICtrlCreateTabItem("Neuer Eintrag")
    $tab1_speichern = GUICtrlCreateButton("Eintrag machen", 290, 40, 100, 20)
    $tab1_ende = GUICtrlCreateTabItem("")

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

    $neuereintrag = GUICreate("Neuen Kontakt eintragen", 400, 420, "", "", "", "", $winhandle)
    $tab2 = GUICtrlCreateTab(0, 0, 400, 400)
    $start = GUICtrlCreateTabItem("Neuer Eintrag")
    GUICtrlCreateLabel("Vorname: ", 10, 40, 60)

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

    $input1 = GUICtrlCreateInput("", 80, 40, 200, 20)
    $tab1_speichern2 = GUICtrlCreateButton("Speichern", 290, 40, 100, 20)
    $ende = GUICtrlCreateTabItem("")

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

    GUISetState(@SW_SHOW, $winhandle)

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

    While 1
    $msg = GUIGetMsg($winhandle)
    $msg2 = GUIGetMsg($neuereintrag)
    Select

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

    Case $msg = $GUI_EVENT_CLOSE
    Exit

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

    Case $msg = $tab1_speichern
    GUISetState(@SW_HIDE, $winhandle)
    GUISetState(@SW_SHOW, $neuereintrag)

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

    Case $msg2 = $tab1_speichern2
    $file_remote = FileOpen($ini_pfad & "\db.xml", 1)
    FileWrite($file_remote, "Bla=" & GUICtrlRead($input1) & "..." & @CRLF)
    FileClose($file_remote)

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

    MsgBox(64, "INFO", "Die Daten wurden erfolgreich gespeichert!")
    GUISetState(@SW_HIDE, $neuereintrag)
    GUISetState(@SW_SHOW, $winhandle)
    EndSelect
    WEnd

    [/autoit]

  • Konventieren .tif

    das geht natürlich auch :)

    mit _FileListToArray alle Dateien eines Ordners in ein Array schreiben
    dann deine _main Funktion (evtl. ohne _gdiplus_startup und shutdown, mußte probieren) in eine fort next Schleife packen

  • Hat jemand das Mainboard Asus P5Q

    Das ist klar. Der Gedanke ist der:
    Auf dem "normalen" Internet XP wird gesurft bis der PC raucht :D .
    Das kann es sein, dass vielleicht mal ein Viren, usw. sich einschleust.

    Auf dem zweiten "Onlinekonto-XP" soll wirklich nur Onlinebanking betrieben werden und sonst nix.
    Also 5 min die Überweisung machen und fertig.

  • komplette txt in Edit einfügen

    Hi,
    hoffe ich konnte die Blockade lösen :D

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <File.au3>
    #include <GuiEdit.au3>
    #include <GUIConstantsEx.au3>
    Dim $array

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

    GUICreate("Edit Set Text", 400, 300)
    $hEdit = GUICtrlCreateEdit("", 2, 2, 394, 268)
    GUISetState()

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

    _FileReadToArray("C:\windows\SchedLgU.txt", $array)
    _ArrayDisplay($array)

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

    For $i = 1 To UBound($array) - 1
    _GUICtrlEdit_AppendText($hEdit, @CRLF & $array[$i])
    Next

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

    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()

    [/autoit]

  • Hat jemand das Mainboard Asus P5Q

    Hi,
    ich soll für einen Bekannten einen neuen PC zusammenstellen.
    Dies will u. a. auch Onlinebanking machen.

    Da ich auf Sicherheit poche habe ich ihm empfohlen nicht mir der "normalen" Festplatte dies zu tun.

    Da habe ich das Asus P5Q entdeckt.
    Da soll ein integriertes Linux in 5 Sekunden bootbar sein.

    Hat jemand das Board?
    Wie ist es so?
    Wie ist das Linux so?

  • Progressbar mit GDIplus

    Hi,
    ich habe mir eben die neue Version im englischen Board heruntergeladen.
    Das bekomme ich allerdings beim beenden deines Bsps folgende Fehlermeldung:

    Zitat

    C:\Programme\AutoIt3\Include\GDIpProgress.au3 (106) : ==> Subscript used with non-Array variable.:
    Local $temp = GUICtrlDelete($temp[0])
    Local $temp = GUICtrlDelete($temp^ ERROR

  • Hilfestatus 1000!!!

    So mittlerweile sind wir bei 1513 übersetzten und reviewten Dateien.
    Dies entspricht etwa 60% der kompletten Hilfe (3.2.10.0)

    Also Leute helft mit.
    Noch könnt ihr mit beeinflussen wie einfach und verständlich die Hilfe wird.

    Also anmelden und übersetzen.
    Los gehts :thumbup:

  • Kurze Frage

    Hi,
    schaue dir dazu mal die Hilfe an.

    Hier ein kurzes Bsp:

    [autoit]

    $msg = MsgBox(4, "Test", "Klicke was an")
    If $msg = 6 Then
    MsgBox(32, "", "Es wurde ja angeklickt")
    ElseIf $msg = 7 Then
    MsgBox(16, "", "Es wurde nein angeklickt")
    Else
    MsgBox(0, "", "FEHLER")
    EndIf

    [/autoit]

    Durch $msg = x frägst du ab welcher Button gedrückt wurde.
    Die korrekten Zahlen stehen in der Hilfe :)

  • Kurze Frage

    Hi Günter,
    herzlich willkommen hier :)

    Hoffe ich habe dich richtig verstanden.
    Hier ein Bsp. zu deiner Frage

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    GUICreate("Meine GUI-Buttons") ; erstellt ein GUI-Fenster welches mittig ausgerichtet wird

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

    Opt("GUICoordMode",2)
    $Button_1 = GUICtrlCreateButton ("Starte den Editor", 10, 30, 100)
    $Button_2 = GUICtrlCreateButton ( "Button Test", 0, -1)

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

    GUISetState () ; zeigt das GUI-Fenster mit 2 Buttons
    ; die GUI läuft bis sie geschlossen wird
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Button_1
    Run('Notepad.exe') ; Startet/Öffnet den Editor
    Case $msg = $Button_2
    MsgBox(0, 'Test', 'Button 2 wurde gedrückt') ; zeigt, dass der Button 2 gedrückt wurde
    EndSelect
    Wend

    [/autoit]

    Durch die While Wend Schleife und Case ... wird bestimmt was passieren soll, wenn auf einen Button geklickt wird
    :)