Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <GUITreeView.au3>
#include <File.au3>
#include <Sound.au3>
#include <ScreenCapture.au3>
#Include <String.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include "GSpeech.au3"
#Region ### START Koda GUI section ### Form=
$siriautoit = GUICreate("LUIGI", 630, 840, 193, 125)
$discufen = _GUICtrlTreeView_Create($siriautoit,8, 36, 609, 777)
$Input1 = GUICtrlCreateInput("", 8, 12, 529, 21)
$Button1 = GUICtrlCreateButton("OK", 544, 12, 75, 25, 0)
$menuoptions = GUICtrlCreateMenu("options...")
$menucreatecom = GUICtrlCreateMenuItem("creer une commande",$menuoptions)
$menusupcom = GUICtrlCreateMenuItem("supprimer une commande",$menuoptions)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $arraydevine
Global $musicopen
Global $arraytablette
Global $arrayenerve
Global $choix
Global $numero
Global $read
Global $traiter
Global $nombrebonjour = 0
Global $Form2
Global $com
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> Bonjour que puis-je faire pour vous?")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$traiter = GUICtrlRead($Input1)
if $traiter = "" Then _GUICtrlTreeView_Add($discufen,1,"<LUIGI> vous n'avez rien écris vous m'inquiétez.")
If $traiter = "devine quoi" Then
_GUICtrlTreeView_Add($discufen,1,'"devine quoi"')
$arraydevine = _FileListToArray(@ScriptDir & "/devinequoi","*.txt",1)
$numero = $arraydevine[0]
$choix = Random(1,$numero,1)
$read = FileRead(@ScriptDir & "/devinequoi/" & $arraydevine[$choix])
_GSpeech("fr",$read)
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> " & $read)
EndIf
ElseIf $traiter = "je suis énervé" Then
_GUICtrlTreeView_Add($discufen,1,'"je suis énervé"')
$arrayenerve = _FileListToArray(@ScriptDir & "/énervé","*.txt",1)
$numero = $arrayenerve[0]
$choix = Random(1,$numero,1)
$read = FileRead(@ScriptDir & "/énervé/" & $arrayenerve[$choix])
_GSpeech("fr",$read)
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> " & $read)
ElseIf $traiter = "quel est la meilleur tablette?" Then
_GUICtrlTreeView_Add($discufen,1,'"quel est la meilleur tablette?"')
$arraytablette = _FileListToArray(@ScriptDir & "/tablette","*.txt",1)
$numero = $arraytablette[0]
$choix = Random(1,$numero,1)
$read = FileRead(@ScriptDir & "/tablette/" & $arraytablette[$choix])
_GSpeech("fr",$read)
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> " & $read)
ElseIf $traiter = "quelle heure est-il?" Or $traiter = "il est quelle heure?" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr",'il est '&@HOUR&":"&@MIN&" et "&@SEC&" secondes")
_GUICtrlTreeView_Add($discufen,1,'<LUIGI> il est '&@HOUR&":"&@MIN&" et "&@SEC&" secondes")
ElseIf $traiter = "joue moi un morceau de musique" Or $traiter = "joue de la musique" Or $traiter = "je veut de la musique" Or $traiter = "je voudrais de la musique" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
$arraymusic = _FileListToArray(@MyDocumentsDir&"/Ma Musique","*.mp3",1)
$numero = $arraymusic[0]
$choix = Random(1,$numero,1)
$musicopen = _SoundOpen(@MyDocumentsDir&"/Ma Musique/" & $arraymusic[$choix])
_SoundPlay($musicopen)
_GSpeech("fr","je vous joue le fichier "& $arraymusic[$choix])
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> je vous joue le fichier "& $arraymusic[$choix])
ElseIf $traiter = "arrête de jouer" Or $traiter = "arrête la musique" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
If $musicopen = 0 Then
_GSpeech("fr","aucun son n'est jouer actuellement")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> aucun son n'est jouer actuellement")
Else
_SoundStop($musicopen)
_GSpeech("fr","le son à été arrêté")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> ")
EndIf
ElseIf $traiter = "ouvre Internet Explorer" Or $traiter = "démarre internet explorer" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
Run(@ProgramFilesDir & "/Internet Explorer/iexplore.exe")
_GSpeech("fr","Internet explorer est ouvert")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> Internet explorer est ouvert")
ElseIf $traiter= "ferme internet explorer" Or $traiter = "arrête internet explorer" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
If ProcessExists("iexplore.exe") Then
ProcessClose("iexplore.exe")
_GSpeech("fr","Internet explorer est fermer")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> Internet explorer est fermer")
Else
_GSpeech("fr","Internet explorer n'est pas ouvert")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> Internet explorer n'est pas ouvert")
EndIf
ElseIf $traiter= "quitter LUIGI" Or $traiter = "ferme toi" then
Exit
ElseIf $traiter= "en quel année somme-nous?" Or $traiter = "nous somme en quel anée?" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr","nous sommes en"&@YEAR)
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> nous somme en " & @YEAR)
ElseIf $traiter = "prend une capture d'écran" Or $traiter = "capture l'écran" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
$hBmp = _ScreenCapture_Capture ("")
_ScreenCapture_SaveImage (@MyDocumentsDir & "/"&@HOUR&@MIN&@SEC&".jpg" , $hBmp)
_GSpeech("fr","capture d'écran prise et sauvegarder dans mes documents au nom de "& @HOUR&@MIN&@SEC&".jpg")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> capture d'écran prise et sauvegarder dans mes documents au nom de "& @HOUR&@MIN&@SEC&".jpg")
ElseIf $traiter = "bonjour" Or $traiter = "coucou" Or $traiter = "salut" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
If $nombrebonjour = 0 Then
_GSpeech("fr","de même")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> de même")
ElseIf $nombrebonjour = 1 Then
_GSpeech("fr","euh..."&$traiter)
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> euh..."&$traiter)
If $nombrebonjour >= 2 Then
_GSpeech("fr","à c'est bon t'aisez vous vous m'avez dit plein de fois "& $traiter& ", j'en ai ma claque!")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> à c'est bon t'aisez vous vous m'avez dit plein de fois "& $traiter& ", j'en ai ma claque!")
$nombrebonjour = $nombrebonjour + 1
EndIf
ElseIf $traiter = "remet à zéro la fênetre" Or $traiter = "retourne à zéro" Then
_GUICtrlTreeView_DeleteAll($discufen)
_GSpeech("fr","la fenêtre à été remise à zéro. Que puis-je faire pour vous?")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI>la fenêtre à été remise à zéro. Que puis-je faire pour vous?")
ElseIf $traiter = "comment tu t'appelle?" Or $traiter = "c'est quoi ton nom?" Or $traiter = "comment t'appelles-tu?" Or $traiter = "ton nom c'est quoi?" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr","JE m'appelle LUIGI.")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI>JE m'appelle LUIGI.")
ElseIf $traiter = "va sur le site qui parle de toi" Or $traiter = "va sur ton site" Then
_GUICtrlTreeView_Add($discufen,1,'"va sur le site qui parle de toi"')
_GSpeech("fr","Je n'ai pas de site Internet")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> Je n'ai pas de site Internet")
ElseIf $traiter = "la météo près de chez moi" Or $traiter = "c'est quoi la météo pour moi" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr","tout de suite...")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> tout de suite...")
Run(@ScriptDir&"/meteo.exe")
ElseIf $traiter = "va sur un site web" Or $traiter = "va sur un site" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr","lequel?")
_GUICtrlTreeView_Add($discufen,1,'<LUIGI> lequel?')
$navigsite = InputBox("navigation vers un site...","lequel? (sans http://)")
_GSpeech("fr","vérification de l'URL")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> vérification de l'URL")
$sourceverif = BinaryToString(InetRead("http://"&$navigsite))
If $sourceverif = "" Then
_GSpeech("fr","L'URL est ivalide...")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> l'URL est Invalide...")
Else
_GSpeech("fr","URL valide... navigation vers http://" &$navigsite)
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> URL valide... navigation vers http://" &$navigsite)
ShellExecute("http://" &$navigsite)
EndIf
Else
$readini = IniRead(@ScriptDir&"/com.ini",$traiter,"faitquoi","erreur")
If $readini = "joue un son" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
$arraymusic = _FileListToArray(@MyDocumentsDir&"/Ma Musique","*.mp3",1)
$numero = $arraymusic[0]
$choix = Random(1,$numero,1)
$musicopen = _SoundOpen(@MyDocumentsDir&"/Ma Musique/" & $arraymusic[$choix])
_SoundPlay($musicopen)
_GSpeech("fr","je vous joue le fichier "& $arraymusic[$choix])
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> je vous joue le fichier "& $arraymusic[$choix])
ElseIf $readini = "affiche la météo" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr","tout de suite...")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> tout de suite...")
Run(@ScriptDir&"/meteo.exe")
ElseIf $readini = "fait une recherche google" Then
$forrech = InputBox("rechercher quoi?","entrer votre recherche :")
$forrechsplit = StringReplace($forrech," ","+")
ShellExecute("http://www.google.fr/search?hl=fr&output=search&sclient=psy-ab&q="&$forrechsplit& '&btnG=')
_GSpeech("fr","recherche en cours...")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> recherche en cours...")
ElseIf $readini = "va sur un site web" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr","lequel?")
_GUICtrlTreeView_Add($discufen,1,'<LUIGI> lequel?')
$navigsite = InputBox("navigation vers un site...","lequel? (sans http://)")
_GSpeech("fr","vérification de l'URL")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> vérification de l'URL")
$sourceverif = BinaryToString(InetRead("http://"&$navigsite))
If $sourceverif = "" Then
_GSpeech("fr","l'URL est invalide")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> l'URL est Invalide...")
Else
_GSpeech("fr","URL valide... navigation vers http://"&$navigsite)
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> URL valide... navigation vers http://" &$navigsite)
ShellExecute("http://" &$navigsite)
EndIf
ElseIf $traiter = "recherche google" Or $traiter = "recherche internet" Then
$forrech = InputBox("rechercher quoi?","entrer votre recherche :")
$forrechsplit = StringReplace($forrech," ","+")
ShellExecute("http://www.google.fr/search?hl=fr&output=search&sclient=psy-ab&q="&$forrechsplit& '&btnG=')
_GSpeech("fr","recherchye en cours...")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> recherche en cours...")
ElseIf $readini = "dis l'heure" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr",'il est '&@HOUR&":"&@MIN&" et "&@SEC&" secondes")
_GUICtrlTreeView_Add($discufen,1,'<LUIGI> il est '&@HOUR&":"&@MIN&" et "&@SEC&" secondes")
ElseIf $readini = "arrête de jouer" Then
If $musicopen = 0 Then
_GSpeech("fr","aucun son n'est jouer actuellement")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> aucun son n'est jouer actuellement")
Else
_SoundStop($musicopen)
_GSpeech("fr","le son à été arrêté")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> le son à été arrêté")
EndIf
EndIf
EndIf
$rech = StringSplit($traiter," ")
For $i = 0 to UBound($rech)-1 step 1
If $rech[$i] = "manger" Or $rech[$i] = "mange" Or $rech[$i] = "mangé" Or $rech[$i] = "mangerai" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr","mmm...manger")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> mmmm... manger!")
ExitLoop
ElseIf $rech[$i] = "con" Or $rech[$i] = "connard" Or $rech[$i] = "connasse" Or $rech[$i] = "petasse" Or $rech[$i] = "fils de pute" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr","je sais, je sais")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> je sais ... je sais")
ExitLoop
ElseIf $rech[$i] = "télécharge" Or $rech[$i] = "telecharge" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr","j'adorerais télécharger cela pour vous mais je ne peut pas. Mes plus plates excuses")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> j'adorerais télécharger cela pour vous mais je ne peut pas. Mes plus plates excuses")
ExitLoop
ElseIf $rech[$i] = "triste" Then
_GUICtrlTreeView_Add($discufen,1,'"'&$traiter&'"')
_GSpeech("fr","si vous le dites")
_GUICtrlTreeView_Add($discufen,1,"<LUIGI> si vous le dites")
ExitLoop
EndIf
Next
Case $menucreatecom
run(@ScriptDir &"/com.exe")
Case $menusupcom
Run(@ScriptDir &"/supcom.exe")
EndSwitch
WEnd