Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG
Auteur Message
Répondre en citant
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 
J'ai fais une petite demo des possibilité de AFFPNG.EXE

Vidéo : --> http://screencast.com/t/W0hrAluPaqGP


Voici le code BAT :

Il est commenté et assez facile à comprendre.
C'est juste une petite démo didactique.

Code:
::Projet Radio BAT
::SachaDee (c) 2014

::Initialisation de la fenêtre
@echo off&cls&color E&Mode con:lines=25 cols=130&Title BAT RADIO BY SachaDee

::On récupère l'état de la derniere utilisation
set /p $state=<state.txt

:radio
::On met Rien dans le clipboard
AffPNG.exe /kill "rien"

::On lock la fenetre pour éviter les mouvements pendant le chargement
start affpng.exe /lockwindow "BAT RADIO BY SachaDee"

:: On récupère les coordonnées de la fenêtre courante

for /f "delims=" %%a in ('AffPNG.exe /getcmdpos "BAT RADIO BY SachaDee"') do (
  for /f "tokens=1-4 delims= " %%1 in ('echo %%a') do (
    set "$TopX=%%1"
    set "$TopY=%%2"
    set "$X=%%3"
    set "$Y=%%4"
    goto:Next
  )
)
pause
Echo Erreur
exit/b

:next

::Les calculs de position pour chaque élement
Set /a $XposMen=(%$X%/2)-(512/2)+%$TopX%
set /a $YposMen=(%$Y%/2)-(16/2)+%$TopY%
Set /a $XposDevil=(%$X%/2)-(128/2)+%$TopX%
set /a $YposDevil=(%$Y%/2)-(128/2)+%$TopY%
Set /a $XposStation=%$TopX%+20
set /a $YposStation=%$TopY%+250
Set /a $XposCasque=%$TopX%+700
set /a $YposCasque=%$TopY%+45

start AffPNG.exe "http://www.1.fm/station/%$state%" /Xpos %$XPosStation% /YPos %$YPosStation% /web /width 620 /heigth 70 /Widthcor -125 /HeigthCor -15 /attach "BAT RADIO BY SachaDee" /nokill "station"
cls&ECHO Loading !!!
start AffPNG.exe "%cd%\Devil.swf" /flash /width 128 /Heigth 128 /Xpos %$XPosDevil% /Ypos %$YPosDevil% /attach "BAT RADIO BY SachaDee" /nokill "Devil"
ping localhost -n 7 >nul
start AffPNG.exe /kill "Devil"
start AffPNG.exe "%cd%\MenuRadio.swf" /flash /width 512 /Heigth 16 /Xpos %$XPosMen% /Ypos %$YPosMen% /attach "BAT RADIO BY SachaDee" /nokill "AnimMenu"
ping localhost -n 2 >nul
start AffPNG.exe "%cd%\Casque.swf" /flash /width 64 /Heigth 64 /Xpos %$XPosCasque% /Ypos %$YPosCasque% /attach "BAT RADIO BY SachaDee" /nokill "AnimCasque"
goto:choisir

:Choisir
::On Unlock la fenetre
start affpng.exe /ul
cls&set/p "$result=Votre S‚lection : "
If %$Result%==1 set "$station=Reggae"
If %$Result%==2 set "$station=crock"
If %$Result%==3 set "$station=electronica"
If %$Result%==4 set "$station=funkyexpress"
If %$Result%==5 set "$station=disco"
If %$Result%==6 set "$station=gospel"
if %$Station%==%$State% goto:choisir
set $State=%$Station%
echo %$State%>state.txt
AffPNG.exe /kill "station"
AffPNG.exe /kill "AnimMenu"
AffPNG.exe /kill "AnimCasque"
goto:radio



Et voici le pack complet : Download

Il vous suffit de décompacter dans un dossier et lançer RadioBat.bat

J'attend vos commentaire !!!

Okay



Dernière édition par sachadee le Mar 10 Nov 2015 - 13:03; édité 6 fois

______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 
Link not found Sad



Visiter le site web du posteur
Répondre en citant
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 
Rrroh sacha pas de sendspace feigniant Laughing en plus j'ai plus l'exemple sur mon PC




______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 
J'Hallucine, j'ai mis un lien sendspace. Comme quoi........

Je vais corriger dès que possible !

Excusez-moi


Mr. Green




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 
The Nouveau lien :

https://drive.google.com/file/d/0B9yh04HYXto1V1Etand1NjlhQ0U/view?usp=shari…


Okay




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 
Un seul truc à dire: c'est de la balle, bravo Okay




______________________________________________________
│Øδ@π.
Visiter le site web du posteur Skype
Répondre en citant
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 
Enfin.....!!!!

Version modifiée et adaptée pour Windows 10

Mort de Rire

Okay




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 
Marche parfaitement pour win10 par contre quand on change de station de radio, ça stoppe pas la musique d'avant ^^ Sauf si on cherche à faire DJ avec du disco + gospel en même temps Laughing




______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 
Oui sky j'ai vu ça,

mais étonnemment si tu recharge ça le fais plû.

Je vais voir ça il y a un bug avec le paramètres [/web]

Merci !

Okay




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 
De rien Laughing et oui quand on recharge ça le fait plus




______________________________________________________
Visiter le site web du posteur
Message [BAT/AFFPNG.EXE] RADIOBAT exemple d'application pour AFFPNG 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch