[..] Projet : GUI MSN & OUTILS

[ethneldryt]

Voila je vous pressente un petit projet que je commence.
C'est un web msn (ebuddy.com) qui j'intègre dans une GUI.
Mais ce n'est pas tout! Je vais aussi ajouter de petit truc, comme par exemple une radio, un lecteur de musique et autres...
Je mettrai a jour ce poste a chaque fois que je ferrai une modification.
Si quelqu'un a une suggestion, veux optimiser le code ou autres, merci de le faire a la suite de ce poste. La version finale serra bien sur mieux organiser (j'entends par la, par exemple les var $test, seront renommer).

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

21/10/2008 :
-Code en vrac.

27/10/2008 :
-Modification du nom des variables.
-Ajout de plusieurs radio.
-Ajout d'un écran de connexion.
-Ajout d'un bouton dans le tray pour restaurer la fenêtre en cas de réduction.

28/10/2008 :
-Ajout d'effet.

06/11/2008 :
-Correction d'un bug.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

<!>Problème connue :<!>
-..

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <IE.au3>
#Include <date.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <SliderConstants.au3>
#include <_winanimate.au3>

Opt("TrayMenuMode",1)
$startH = GuiCreate("Ethnel-MSN", 400, 320,-1,-1,0x80880000)
_WinAnimate($startH,  $AW_FADE_IN)
GUISetState()
$imgGUI = GUICtrlCreatePic("ethnel.jpg",25,10,350,200)
$labLOGIN = GUICtrlCreateLabel("Votre adresse de connexion :",30,222,-1,20)
$labPASSE = GUICtrlCreateLabel("Votre mot de passe :",70,252,-1,20)
$homeOK = GUICtrlCreateButton("CONNEXION",80,280)
$homeNON = GUICtrlCreateButton("NE PAS UTILISER MSN",200,280)
$homeEXIT = GUICtrlCreateButton("[X]",378,2,20,20)
$inpLOGIN = GUICtrlCreateInput("",175,220,200,20)
$inpMDP = GUICtrlCreateInput("",175,250,200,20)
TraySetIcon("Shell32.dll",10) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;modifier;;;;;;;;;;;;;;;;;;;;;;;;

While 1
    $msgX = GuiGetMsg()
    Select
        Case $msgX = $homeEXIT
            _WinAnimate($startH,  $AW_FADE_OUT)
            Exit
        case $msgX = $homeOK
            $loginMSN = GUICtrlRead($inpLOGIN)
            $mdpMSN = GUICtrlRead($inpMDP)
            $quest = "YES"
            ExitLoop
        case $msgX = $homeNON
            $quest = "NO"
            ExitLoop
    EndSelect
WEnd    

_WinAnimate($startH,  $AW_FADE_OUT)
GUIDelete()
$gui = GuiCreate("Ethnel-MSN", 395, 600,@DesktopWidth-400,@DesktopHeight-630,0x00000000)

$reduire = GUICtrlCreateButton("[cacher]",310,2,50,23)
$quitter = GUICtrlCreateButton("[X]",365,2,20,23)

_WinAnimate($gui,  $AW_EXPLODE)
GUISetState()

$tabGUI = GUICtrlCreateTab(5, 5, 385, 560)

if $quest = "YES" Then
    $tabMSN = GUICtrlCreateTabItem(" Ebuddy : Connexion...")
    $ieGUI = _IECreateEmbedded()
    $ieobject = GUICtrlCreateObj($ieGUI,10,30,375,530)
    ControlHide("Ethnel","",$ieGUI)
    _IENavigate($ieGUI,"http://paris.ebuddy.com/vo6.19.11/start.jsp")
    _IEloadwait($ieGUI)
    $ieMAIL = _Iegetobjbyname($ieGUI,'username')
    _IEFormElementSetValue($ieMAIL,$loginMSN)  
    sleep(1000)
    $iePASS = _Iegetobjbyname($ieGUI,'password')
    _IEFormElementSetValue($iePASS,$mdpMSN)  
    sleep(1000)
    $ieGO = _Iegetobjbyname($ieGUI,'login_submit')
    _Ieaction($ieGO,'click');
    _IEloadwait($ieGUI)
    GUICtrlSetData($tabMSN," Ebuddy : " & $loginMSN)
    ControlShow("Ethnel","",$ieGUI)
EndIf

