[R] Boite de dialogue

[thiseo]

Bonsoir,

Après avoir poster dans l'aide, je me permet de poster ici. (http://autoitscript.fr/forum/viewtopic.php?f=3&t=9354
J'ai un pc qui travaille (extraction de stat) et de temps en temps, ce logiciel lache. Il y a alors une boite de dialogue qui s'ouvre avec un message d'erreur.

Ce que je veux faire est donc simple : je voudrais faire un script Autoit qui consisterait à envoyer un mail ou net send dès lors qu'il détecte cette boite de dialogue.

En gros, le programme serait le suivant :

SI boite_de_dialogue
ALORS net send "il y a un message d'erreur"

Je vous remercie pour vos réponses.

PS : Configuration : Windows XP Pro

[DimVar]

Bonsoir,

► Afficher le texte

Code : Tout sélectionner

Global $titreDeLaBoiteDeDialogue = "";le titre EXACT de la boite dialogue (de preference, utiliser AU3info.exe)
Global $commandeNetSend = '';copie/colle ta commande net send 
Global $TempsAttente = "";Mets ici le temps de pause entre chaque detection, valeur 1000 pour 1 seconde.


While 1
    
    If WinExists ($titreDeLaBoiteDeDialogue) Then 
        RunWait(@ComSpec & " /c " & $commandeNetSend, "", @SW_HIDE)
        $reponse = MsgBox (4,"","Erreur détectée."&@CRLF&"Script en pause."&@CRLF&"Reprendre la detection ?")
        If $reponse <> 6 Then ExitLoop
    EndIf
    
    Sleep ($TempsAttente)
    
WEnd
    
Exit 0

[thiseo]

Ok, je vais tester çà ce soir.

Franchement, merci beaucoup pour ton aide.

[thiseo]

Ca marche niquel !!!!
Merci beaucoup mille fois

[DimVar]

Bonsoir,

Ravi que ça puisse te rendre service.
N’hésites pas si tu penses à des améliorations à apporter.


Cdlt.

[Tlem]

@thiseo
N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.

[thiseo]

Bonsoir,

Ravi que ça puisse te rendre service.
N’hésites pas si tu penses à des améliorations à apporter.


Cdlt.

Et bien disons que l'amélioration serait non pas l'envoi par netsend mais par mail.
Mais c'est déjà niquel comme çà que je ne veux pas faire mon gourmand, lol

[DimVar]

► Afficher le texte

Code : Tout sélectionner

#include <INet.au3>


Global $titreDeLaBoiteDeDialogue = "";le titre EXACT de la boite dialogue (de preference, utiliser AU3info.exe)
Global $commandeNetSend = '';copie/colle ta commande net send
Global $TempsAttente = "";Mets ici le temps de pause entre chaque detection, valeur 1000 pour 1 seconde.


While 1
   
    If WinExists ($titreDeLaBoiteDeDialogue) Then
        _SendMail()
        $reponse = MsgBox (4,"","Erreur détectée."&@CRLF&"Script en pause."&@CRLF&"Reprendre la detection ?")
        If $reponse <> 6 Then ExitLoop
    EndIf
   
    Sleep ($TempsAttente)
   
WEnd
   
Exit 0



Func _SendMail()
    $s_SmtpServer = ""; ton serveur SMTP
    $s_FromName = ""; NOM
    $s_FromAddress = ""; email expediteur
    $s_ToAddress = "";email destinataire
    $s_Subject = "";Sujet du mail
    Dim $as_Body[2]
    $as_Body[0] = "Bonjour,"&@CRLF
    $as_Body[1] = "Boite de dialogue detectée."
    $Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
    $err = @error
    If $Response <> 1 Then MsgBox(0, "  Erreur sur envoi de mail", "Erreur d'envoi. Code erreur : " & $err)
EndFunc