voila un petit script que je viens de crée , anti-yaourt. explications :
je le regret de vous dire qu'en Europe (et peut être mondial qui sais) , nous faisons partit des plus nul en Anglais (généralement). Chanter en yaourt est une technique qui consiste à chanter en produisant des sons, des onomatopées, des syllabes qui font penser qu'il s'agit d'une langue réelle. Voila qu'intervient mon script ! il permet dans une salle fenêtre de mettre ses paroles (fichier texte) et sa musique (en mp3). vous cliquez sur la flèche, et c'est parti ! la musique commence. vous pouvez aussi la mettre en pause. j'ai intégré une gui avec internet pour aller chercher son fichier txt.
image : je vous montre la source :
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <Sound.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Anti yaourt", 481, 508, 330, 0)
Global $MenuItem1 = GUICtrlCreateMenu("Menu")
Global $MenuItem2 = GUICtrlCreateMenuItem("chercher un texte", $MenuItem1)
GUISetBkColor(0xFFFFFF)
Global $Edit1 = GUICtrlCreateEdit("", 8, 72, 465, 297)
GUICtrlSetData(-1, "le texte s'affichera ici")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xF0F0F0)
Global $Label1 = GUICtrlCreateLabel("emplacement : ", 72, 32, 399, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Label2 = GUICtrlCreateLabel("Emplacement :", 72, 392, 397, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Pic1 = GUICtrlCreatePic(@ScriptDir&"\data\images.jpg", 26, 384, 33, 34, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Pic2 = GUICtrlCreatePic(@ScriptDir&"\data\61149.gif", 16, 16, 49, 41, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Pic3 = GUICtrlCreatePic(@ScriptDir&"\data\play_button.gif", 168, 440, 49, 33, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Pic4 = GUICtrlCreatePic(@ScriptDir&"\data\pause.jpg", 232, 440, 49, 33, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Label3 = GUICtrlCreateLabel("By Kevzi", 408, 456, 45, 17)
GUICtrlSetColor(-1, 0xFF0000)
Global $Label4 = GUICtrlCreateLabel("Sound : ", 40, 448, 94, 17)
GUISetState()
#EndRegion ### END Koda GUI section ###
$souce = ''
$sound = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic2
$SourceFile = FileOpenDialog("anti yaourt",@ScriptDir&'\',"fichiers txt (*.txt)",9)
GUICtrlSetData($Label1,""& $SourceFile)
If $SourceFile = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$line = FileRead($SourceFile)
If @error = -1 Then ExitLoop
GUICtrlSetData($Edit1,$line)
Case $Pic1
$SourceFile2 = FileOpenDialog("anti yahourt",@ScriptDir&'\',"fichiers mp3 (*.mp3)",9)
GUICtrlSetData($Label2, $SourceFile2)
If $sound = 0 Then
$sound = _SoundOpen($SourceFile2)
EndIf
Case $Pic3
$Label4 = GUICtrlCreateLabel("Sound : play ", 40, 448, 94, 17)
_SoundPlay($sound)
Case $Pic4
$Label4 = GUICtrlCreateLabel("Sound : pause ", 40, 448, 94, 17)
_SoundPause($sound)
Case $MenuItem2
GUI()
EndSwitch
WEnd
FileClose($SourceFile)
_SoundClose($SourceFile2)
Func GUI()
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
$GUI = GUICreate("Anti yaourt - Internet", 540, 380, _
(@DesktopWidth - 540) / 2, (@DesktopHeight - 380) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
GUISetState(@SW_HIDE)
_IENavigate ($oIE, "http://www.google.fr")
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
Case $msg = $GUI_Button_Home
_IENavigate ($oIE, "http://www.google.fr")
Case $msg = $GUI_Button_Back
_IEAction ($oIE, "back")
Case $msg = $GUI_Button_Forward
_IEAction ($oIE, "forward")
Case $msg = $GUI_Button_Stop
_IEAction ($oIE, "stop")
EndSelect
WEnd
GUIDelete()
Exit
EndFunc
pour ceux qui ont des idées , je suis prêt à les entendre car je suis enthousiaste à l'idée de peaufiner mon petit projet