Beiträge von Tigger1975

  • Umlautproblem bei CMD Aufruf

    Hallo ich rufe einen DIR Befehl mit

    [autoit]

    Run(@ComSpec & " /c " & $sCommand, @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

    [/autoit]

    auf und hole mir die Ausgabe.
    Soweit so gut, allerdings kommt es vor das Umlaute im Beispiel "Zubehör" ausgegeben werden die von DOS nach Autoit verbaselt werden, hat jemand eine Idee was ich noch mit dem String machen kann um das zu lösen?

    Testscript:

    Spoiler anzeigen
    [autoit]


    $Drive = "C:\"
    $sCMDOutput = _myRunDos("dir /AL /S " & $Drive)

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

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sCMDOutput = ' & $sCMDOutput[0] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

    Func _myRunDos($sCommand)
    Local $sDosOutputLine[2]
    $sDosOutputLine[0]=""
    $sDosOutputLine[1]=""
    Local $foo = Run(@ComSpec & " /c " & $sCommand, @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
    Do
    Sleep(250)
    $sDosOutputLine[0] &= StdoutRead($foo)
    $sDosOutputLine[1] &= StderrRead($foo)
    Until @error
    Return SetError(@error, @extended, $sDosOutputLine)
    EndFunc ;==>_myRunDos

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

  • Versteht sich autoIt mit den geplanten Tasks nicht?

    Doch bestimmt gibt es eine Lösung,
    Bleibt die Frage welchen weg man geht?

    1. du könntest über einen bestimmten User auf eine Freigabe zugreifen die alle Strukturen abdeckt die du durchsuchen willst und dann dort mit der Programmierung anfängst.
    2. du kannst mit putty link auf den Server via scp als Root zugreifen (sofern root ein Password hat) oder ein User mit genug rechten auf die Daten Schreibend zuzugreifen.
    3. es gibt rsync damit könnte es auch gehen und wahrscheinlich am aller leichtesten. Aber man muss sich natürlich wieder mit einen Linux tool herumgeschlagen, aber das läuft dann dennoch unter Windows.

    Suche dir einen Weg aus und ich helfe dir Dabei.
    Ich würde dich aber auch bei einer Implementierung unter Linux direkt unterstützen.

  • Versteht sich autoIt mit den geplanten Tasks nicht?

    Entschuldigt bitte das ich mich in dieser Grundsatz Diskussion einmische, aber Ditmar hat recht [PUNKT].

    im übrigen ist das nur ein Einzeiler.

    find /pfad -mtime +30 -exec rm {} \;

    in diesem Fall wird zwar gelöscht, aber man kann den RM Befehl natürlich durch tar ersetzen.
    Durch weiteres googlen findet man auch noch ganze Scripte die sich mit dem Thema befassen.

    Also ein kurzer download und als root in die crontab.
    Fertig.

  • GuiCtrl Type ermitteln

    Hallo gibt es eine Möglichkeit zu ermitteln um welchen Typ es sich bei einem GuiCtrl handelt.

    Ich möchte eine Automatische Funktion schreiben die werte aus einem GuiCtrl in eine ini schreibt, dafür müsste ich aber wissen um was es sich handelt.

    Danke

  • Alle Elemente einer Gui zur Laufzeit Suche.

    Hallo,

    gibt es eine Möglichkeit eine Autoit gui werend der Programmlaufzeit zu Untersuchen um die Elemente namentlich zu ermittel. um dann sowas wie eine Speicherroutine zu automatisieren.

    Ich denke daran eine Gui Element für element zu durchsuchen und auch den Typ des elements zu erfassen um dann die werte z.b. aus Inputboxen u.s.w zu lesen und z.b. in eine Ini zu schreiben.

  • .NET DLLs mit autoit verwenden?

    Hallo,

    ich versuche ein api via DLL einzubinden:

    Spoiler anzeigen
    [autoit]

    #include <array.au3>

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

    $sIOFactoryAPIFile = "C:\Programme\Online Poststelle\api318.dll"
    if FileExists($sIOFactoryAPIFile) then
    $sIOFactoryAPI = DllOpen($sIOFactoryAPIFile)
    $RC = DllCall($sIOFactoryAPI , "double", " readCredit","str", "-----", "str","-----")
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $RC = ' & $RC & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    $sIOFactoryAPI = DllClose($sIOFactoryAPI)
    _ArrayDisplay($RC)
    EndIf

    [/autoit]

    Im Anhang befindet sich die API und eine Doku.

    Könnt Ihr mir helfen?

  • _INetSmtpMailCom Meldet Verbindungsfehler

    Hallo wenn ich _INetSmtpMailCom auf meine Postfix hetze kommt immer ein Verbindugsfehler, doch wenn ich die Funktion z.b. auf den Meilserver von 1&1 loslasse funktioniert das ohne Probleme

    Hat jemand eine Idee?

    Es ist im übrigen egal ob SSL True oder False und ob ich 25 oder 465 als Port angebe.

    Die Verbindung zum Server sehe ich im Serverlog dort taucht das auf:

    Spoiler anzeigen

    May 13 18:35:28 Tigger postfix/smtpd[10263]: connect from unknown[192.168.10.56]
    May 13 18:35:28 Tigger dovecot: auth(default): new auth connection: pid=10263
    May 13 18:35:28 Tigger postfix/smtpd[10263]: lost connection after EHLO from unknown[192.168.10.56]
    May 13 18:35:28 Tigger postfix/smtpd[10263]: disconnect from unknown[192.168.10.56]

    Fehlermeldung:

    Spoiler anzeigen

    ### COM Error ! Number: 80020009 ScriptLine: 414 Description: Der Transport konnte keine Verbindung zum Server herstellen.
    @@ Debug(322) : $rc = Der Transport konnte keine Verbindung zum Server herstellen.

    Funktion:

    Spoiler anzeigen
    [autoit]

    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
    $objEmail.HTMLBody = $as_Body
    Else
    $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
    Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
    For $x = 1 To $S_Files2Attach[0]
    $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
    ;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
    If FileExists($S_Files2Attach[$x]) Then
    ;ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
    $objEmail.AddAttachment($S_Files2Attach[$x])
    Else
    ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
    SetError(1)
    Return 0
    EndIf
    Next
    EndIf
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 Then $IPPort = 25
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
    Case "High"
    $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
    Case "Normal"
    $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
    Case "Low"
    $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
    SetError(2)
    Return $oMyRet[1]
    EndIf
    $objEmail = ""
    Return 1
    EndFunc ;==>_INetSmtpMailCom

    [/autoit]