$tabRADIO = GUICtrlCreateTabItem(" Radio : OFFLINE ")
$menu = GUICtrlCreateListView("Type de radio|                 Station                 ",10,100,375,460,0x0004)
$menuAW = GUICtrlCreateListViewItem("Infos",$menu)
$menuAA = GUICtrlCreateListViewItem("| RTL ",$menu)
$menuAB = GUICtrlCreateListViewItem("| RMC ",$menu)
$menuAC = GUICtrlCreateListViewItem("| France Inter ",$menu)
$menuAD = GUICtrlCreateListViewItem("| France Info ",$menu)
$menuAE = GUICtrlCreateListViewItem("| BFM ",$menu)
$menuAF = GUICtrlCreateListViewItem("| Europe 1 ",$menu)
$menuAX = GUICtrlCreateListViewItem(" ",$menu)
$menuAY = GUICtrlCreateListViewItem("---------------|---------------",$menu)
$menuAZ = GUICtrlCreateListViewItem(" ",$menu)
$menuBW = GUICtrlCreateListViewItem("Musicales",$menu)
$menuBA = GUICtrlCreateListViewItem("| Contact ",$menu)
$menuBB = GUICtrlCreateListViewItem("| Nostalgie ",$menu)
$menuBC = GUICtrlCreateListViewItem("| Fun Radio ",$menu)
$menuBE = GUICtrlCreateListViewItem("| Rire et chanson ",$menu)
$menuBF = GUICtrlCreateListViewItem("| Cherie FM ",$menu)
$menuBG = GUICtrlCreateListViewItem("| Skyrock ",$menu)
$menuBH = GUICtrlCreateListViewItem("| NRJ ",$menu)
$menuBI = GUICtrlCreateListViewItem("| Virgin Radio ",$menu)
$menuBJ = GUICtrlCreateListViewItem("| France musique ",$menu)
$menuBK = GUICtrlCreateListViewItem("| RFM ",$menu)
$menuBL = GUICtrlCreateListViewItem("| Frequence rock ",$menu)
$menuBX = GUICtrlCreateListViewItem(" ",$menu)
$menuBY = GUICtrlCreateListViewItem("---------------|---------------",$menu)
$menuBZ = GUICtrlCreateListViewItem(" ",$menu)

$mediaERROR = ObjEvent("AutoIt.Error","Quit")
$media = ObjCreate("WMPlayer.OCX.7")
If Not IsObj($media) Then Exit
$media.Enabled = true
$media.WindowlessVideo= true
$media.UImode="invisible"
$mediaCTRL=$media.Controls
$mediaSET=$media.Settings
$mediaCTRL.Stop
$mediaVOL = GuiCtrlCreateSlider(70, 55, 258, 20)

GuiCtrlCreateLabel("VOLUME", 175, 40)
GUICtrlSetData($mediaVOL, 50)

$mediaPLAY = GuiCtrlCreateButton("Play", 10, 65, 50, 30)
$mediaSTOP = GuiCtrlCreateButton("Stop", 335, 65, 50, 30)
$mediaMIN = GuiCtrlCreateButton("0%", 70, 78, 32, 20)
$mediaMED = GuiCtrlCreateButton("50%", 185, 78, 32, 20)
$mediaMAX = GuiCtrlCreateButton("100%", 298, 78, 32, 20)
$mediaVOLVL = 100

GUICtrlCreateTabItem("")

$trayMENU = TrayCreateItem("Afficher")

