Beiträge von Schnuffel

  • Key.au3

    Hallo nof@ker,

    beim Überfliegen hab ich erstmal festgestellt, dass Deine Funktion _KeyGen nicht einen 20-stelligen Schlüssel erzeugt, sondern einen 21-stelligen ;)

    Das mit dem Array brauchst Du auch nicht in der Funktion, kannst die Variable einfach mit &= erweitern
    siehe:

    Spoiler anzeigen
    [autoit]

    Func _KeyGen()
    Dim $G
    For $i=0 to 20
    $G &= _Gen()
    Next
    Return $G
    EndFunc

    [/autoit]

  • Aus Dateipfad, Ordnerpfad machen

    nachdem mir persönlich der Vorschlag von Xeno am Besten gefallen hat würde ich das so machen:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    Dim $szDrive, $szDir, $szFName, $szExt
    $path = _PathSplit("D:\TEMP\abc\xyz\Name1.jpg", $szDrive, $szDir, $szFName, $szExt)
    MsgBox(0, '', $path[3])

    [/autoit]

  • wie verändere ich die Position des Eingabecursors im Editfeld?

    ich glaube, Du möchtest den Cursor einfach an den Anfang des Textes...

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    #region - GUI Create
    GUICreate('')
    GUISetState()
    #endregion

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

    $edit = GUICtrlCreateEdit("Bla,dnsadö asdfk sadop jaosdj sajdop asjfo kpüdas",5,5,300,200)
    GUICtrlSetState(-1,$GUI_FOCUS)
    Send("{HOME}")
    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd
    #endregion

    [/autoit]

  • IE7 Steuerungs Problem

    nachdem man Dein Script nicht testen kann, hier mal meine Vermutung...

    Entweder der Fenstertitelauf den WinWaitActive wartet lautet nicht "USENET-SPACE-COWBOYS | Da",
    oder WinWaitActive("USENET-SPACE-COWBOYS | Da") hat ein Problem mit dem "|"-Zeichen,
    da dieses standardmäßig zum trennen von array#s verwendet wird...

    Versuch es mal mit: WinWaitActive("USENET-SPACE-COWBOYS", "Text") und der erweiterten Angabe "Text", um das Fenster zu identifizieren.

  • Nach Abbruch von FileOpenDialog

    Hallo Commander21

    warum schaust Du nicht erstmal in die Hilfe?
    Dort gibt es genau dafür sogar ein Beispiel...

    Spoiler anzeigen
    [autoit]

    $message = "Hold down Ctrl or Shift to choose multiple files."

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

    $var = FileOpenDialog($message, @WindowsDir & "\", "Images (*.jpg;*.bmp)", 1 + 4 )

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

    If @error Then
    MsgBox(4096,"","No File(s) chosen")
    Else
    $var = StringReplace($var, "|", @CRLF)
    MsgBox(4096,"","You chose " & $var)
    EndIf

    [/autoit]

  • Nur ne kleine Frage

    Na ja,

    in deiner While-Schleife den Event der ComboBox abfragen, wenn auswahl,
    dann den Inhalt an an die udf schicken...

    GuiCtrlSetData($PfadInput, _WinAPI_ProcessGetFilename(GuiCtrlRead(DeineComboBox...),True))

  • Pfad festlegen und speichern

    entweder du hinterlegst den Wert in der Registry ( nicht empfohlen )
    oder du erstellst Dir mit FileOpen() eine *.ini Datei und hinterlegst den Wert der Variable dort.

    Musst halt beim Start deines Script's überprüfen, ob Datei vorhanden ist
    und dann den Wert aus der Datei auslesen und der $File2 übergeben...

  • Textformatierung in einer ComboBox

    Hallo GrandPa,
    ich weiß nicht was Du hast?

    Schau Dir mal die Funktion StringFormat etwas genauer an.
    Mehr als Ratschläge geben kann ich ohne Code auch nicht ;)

    und eine gewisse Begrenzung der Textlänge kannst Du ja bestimmt festlegen...

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    #region - GUI Create
    GUICreate('')
    GUISetState()
    $Client = "TestClient"
    $Beschreibung = "Dies ist eine Beschreibung"
    $combo = GUICtrlCreateCombo("",10,10,300,200)
    #endregion
    GUICtrlSetData($Combo, StringFormat("%-50s %-20s",$Client ,$Beschreibung))
    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd
    #endregion

    [/autoit]

  • Gmx Mail mit autoit geht ned pls help

    Du hast doch in Deinem Script schon alles perfekt mit $as_body :)

    Wenn Du nur Text übergibst, wird die Email ganz normal als "Nur Text" versendet.

    Wenn Du Deine Email als HTML-Mail verschicken willst, muß in $as_body am Anfang <html> stehen.
    Damit weiß die Funktion, dass eine HTML-Email verschickt wird.
    Der Html-Code wird aber nicht auf Korrektheit überprüft.

    Beispiel HTML:

    Spoiler anzeigen
    [autoit]

    Dim $as_Body = '<html><head><meta http-equiv="Content-Language" content="de">'_
    '<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">'_
    '</head><body><p><b><font face="Arial">Text der 1. Zeile</p>'_
    '<p>Text der 2. Zeile</p>'_
    '<p>Text der 3. Zeile</font></p>'_
    '<br><font face="Arial" size="1"><b><u>Text der 4. Zeile</u></b></font></p>'_
    '</body></html>'

    [/autoit]

  • Gmx Mail mit autoit geht ned pls help

    du solltest auch ein Passwort mitgeben, sonst weigert sich der SMTP-Server ;)

    Edit:

    [autoit]

    Dim $Response
    Dim $s_SmtpServer = "" ; SMTP-Server des Email-Providers
    Dim $s_Username = "" ;Absender Emailadresse
    Dim $s_Password = "" ; Passwort des Absender Kontos
    Dim $s_FromName = "" ; Absender Name
    Dim $s_FromAddress = "" ; Absender Emailadresse
    Dim $s_ToAddress = "" ; Empfänger Emailadresse
    Dim $s_Subject = "" ; Betreffzeile
    Dim $s_AttachFiles = "" ; Dateianhang mit Pfadangabe, ohne Pfadangabe gleiches Verzeichnis wie Script
    Dim $s_CcAddress = "" ; CC-Adressen durch Semikolon ';' getrennt
    Dim $s_BccAddress = "" ; BCC-Adressen durch Semikolon ';' getrennt
    Dim $as_Body = '' ; Inhalt der Email als Text oder HTML(für HTML-Email muß der komplette HTML-Code eingefügt werden (<html><head>.....</body></html>))

    [/autoit]