[...] Création de programme : enregistrement audio

[ksohn]

Bonjour, je suis à la recherche d'une personne généreuse qui serait d'accord pour me créer le programme qui suit le plan suivant :
-Lorsque l'ordinateur détecte un son à un certain volume prédéfini en provenance du microphone, il lit un fichier audio
-Tout de suite après, il démarre un enregistrement
-Lorsque le son en provenance du micro devient très faible, il arrête l'enregistrement et lit un fichier audio.
-Il envoie l'enregistrement par mail
-Il se place au début du programme

En espérant trouver de la générosité sur ce forum,

Cordialement, SK

[Jeco]

Je crois qu'avec ça http://www.autoitscript.com/forum/topic ... media-udf/ tu peux utiliser ton microphone
Pour les mails regarde cette fonction _INetSmtpMail mais je n'ai jamais réussi à la faire fonctionner
Sinon ya ça
En 2eme arg met "smtp.gmail.com" pour utiliser gmail

► Afficher le textecode

Code : Tout sélectionner

Func mail($ToAddress,$SmtpServer,$FromName,$Subject,$Body,$Username,$Password, $AttachFiles)
    $IPPort = 465 ; port used for sending the mail
    $ssl = 1 ; enables/disables secure socket layer sending - put to 1 if using httpS
    Global $oMyRet[2]
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
    $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, 1)
    EndIf
EndFunc   ;==>mail
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) ;### 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
    $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
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail = ""
EndFunc   ;==>_INetSmtpMailCom
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

[ksohn]

Merci beaucoup mais je cherche une personne généreuse capable de me créer le programme qui suit le plan :
-Lorsque l'ordinateur détecte un son en provenance du microphone, il lit un fichier audio
-Tout de suite après, il démarre un enregistrement
-Lorsque le son en provenance du micro devient très faible, il arrête l'enregistrement et lit un fichier audio.
-Il envoie l'enregistrement par mail
-Il se place au début du programme

En espérant une réponse favorable d'une personne volontaire,

cordialement, SK

[Y01]

En gros, ce que tu veux c'est un enregistreur numérique audio qui fait un bip au début et à la fin de l'enregistrement et qui t'envoie l'enregistrement par mail, c'est ça ?

[ksohn]

Bonjour, oui c'est à peu près ça sauf que l"enregistrement démarre lorsque le micro détecte un son ( selon un certain volume prédéfini) et que les bips sont en fait des MP3 de environ 40 secondes.

J’espère que une personne généreuse va répondre à mon message pour m'aider.

Cordialement, SK

[Y01]

Entre l'aide de jeco et ce lien, la personne qui aura le courage de coder ça, sera bien aider.

[ksohn]

Bonjour, je suis toujours à la recherche d'une personne qui serait d'accord pour me coder le programme que j'ai demandé dans le 1er post. Donc j’espère qu'une personne me fera signe !!

Merci beaucoup à tous !

[Jeco]

Je t'ai fais ça vite fais il enregistre ce qu'entend le micro par séquence de 10 min et te l'envoi pas mail par contre tu dois completer

Code : Tout sélectionner

Global $username=     c'est le nom que tu as sur gmail
Global $mail=     c'est l'adresse cible ainsi que celui que l'envoi si sa marche pas dit le moi
Global $password=      je crois que tu aura pas de mal à comprendre ce que c'est

en début de prog

il ne démarre pas lorsqu'il entend du son car je n'ai pas trouver comment le faire
Aussi il se peut que tu ai besoin des droits d'administrateur pour le lancer si c'est le cas rajoute "#RequireAdmin" en tout début de programme
J'espère t'avoir aidé

[ksohn]

Merci beaucoup !!!!
?
Pour l'adresse email, ca ne marche pas. Il faut mettre les 2 (expediteur-destinataire) ? Et si oui séparés de quoi ??

Ah oui, comment fait-on pour ajouter les 2 MP3 au programme ???*

[Jeco]

normalement le fichier mp3 est déja inclu dans le mail
Pour l'email il doit être en @gmail.com
sinon en gros sa donne ça
Global $username=la c'est ton nom de compte
Global $mail=blablalba@gmail.com
Global $password=bon la j'en met pas mais sinon tu met le tien (celui qui va avec le $username)

[ksohn]

Pour les 2 mp3 je voulais dire : où mettre le chemin d'accès aux 2 Mp3 correspondants pour que le programme les lise?

Et pour l’email ça ne marche toujours pas : voici la capture d'écran du message d'erreur : http://hpics.li/dea5ea1

[Jeco]

Met des guillemets

[ksohn]

C'est bon ça marche mais maintenant il affiche ça ....

Et pour mettre les 2 fichiers avant et après l'enregistrement, je fais comment ???

[Jeco]

Yep j'ai oublié cette fonction
rajoute ça tout à la fin de ton code

► Afficher le texte

Code : Tout sélectionner

Func _MediaCreate($s_format)
    If Not IsDeclared("i_MediaCount") Then Global $i_MediaCount=0
    $i_MediaCount=$i_MediaCount+1
    If $s_format=0 Then
        $s_Use="cdaudio"
    ElseIf $s_format=1 Then
        $s_Use="digitalvideo"
    ElseIf $s_format=2 Then
        $s_Use="overlay"
    ElseIf $s_format=3 Then
        $s_Use="sequencer"
    ElseIf $s_format=4 Then
        $s_Use="vcr"
    ElseIf $s_format=5 Then
        $s_Use="videodisc"
    ElseIf $s_format=6 Then
        $s_Use="waveaudio"
    EndIf
    DllCall("winmm.dll","int","mciSendString","str","open new type "&$s_Use&" alias media"&String($i_MediaCount),"str","","int",65534,"hwnd",0)
    If @error Then
        SetError(1)
        Return 0
    Else
        Return String($i_MediaCount)
    EndIf
EndFunc

Par contre quel est le deuxième fichier dont tu parles ?

[ksohn]

Et bien au début du programme, il doit lire un fichier audio et démarrer lenrengistrement et ensuite en lire un deuxième ? Alors comment fait on pour que le programme sache quels sont les 2 fichiers audios ???

Et comment changer le temps d'enregustrement ??

[Jeco]

Pour changer le temps dans les premières lignes il y a "Sleep(600000)"
Change le 600 000 c'est le nombre de millisecondes
Pour l'histoire de lire des fichier audio au début et a la fin je comprends pas l’intérêt... Ce sont juste des "bip" ou de long fichier audio ?

[ksohn]

Ce sont des fichiers audio d'environ 40 secondes...

[Jeco]

oui mais ils servent à quoi ?

[ksohn]

C'est pour un système assez complexe....

Mais avez vous compris dans ce programme l'exécution de ces 2 fichiers avant et après l'enregistrement??

Et comment savoir si l'enregistrement est en cours ?? On ne pourrait pas avoir un décompte affiché??/

Et ou est enregistré l'enregistrement??

Merci de,vos réponses...

[Jeco]

Donne nous l'emplacement de tes fichiers et on te fait ça
Sinon est ce que tu as compris ce que je t'ai dis ? le programme enregistre tout par série de 10 min, il enregistre tout constament mais j'ai trouver comment l'ameliorer et je te fais ça cet aprem mais donne mois l'emplacement de tes fichier à lire