Beiträge von Phil-IT

    "also gesamtanzahl wo failure steht"


    was meinst du damit? was soll konkret jetzt in status, alive und total stehen?


    lg Phil-It

    haha ich merks auch ich war gerade im englischen forum unterwegs und hab auch gelesen dass es an dem autoit wrapper oder so liegt.. Hier:


    Code
    +>13:19:17 Starting AutoIt3Wrapper v.14.801.2025.0 SciTE v.3.4.4.0 Keyboard:00000407 OS:WIN_7/Service Pack 1 CPU:X64 OS:X64 Environment(Language:0407)
    +> SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE UserDir => C:\Users\Phil\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper SCITE_USERHOME => C:\Users\Phil\AppData\Local\AutoIt v3\SciTE

    Hi


    ich habe folgendes Programm, wie normal:


    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(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF)
    If FileExists($S_Files2Attach[$x]) Then
    $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
    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
    $objEmail.Configuration.Fields.Update
    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
    $objEmail.Send
    If @error Then
    MsgBox(16, "test", "Ihr Nachricht wurde nicht gesendet. Bitte prüfen Sie ihre Internetverbindung oder versuchen Sie es später erneut.")
    EndIf
    $objEmail=""
    EndFunc


    und das hat auch immer funktioniert als ich noch normales SciTE hatte.. jetzt das hier:


    Code
    "C:\Users\...\Test.au3"(1865,15) : error: missing separator character before keyword.
    $objEmail.To
    ~~~~~~~~~~~~~~^
    C:\Users\...\Test.au3 - 1 error(s), 0 warning(s)
    !>12:08:37 AU3Check ended. Press F4 to jump to next error.rc:2
    +>12:08:37 AutoIt3Wrapper Finished.
    >Exit code: 2 Time: 0.8801


    Lg Phil-IT

    Auch wenn das jetzt eigentlich hier nicht hingehört habe ich trotzdem folgende Frage datz:


    Also angenommen ich schließe viele Handles nicht oder zb die GDI+ Graphics lösche ich am schluss nicht was passiert denn dann genau oder was ist das problem wenn das Programm dann sowieso geschlossen wird? Danke schonmal;)


    Lg Phil-IT

    EDIT: Damit geklärt lol:D


    Wie schnitzel schon sagt es ist eigentlich unsinnig so zu arbeiten aber hier trotzdem wie es funktionieren könnte..



    Lg Phil-IT

    ich hab eine andere lösung für mich erstellt! ist vielleicht für mich bisschen leichter..



    $ext = ".txt"
    MsgBox(64, "RegKey:" & $ext, "RegKey von '" & $ext & "' ist " & RegRead("HKEY_CLASSES_ROOT" & $ext, "PerceivedType")) ; lieft bei Text-editierbaren Extensions 'text'


    Danke tdm für deine Lösung!
    Lg Phil-IT