While 1
    $msg = GuiGetMsg()
    $tray = TrayGetMsg()
    Select
    Case $msg = $quitter
            _WinAnimate($gui,  $AW_IMPLODE)
            ExitLoop            
        Case $msg = $reduire
            _WinAnimate($gui, $AW_SLIDE_OUT_BOTTOM)
            TrayTip("Informations","Ethnel-Messenger a ete reduit," & @CRLF & "Cliquez ici pour voir les options",10,1)
            GUISetState(@SW_MINIMIZE)
            GUISetState(@SW_HIDE)
        case $tray = $trayMENU  
            GUISetState(@SW_SHOW)
            ControlHide("Ethnel","",$gui)
            ControlShow("Ethnel","",$gui)
        Case $msg = $mediaPLAY
            $mediaCTRL.Play
        Case $msg = $mediaMIN
            GUICtrlSetData($mediaVOL, 0)
        Case $msg = $mediaMED
            GUICtrlSetData($mediaVOL, 50)
        Case $msg = $mediaMAX
            GUICtrlSetData($mediaVOL, 100)
        Case $msg = $menuAA
            $media.URL="http://streaming.radio.rtl.fr/rtl-1-44-96"  
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuAB
            $media.URL="http://cache.yacast.fr/V4/rmc/rmc.m3u"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuAC
            $media.URL="http://www.tv-radio.com/station/france_inter_mp3/france_inter_mp3-128k.m3u"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuAD
            $media.URL="http://players.creacast.com/creacast/france_info/playlist.m3u"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuAE
            $media.URL="http://cache.yacast.net/V4/bfm/bfm.m3u"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuAF
            $media.URL="http://live.europe1.fr/V4/europe1/europe1.asx"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBA
            $media.URL="http://213.186.39.130:8000/live64.m3u"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBB
            $media.URL="http://player.nostalgie.fr/V4/nostalgie/nostalgie.asx"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBC
            $media.URL="http://radio.funradio.fr/funradio.asx"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBE
            $media.URL="http://player.rireetchansons.fr/V4/rireetchansons/rireetchansons.asx"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBF
            $media.URL="http://player.cheriefm.fr/V4/cheriefm/cheriefm.asx"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBG
            $media.URL="http://player.skyrock.com/V4/skyrock/skyrock.asx"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBH
            $media.URL="http://player.nrj.fr/V4/nrj/nrj.asx"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBI
            $media.URL="http://viphttp.yacast.fr/V4/virgin/virgin.asx"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBJ
            $media.URL="http://www.tv-radio.com/station/france_musique_mp3/france_musique_mp3-128k.m3u"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBK
            $media.URL="http://viphttp.yacast.net/V4/player_rfm/rfm.asx"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $menuBL
            $media.URL="http://www.frequencemetz.fr/listen/high.asx"
            GUICtrlSetData($tabRADIO," Radio : " & StringRegExpReplace(GUICtrlRead($msg),"[|]",""))
        Case $msg = $mediaSTOP
            $mediaCTRL.Stop
        Case Else
            If GUICtrlread($mediaVOL) <> $mediaVOLVL Then
                $mediaSET.Volume = GUICtrlRead($mediaVOL)
                $mediaVOLVL = GUICtrlRead($mediaVOL)
            EndIf
    EndSelect
WEnd
Exit
 

ps:Si quelqu'un aurai n méthode pour éviter d'écrire a chaque fois une ligne pour une radio, par exemple dans un txt, je suis preneur.

[DJSIR]

Tu devrais garder les parametres de eBuddy dans un .txt ou .ini

EDIT : En fouillant sur le web : j'ai trouvé ceci (.exe a renommer). Dommage que je n'aie pas la source cela aurait été bien pour ton soft. Si quelqun pouvait le décompiler !

[ethneldryt]

Je pense que cela doit être simple a faire
J'ai une question, comment intégrer 2 input et un bouton dans la gui de la tab0 puis quand on clique dessus ca envoie les info?
Je n'y arrive pas..

[ani]

@djsir une recherche sur le forum anglais concernant le ITS_CLIENT, t'aurai pu tomber sur son topic voir lien, si on regarde bien il utilise une méthode de cryptage (obfuscated) .voilàvoilà pas besoin de décompiler

bonne continuation

[ethneldryt]

Ce que j'aimerai faire mais que je ne sais pas faire :
-Cacher la fenêtre ie avec ebuddy mais pas la GUI et la ré afficher au moment du "click",
-Quand on se connecte, c'est la tabRADIO qui s'ouvre, j'aimerai re basculer sur la tabMSN.
-Une fois connecter cacher par exemple avec un label,la petite publicité en bas en l'écrasant, j'ai tenter un label mais la fenêtre ie reprend le dessus..
-Intégrer ma JPG dedans.

Merci de votre aide

[ethneldryt]

Voila une petite mise a jour. Si quelqu'un pouvais m'aider a résoudre les problèmes je l'en remercie d'avance

[ani]

Pour ma part çà sera dure, je ne dispose d'aucun des logiciel que tu propose (wmp & msn)
je ne connaissait pas non plus cette url paris.ebuddy, qui a fait ce site ? je me risquerai pas de taper mdp ou name ^^'

bonne continuation

[ethneldryt]

tu as besoin de wmp pour lire les radio c'est tout. Pas besoin d'avoir msn installer, c'est un web gui. Sinon pour le paris ebuddy, cela viens de ebuddy.com, rien a craindre,je l'utilise depuis tres longtemps

[ethneldryt]

Personne ne peux m'aider pour mes problèmes? Le plus embêtant est celui quand on ré affiche avec le menu du tray, j'ai l'impression que la fenêtre gui ne n'actualise pas, si on passe par exemple une fenêtre sur la gui, ca redeviens normal. Aussi j'aimerai savoir comment basculer d'une tab a l'autre avec une fonction? Merci.

[ethneldryt]

Besoin d'aide pour continuer mon programme

[Tlem]

Sur le forum 'Exemples de script', ne doivent être mis que les scripts et les annonces de leurs mises à jour. Pas de développement sur ce forum.

En haut de chaque forum, il y à un message d'annonce : A lire avant de poster ! qu'il est nécessaire de lire au moins une fois.

Je déplace donc ce topic dans le forum 'Aide générale'.