FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Hier à 23:55

» KGF_dll - nouvelles versions
par pascal10000 Hier à 17:27

» Mah-Jong européen new-look
par Minibug Mar 12 Déc 2017 - 22:31

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Projet Gestionnaire de service (Utilitaire)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 3:37

Bonjour,

Je debute donc ma modeste contribution par ce debut de code
Il s'agit d'un getionnaire de service windows (un lanceur reduit de 2 services) pour lequels je cherche a faire une application en mode fenetre

j'ai dej aposté le code dans la rubrique "a l'aide" et Nardo26 n'as bien aidé donc je posterait icic mon projet disons "nettoyé" au fur et a mesure de l'evolution de l'application
Nb:il faut juste rajouter form.dll de nardo26 dans c:\pour les tests

Code du gestionnaire de service

Code:
DLL_ON "c:\form.dll"
label quit
label demma
label test
label aide
label menufd
label menufs
label menufi
label menuid
label menuis
label menuii
label sto
label actu
label apropos
label statut
label ret
label mess1

dim e$,f$,n$,i$,g$,k$,s$,retour,v$,j$,l$
dim m$,o$,p$,q$,r$,ef$,ei$,ctf$


DIM batch$:batch$="start.bat"
DIM batch2$:batch2$="etat2.bat"
ctf$="        STATE              : 4  RUNNING "
e$="@ cmd /c net helpmsg 2182>c:\etat.txt"
j$="@ cmd /c net helpmsg 3521>c:\etat.txt"
l$="@SC query "
m$=" | FIND "
p$="STATE"
o$=">"
r$="c:\"
q$=".txt"
s$="@ start /b /min net stop "
g$="
n$="@ start /b /min net start "
f$="FreeMi UPnP Media Server"
i$="iTunesExport Service"
left 0,500
top 0,550
width 0,285
height 0,125
caption 0,"Pack FreeMi -FreeAddons.free.fr"
rem message dir_current$
retour = DLL_CALL2("SetSize",HANDLE(0),0)
retour = DLL_CALL2("SetMaximize",HANDLE(0),0)
WIDTH 0,WIDTH(0) : ' obligatoire pour "forcer" le rafraichissement de l'affichage du formulaire
ON_CLOSE 0,quit

rem Creation of a menu
main_menu 1

rem Creation of 2 sub_menus at the same level
sub_menu 2 : caption 2,"Fichier" : parent 2, 1
sub_menu 3 : caption 3,"Services" : parent 3, 1
sub_menu 5 : caption 5,"A propos" : parent 5, 1
sub_menu 40 : caption 40,"Etat" : parent 40, 1
rem Creation of 3 Sub_Menus to Sub_Menu 2 (Files)
sub_menu 4 : caption 4,"Aide" : parent 4, 2
sub_menu 6 : caption 6,"Quitter" : parent 6, 2
rem action on click
on_click 2,test
on_click 6,quit
on_click 4,aide
on_click 5,apropos
on_click 40,statut
combo 11
top 11,1 :left 11,1
height 11,10
width 11,160
text 11,"Choix du service ?"
item_add 11,f$
item_add 11,i$
on_change 11,actu
on_click 11,actu
rem Creation of 3 Sub_Menus to Sub_Menu 3 (Edition)
sub_menu 7 : caption 7,f$ : parent 7, 3
sub_menu 8 : caption 8,i$ : parent 8, 3
sub_menu 9 : caption 9,"Aide" : parent 9, 3
rem Creation of 3 Sub_Menus to Sub_Menu 7 (FreeMi)
sub_menu 18 : caption 18,"Démarrer" : parent 18, 7
sub_menu 19 : caption 19,"Arréter" : parent 19, 7
sub_menu 20 : caption 20,"Installer/Réparer" : parent 20, 7
on_click 9,aide
on_click 18,menufd
on_click 19,menufs
on_click 20,menufi
rem Creation of 3 Sub_Menus to Sub_Menu 8 (itunes)
sub_menu 21 : caption 21,"Démarrer" : parent 21, 8
sub_menu 22 : caption 22,"Arréter" : parent 22, 8
sub_menu 23 : caption 23,"Installer" : parent 23, 8

form 25
hide 25
left 25,500
top 25,550
width 25,285
height 25,300
caption 25,"A propos..."
rem picture 50 :parent 50,25
rem left 50,43
rem top 50,65

Rem  Width et Height doivent correspondre à la taille de votre image
rem width 50,90
rem height 50,24

rem Remplacez par le nom de votre propre image.

rem file_load 50,"c:\freea.bmp"
rem on_click 50,actu
alpha 30 : parent 30,25 :hide 30
rem container 30 : parent 30,25 :hide 30
rem left 30,5
rem top 30,10
caption 30,"      FreeMipack 2.0"
rem alpha 31 :parent 31,30
rem left 31,1
rem top 31,35
caption 30,"      FreeMiPack -FreeAddOns"
left 30,1
top 30,30
alpha 31 : parent 31,25 :hide 31
caption 31,"      Version:2.0 beta"
left 31,1
top 31,50
alpha 32 : parent 32,25 :hide 32
caption 32,"      Auteur: William Meunier"
left 32,1
top 32,70
alpha 33 : parent 33,25 :hide 33
caption 33,"      Site Web: http://freeaddons.free.fr"
left 33,1
top 33,90
alpha 34 : parent 34,25 :hide 34
caption 34,"      Contact:freeaddons@free.fr"
left 34,1
top 34,110
button 26 : parent 26,25
top 26,130 : left 26,150 : caption 26,"Fermer"
on_click 9,aide
on_click 21,menuid
on_click 22,menuis
on_click 20,menuii
button 12
top 12,35
left 12,190
caption 12,"Arrèter"
on_click 12,sto
button 13
top 13,1
left 13,190
caption 13,"Démarrer"
on_click 13,demma
rem alpha 29
rem left 29,1
rem top 29,35
alpha 14
left 14,1
top 14,30
alpha 37
left 37,1
top 37,50
height 14,10
combo 38 :hide 38
top 38,50
left 38,1
width 38,180
height 38,10
alpha 39
top 39,50
left 39,1
width 39,180
height 39,10
combo 45
combo 43
alpha 44
top 44,15
alpha 42
top 42,45
alpha 41
top 41,1
alpha 46
top 46,30
test:
file_load 45,g$+r$+f$+q$+g$
hide 45

file_load 43,g$+r$+i$+q$+g$
hide 43
caption 44,item_read$(45,1)
ef$=ITEM_read$(45,1)
rem caption 44,ef$

hide 44
caption 42,item_read$(43,1)
ei$=ITEM_read$(43,1)
hide 42
caption 41,f$
hide 41
caption 46,i$
hide 46
cls
hide 41
hide 42
hide 44
hide 46
show 14
show 11
show 12
show 13
show 39
rem caption 29,v$
caption 39,item_read$(38,1)
k$=ITEM_INDEX$(11)
file_load 38,g$+r$+k$+q$+g$
end

menufd:
k$=f$
caption 14,"Gestion de "+k$
goto demma
return
menufs:
k$=f$
caption 14,"Gestion de "+k$
goto sto
return

menufi:
execute "c:\setup.msi"
return
menuid:
k$=i$
caption 14,"Gestion de "+k$
goto demma
return
menuis:
k$=i$
caption 14,"Gestion de "+k$
goto sto
return

menuii:
execute "explorer.exe"
return
demma:
rem hide 36
rem show 36
file_open_write 17,"start.bat"
file_writeln 17,n$+g$+k$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
file_open_write 17,"start.bat"
file_writeln 17,e$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
rem item_delete 38,1
text 38,"Etat du service"
rem print item_read$(38,1)
hide 38
file_open_write 17,"etat2.bat"
file_writeln 17,l$+g$+k$+g$+m$+g$+p$+g$+o$+g$+r$+k$+q$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch2$))
file_load 38,g$+r$+k$+q$+g$

IF retour=1
message "Service Démarré"
rem execute "msg * demmarage"
rem EXECUTE "C:\dem.bat"
rem file_load 36,"c:\etat.txt"
ELSE
 MESSAGE "Erreur"
END_IF
goto actu
return

sto:
rem hide 36
rem show 36
file_open_write 17,"start.bat"
file_writeln 17,s$+g$+k$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
file_open_write 27,"start.bat"
file_writeln 27,j$
file_close 27
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
IF retour=1
message "Service arreté"
rem execute "notepad c:\etat.txt"
rem file_load 36,"c:\etat.txt"

rem item_delete 38,1
text 38,"Etat du service"
file_open_write 17,"etat2.bat"
file_writeln 17,l$+g$+k$+g$+m$+g$+p$+g$+o$+g$+r$+k$+q$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch2$))
file_load 38,g$+r$+k$+q$+g$
ELSE
 MESSAGE "Erreur"
END_IF
goto actu
return

statut:
hide 14
hide 11
hide 12
hide 13
hide 39
hide 38
cls
if ef$=ctf$
rem message "Service ok"
caption 44,"STATUS:OK"
color 44,0,255,0
else
rem message "erreur variable"
caption 44,"STATUS:KO"
color 44,255,0,0
end_if
if ei$=ctf$
rem message "Service ok"
caption 42,"STATUS:OK"
color 42,0,255,0
else
rem message "erreur variable"
caption 42,"STATUS:KO"
color 42,255,0,0
end_if
show 44
show 41
show 42
show 46





return

mess1:
message "fgdsgdfs"
end
apropos:
show 25
show 30
show 31
show 32
show 33
show 34
rem show 35
rem show 36
rem picture 47 : parent 47,25
rem file_load 47,"c:\freea.bmp"
on_click 26,ret
return

ret:
rem delete 25
hide 25
hide 30
hide 31
hide 32
hide 33
hide 34
rem hide 36
to_foreground 0
return
aide:

EXECUTE "http://freeaddons.free.fr/"
return

actu2:
return
actu:

caption 14,"Gestion de "+ITEM_INDEX$(11)
goto test
end
return
quit:
DLL_OFF
terminate
return

Voila il est tard je mettrait le code epuré plus tard mais ca fonctionne normalement donc a tester et a commenter surtout

Ne soyez pas trop dur je débute en programmation Sad Sad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
JL35



Nombre de messages : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 12:19

A première vue, de même que l'image au bas de ton post (remarque déjà faite ailleurs), ça semble être un programme publicitaire entièrement dédié au site free addons .free .fr dans lequel tu as des intérêts je suppose, je me trompe ?

(l'orthographe laisse aussi un peu à désirer...)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 14:10

je pense la même chose que toi JL35
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 16:21

même reponse c'est mon site perso!
il s'agit de faire partager des imformation sur mon site
faites un tour sur mon site je vous invite
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 16:41

Signature rectifié jl35
J'espère que ca convient mieu
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 16:45

Hallo wiwi60,
dies ist ein Forum für Panoramic.
Ich persönlich finde Werbebanner in diesem Forum schlecht.
Es wäre schön wenn sie diese entfernen.
Ein Link mit Hinweis wie bisher üblich ist ok.
Also wiwi60 nicht böse sein, aber das ist meine Meinung.
Severin

Hello wiwi60,
This is a forum for Panoramic.
I personally find this forum banners bad.
It would be nice if they remove them.
A link with information is usually ok as before.
So wiwi60 not be angry, but that's my opinion.
Severin

Bonjour wiwi60,
Ceci est un forum de panoramique.
Personnellement, je trouve ce forum de bannières mauvais.
Ce serait bien si on les supprimer.
Un lien avec l'information est généralement ok comme avant.
Alors wiwi60 pas être en colère, mais c'est mon opinion.
Severin
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 17:24

Moi, la nouvelle signature me convient parfaitement, faire de la pub pour son site n'est pas gênant en soit s'il n'y a pas d'abus. Tu devrais mettre juste une petite phrase de texte à coté de l’icône pour te présenter et dire que l'on peut aller sur ton site perso en cliquant sur l'icône. Mais bon, c'est mon point de vue personnel
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 17:50

Voila j'ai modifié la signature espèrant ne pas avoir froissés certaines il n'y avait aucun envie de faire de la pub j'ai mis la signature que j'utilise sur tout le forum ou je m'inscris
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
JL35



Nombre de messages : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 17:50

Pas trop d'accord, on n'est pas ici pour se faire de la pub, il y a d'autres rubriques pour ça, d'autant plus que le programme proposé me paraît assez... publicitaire lui aussi.
Et le lien caché dans une image, pas d'accord non plus, bon, ça a été rectifié, encore qu'il en reste une petite avec le même lien.

Mais ce n'est que mon opinion.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 17:53

Voila JL35 sans aucun lien dans la signature
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 17:56

Pourquoi mon programme est publicitaire? jessai de programmer un soft et on ne parle que de ma signature j'attendais d'autre commentaire
pour ma part j'ai mis un lien sur mon site vers panoramic Basic et son forum
Et encore Merci a Nardo26 q Wink qui lui critique mon code et mon programme
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
JL35



Nombre de messages : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 17:56

C'est mieux. Mais tu n'es pas obligé de répéter l'adresse de ton site à chaque intervention que tu vas faire, ça va devenir lassant, la freebox on s'en fiche un peu.
Tu demandes à Jack de mettre l'adresse de ton site en page d'accueil, comme tous les autres.

Quant à ton programme, comme il contient lui aussi beaucoup de références à ton site, je n'ai pas eu trop envie de l'étudier plus à fond, mais ça ça ne regarde que moi, peut-être d'autres ici vont être intéressés.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 18:08

Perso, j'ai un problème comme je n'ai pas tout les fichier, mais je pense que tu as tord JL35 sur ce coup là, wiwi60 a fait en Panoramic le programme nécessaire à ces utilitaires liés à la Freebox.
D'accord, c'est du spécifique, mais bon, ce n'est pas la première fois qu'il y a du spécifique. La prochaine fois wiwi60 abordera peut-être un autre sujet.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 18:28

JL35 dans mon code il n'ya que 2 liens vers mon site c'etait pour tester la fonction web et rediriger vers une page d'aide
Je cherche juste a comprendre ce langage et a l'adapter a mes besoins quotidiens et le dit jcehel cest pour faire fonctionner tout mes logiciels autour de la freebox et je pense qu'n gestionnaire de service peut service a d'autres

Merci a tous les membres du forum

Ps: cette fois j'espere la signature te convient
Wait and see...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
JL35



Nombre de messages : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 18:32

Tout va bien wiwi, tout est en ordre ! et amuse-toi bien avec Panoramic !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 18:33

Merci JL35 revenons en a nos moutons panoramic........ Laughing Laughing Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Sam 3 Déc 2011 - 18:38

Gestionnaire de service
Decembre 2011

Code du 03/12/2011
Dernières modifications
Code:
DLL_ON "form.dll"
label quit
label demma
label test
label aide
label menufd
label menufs
label menufi
label menuid
label menuis
label menuii
label sto
label actu
label apropos
label statut
label ret
label mess1

dim e$,f$,n$,i$,g$,k$,s$,retour,v$,j$,l$
dim m$,o$,p$,q$,r$,ef$,ei$,ctf$


DIM batch$:batch$="start.bat"
DIM batch2$:batch2$="etat2.bat"
ctf$="        STATE              : 4  RUNNING "
e$="@ cmd /c net helpmsg 2182>c:\etat.txt"
j$="@ cmd /c net helpmsg 3521>c:\etat.txt"
l$="@SC query "
m$=" | FIND "
p$="STATE"
o$=">"
r$="c:\"
q$=".txt"
s$="@ start /b /min net stop "
g$="
n$="@ start /b /min net start "
f$="FreeMi UPnP Media Server"
i$="iTunesExport Service"
k$="0"
left 0,560
top 0,560
width 0,271
height 0,153
caption 0,"Pack FreeMi -FreeAddons.free.fr"
rem message dir_current$
retour = DLL_CALL2("SetSize",HANDLE(0),0)
retour = DLL_CALL2("SetMaximize",HANDLE(0),0)
WIDTH 0,WIDTH(0) : ' obligatoire pour "forcer" le rafraichissement de l'affichage du formulaire
ON_CLOSE 0,quit

rem Creation of a menu
main_menu 1

rem Creation of 2 sub_menus at the same level
sub_menu 2 : caption 2,"Fichier" : parent 2, 1
sub_menu 3 : caption 3,"Services" : parent 3, 1
sub_menu 40 : caption 40,"Etat" : parent 40, 1
sub_menu 5 : caption 5,"A propos" : parent 5, 1
rem Creation of 3 Sub_Menus to Sub_Menu 2 (Files)
sub_menu 4 : caption 4,"Aide" : parent 4, 2
sub_menu 6 : caption 6,"Quitter" : parent 6, 2
rem action on click
on_click 2,test
on_click 6,quit
on_click 4,aide
on_click 5,apropos
on_click 40,statut
combo 11
top 11,1 :left 11,1
height 11,10
width 11,160
text 11,"Choix du service ?"
item_add 11,f$
item_add 11,i$
on_change 11,actu
on_click 11,actu
rem Creation of 3 Sub_Menus to Sub_Menu 3 (Edition)
sub_menu 7 : caption 7,f$ : parent 7, 3
sub_menu 8 : caption 8,i$ : parent 8, 3
sub_menu 9 : caption 9,"Aide" : parent 9, 3
rem Creation of 3 Sub_Menus to Sub_Menu 7 (FreeMi)
sub_menu 18 : caption 18,"Démarrer" : parent 18, 7
sub_menu 19 : caption 19,"Arréter" : parent 19, 7
sub_menu 20 : caption 20,"Installer/Réparer" : parent 20, 7
on_click 9,aide
on_click 18,menufd
on_click 19,menufs
on_click 20,menufi
rem Creation of 3 Sub_Menus to Sub_Menu 8 (itunes)
sub_menu 21 : caption 21,"Démarrer" : parent 21, 8
sub_menu 22 : caption 22,"Arréter" : parent 22, 8
sub_menu 23 : caption 23,"Installer" : parent 23, 8

form 25
hide 25
left 25,700
top 25,450
width 25,245
height 25,200
caption 25,"A propos..."
picture 50 :parent 50,25
left 50,2
top 50,2
height 50,90
width 50,150
Rem  Width et Height doivent correspondre à la taille de votre image
rem width 50,90
rem height 50,24

rem Remplacez par le nom de votre propre image.

file_load 50,"c:\freea.jpg"
rem on_click 50,actu
alpha 30 : parent 30,25 :hide 30
rem container 30 : parent 30,25 :hide 30
rem left 30,5
rem top 30,10
caption 30,"      FreeMipack 2.0"
rem alpha 31 :parent 31,30
rem left 31,1
rem top 31,35
caption 30,"FreeMiPack - FreeAddOns"
left 30,1
top 30,50
alpha 31 : parent 31,25 :hide 31
caption 31,"Version:      2.0 beta"
left 31,1
top 31,70
alpha 32 : parent 32,25 :hide 32
caption 32,"Auteur: William Meunier"
left 32,1
top 32,90
alpha 33 : parent 33,25 :hide 33
caption 33,"Site Web: http://freeaddons.free.fr"
on_click 33,aide
font_color 33,255,0,0
font_underline 33
left 33,1
top 33,110
alpha 34 : parent 34,25 :hide 34
caption 34,"Contact: freeaddons@free.fr"
left 34,1
top 34,130
button 26 : parent 26,25
top 26,130 : left 26,150 : caption 26,"Fermer"
on_click 9,aide
on_click 21,menuid
on_click 22,menuis
on_click 20,menuii
rem container 35
rem top 35,1
rem left 35,189
rem width 35,80
rem height 35,60
button 12 :rem parent 12,35
top 12,2
left 12,180
width 12,80
caption 12,"Arrèter"
on_click 12,sto
button 13 :rem parent 13,35
top 13,32
left 13,180
width 13,80
caption 13,"Démarrer"
on_click 13,demma
rem alpha 29
rem left 29,1
rem top 29,35
alpha 14
left 14,1
top 14,30
width 14,160
rem alpha 37
rem left 37,1
rem top 37,50
height 14,10
combo 38 :hide 38
top 38,50
left 38,1
width 38,180
height 38,10
alpha 39
top 39,70
left 39,1
width 39,180
height 39,10
font_size 39,12
combo 45
combo 43
alpha 44
top 44,15
alpha 42
top 42,45
alpha 41
top 41,1
alpha 46
top 46,30

test:
file_load 45,g$+r$+f$+q$+g$
hide 45
file_load 43,g$+r$+i$+q$+g$
hide 43
caption 44,item_read$(45,1)
ef$=ITEM_read$(45,1)
caption 44,ef$
hide 44
caption 42,item_read$(43,1)
ei$=ITEM_read$(43,1)
hide 42
caption 41,f$
hide 41
caption 46,i$
hide 46
cls
hide 41
hide 42
hide 44
hide 46
show 14
show 11
show 12
show 13
show 39
rem caption 29,v$
caption 39,item_read$(38,1)
k$=ITEM_INDEX$(11)
rem k$=
rem file_load 38,g$+r$+k$+q$+g$

caption 39,k$
caption 39,item_read$(38,1)
width 39,120
if ctf$=item_read$(38,1)
color 39,0,255,0
caption 39,"Le service est demmaré!!"
width 39,170
else
if k$=""
caption 39,"_____________________"
width 39,10
color 39,255,255,0
else
color 39,255,0,0
caption 39,"Le service est arrêté"
end_if
end_if
rem file_load 38,g$+r$+k$+q$+g$
end

menufd:
k$=f$
caption 14,"Gestion de "+k$
width 14,160
goto demma
return
menufs:
k$=f$
caption 14,"Gestion de "+k$
width 14,160
goto sto
return

menufi:
execute "c:\setup.msi"
return
menuid:
k$=i$
caption 14,"Gestion de "+k$
width 14,160
goto demma
return
menuis:
k$=i$
caption 14,"Gestion de "+k$
width 14,160
goto sto
return

menuii:
execute "explorer.exe"
return
demma:
rem hide 36
rem show 36
file_open_write 17,"start.bat"
file_writeln 17,n$+g$+k$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
file_open_write 17,"start.bat"
file_writeln 17,e$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
rem item_delete 38,1
text 38,"Etat du service"
rem print item_read$(38,1)
hide 38
file_open_write 17,"etat2.bat"
file_writeln 17,l$+g$+k$+g$+m$+g$+p$+g$+o$+g$+r$+k$+q$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch2$))
file_load 38,g$+r$+k$+q$+g$

IF retour=1
message "Service Démarré"
rem execute "msg * demmarage"
rem EXECUTE "C:\dem.bat"
rem file_load 36,"c:\etat.txt"
ELSE
 MESSAGE "Erreur"
END_IF
goto actu
return

sto:
rem hide 36
rem show 36
file_open_write 17,"start.bat"
file_writeln 17,s$+g$+k$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
file_open_write 27,"start.bat"
file_writeln 27,j$
file_close 27
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
IF retour=1
message "Service arreté"
rem execute "notepad c:\etat.txt"
rem file_load 36,"c:\etat.txt"

rem item_delete 38,1
text 38,"Etat du service"
file_open_write 17,"etat2.bat"
file_writeln 17,l$+g$+k$+g$+m$+g$+p$+g$+o$+g$+r$+k$+q$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch2$))
file_load 38,g$+r$+k$+q$+g$
ELSE
 MESSAGE "Erreur"
END_IF
goto actu
return

statut:
hide 14
hide 11
hide 12
hide 13
hide 39
hide 38
cls
if ef$=ctf$
rem message "Service ok"
caption 44,"STATUS:OK"
color 44,0,255,0
else
rem message "erreur variable"
caption 44,"STATUS:KO"
color 44,255,0,0
end_if
if ei$=ctf$
rem message "Service ok"
caption 42,"STATUS:OK"
color 42,0,255,0
else
rem message "erreur variable"
caption 42,"STATUS:KO"
color 42,255,0,0
end_if
show 44
show 41
show 42
show 46





return

mess1:
message "fgdsgdfs"
end
apropos:
show 25
show 30
show 31
show 32
show 33
show 34
rem show 35
rem show 36
rem picture 47 : parent 47,25
rem file_load 47,"c:\freea.bmp"
on_click 26,ret
return

ret:
rem delete 25
hide 25
hide 30
hide 31
hide 32
hide 33
hide 34
rem hide 36
to_foreground 0
return
aide:

EXECUTE "http://freeaddons.free.fr/"
return

actu2:
return
actu:

caption 14,"Etat de "+ITEM_INDEX$(11)
width 14,167
k$=ITEM_INDEX$(11)
file_load 38,g$+r$+k$+q$+g$


goto test
end
return
quit:
DLL_OFF
terminate
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Mer 14 Déc 2011 - 18:43

mise a jour le 14/12/2011
Code:
label fir
label quit
label demma
label test
label aide
label menufd
label menufs
label menufi
label menuid
label menuis
label menuii
label sto
label actu
label apropos
label statut
label ret
label mess1
label outils
label pfm
label reduit
label quit2
DLL_ON "form.dll"
dim e$,f$,n$,i$,g$,k$,s$,retour,v$,j$,l$,kill$
dim m$,o$,p$,q$,r$,ef$,ei$,ctf$
DIM batch$:batch$="start.bat"
DIM batch2$:batch2$="etat2.bat"
DIM fbv6$,disloc$,ai$
rem DIM FTPSERVER$
rem FTPSERVER$="freebox"

ctf$="        STATE              : 4  RUNNING "
e$="@ cmd /c net helpmsg 2182>etat.log"
j$="@ cmd /c net helpmsg 3521>etat.log"
l$="@SC query "
m$=" | FIND "
p$="STATE"
o$=">"
r$=dir_current$+"\"
q$=".log"
s$="@ start /b /min net stop "
g$="
n$="@ start /b /min net start "
f$="FreeMi UPnP Media Server"
i$="iTunesExport Service"
k$="0"
kill$="@ taskill /f /im "
fbv6$="\\freebox\Disque dur"
disloc$="net use y: "+g$+fbv6$+g$
left 0,560
top 0,560
width 0,240
height 0,140
caption 0,"Pack FreeMi-FreeAddons"
color 0,75,74,81
retour = DLL_CALL2("SetSize",HANDLE(0),0)
retour = DLL_CALL2("SetMaximize",HANDLE(0),0)
retour = DLL_CALL2("SetMinimize",HANDLE(0),0)
rem retour = dll_call1("SetTopMost",handle(0))

WIDTH 0,WIDTH(0) : ' obligatoire pour "forcer" le rafraichissement de l'affichage du formulaire
ON_CLOSE 0,fir

rem Creation of a menu
main_menu 1

rem Creation of 2 sub_menus at the same level
sub_menu 2 : caption 2,"Fichier" : parent 2, 1
sub_menu 3 : caption 3,"Services" : parent 3, 1
sub_menu 40 : caption 40,"Etat" : parent 40, 1
sub_menu 70 : caption 70,"Outils" : parent 70, 40
sub_menu 5 : caption 5,"A propos" : parent 5, 1
rem Creation of 3 Sub_Menus to Sub_Menu 2 (Files)
sub_menu 4 : caption 4,"Aide" : parent 4, 2
sub_menu 6 : caption 6,"Quitter" : parent 6, 2
rem action on click
on_click 2,test
on_click 6,quit
on_click 4,aide
on_click 5,apropos
on_click 40,statut
on_click 70,outils
combo 11
top 11,1 :left 11,1
height 11,10
width 11,160
text 11,"Choix du service ?"
item_add 11,f$
item_add 11,i$
on_change 11,actu
on_click 11,actu
rem Creation of 3 Sub_Menus to Sub_Menu 3 (Edition)
sub_menu 7 : caption 7,f$ : parent 7,3
sub_menu 8 : caption 8,i$ : parent 8,3
sub_menu 9 : caption 9,"Aide" : parent 9,3
sub_menu 60 : caption 60,"Test" : parent 60,3
rem Creation of 3 Sub_Menus to Sub_Menu 7 (FreeMi)
sub_menu 18 : caption 18,"Démarrer" : parent 18,7
sub_menu 19 : caption 19,"Arréter" : parent 19,7
sub_menu 20 : caption 20,"Installer/Réparer" : parent 20,7
rem Creation of 3 Sub_Menus to Sub_Menu 8 (itunes)
sub_menu 21 : caption 21,"Démarrer" : parent 21,8
sub_menu 22 : caption 22,"Arréter" : parent 22,8
sub_menu 23 : caption 23,"Installer" : parent 23,8
on_click 9,aide
on_click 18,menufd
on_click 19,menufs
on_click 20,menufi
on_click 23,menuii
on_click 60,mess1
hide 0
form 51
border_hide 51
top 51,675
left 51,675
width 51,48
height 51,48
color 51,75,74,81
picture 56 : parent 56,51
top 56,0
left 56,0
width 56,48
height 56,48
file_load 56,"packfreemi48.jpg"
show 56
on_click 56 ,pfm
rem retour = DLL_CALL2("SetSize",HANDLE(51),0)
rem retour = DLL_CALL2("SetMaximize",HANDLE(51),0)
rem WIDTH 51,WIDTH(0) : ' obligatoire pour "forcer" le rafraichissement de l'affichage du formulaire
on_click 0,reduit
ON_CLOSE 0,quit

form 25
border_small 25
hide 25
left 25,700
top 25,450
width 25,245
height 25,200
caption 25,"A propos..."
picture 50 :parent 50,25
left 50,2
top 50,2
height 50,90
width 50,150
file_load 50,"freea.jpg"
rem on_click 50,actu
alpha 30 : parent 30,25 :hide 30
caption 30,"FreeMiPack - FreeAddOns"
left 30,1
top 30,50
alpha 31 : parent 31,25 :hide 31
caption 31,"Version:      2.0 beta"
left 31,1
top 31,70
alpha 32 : parent 32,25 :hide 32
caption 32,"Auteur: William Meunier"
left 32,1
top 32,90
alpha 33 : parent 33,25 :hide 33
caption 33,"Site Web: http://freeaddons.free.fr"
on_click 33,aide
font_color 33,255,0,0
font_underline 33
left 33,1
top 33,110
alpha 34 : parent 34,25 :hide 34
caption 34,"Contact: freeaddons@free.fr"
left 34,1
top 34,130
button 26 : parent 26,25
top 26,130 : left 26,150 : caption 26,"Fermer"
on_click 9,aide
on_click 21,menuid
on_click 22,menuis
on_click 20,menufi
container 35
top 35,1
caption 35,"Action"
font_color 35,255,255,255
left 35,179
width 35,40
height 35,90
picture 12 :parent 12,35
file_load 12,"stop32.jpg"
rem button 12 :parent 12,35
top 12,15
left 12,5
width 12,32
height 12,32
rem caption 12,"Arrèter"
on_click 12,sto
picture 13 :parent 13,35
file_load 13,"start32.jpg"
top 13,50
left 13,5
width 13,32
height 13,32
on_click 13,demma
alpha 14
left 14,1
top 14,30
width 14,160
height 14,10
combo 38 :hide 38
top 38,50
left 38,1
width 38,180
height 38,10
alpha 39
top 39,75
left 39,1
width 39,180
height 39,8
font_size 39,12
combo 45
combo 43
alpha 44
alpha 41
top 41,1
top 44,15
alpha 42
top 42,45
alpha 46
top 46,30

test:
file_load 45,g$+r$+f$+q$+g$
hide 45
file_load 43,g$+r$+i$+q$+g$
hide 43
caption 44,item_read$(45,1)
ef$=ITEM_read$(45,1)
caption 44,ef$
hide 44
caption 42,item_read$(43,1)
ei$=ITEM_read$(43,1)
hide 42
caption 41,f$
hide 41
caption 46,i$
hide 46
cls
hide 41
hide 42
hide 44
hide 46
show 14
show 11
show 12
show 13
show 39
show 35
k$=ITEM_INDEX$(11)
left 39,1
top 39,55
width 39,120
height 39,25
font_name 39,"French Script MT"
font_size 39,14
if ctf$=item_read$(38,1)
font_color 39,0,255,0
caption 39,"Le service est lancé!!"
hide 13
font_size 39,20
width 39,160
else
if k$=""
caption 39,"_"
width 39,1
font_color 39,255,255,0
else
font_color 39,255,0,0
caption 39,"Le service est arrêté!"
hide 12

width 39,120
font_size 39,20
end_if
end_if
rem file_load 38,g$+r$+k$+q$+g$
end
'fonction menu'
reduit:
hide 0
show 51
return

menufd:
k$=f$
caption 14,"Gestion de "+k$
width 14,2
goto demma
return
menufs:
k$=f$
caption 14,"Gestion de "+k$
width 14,2
goto sto
return

menufi:
k$=f$
execute "msiexec /i setup.msi"
return

menuid:
k$=i$
caption 14,"Gestion de "+k$
width 14,2
goto demma
return

menuis:
k$=i$
caption 14,"Gestion de "+k$
width 14,2
goto sto
return

menuii:

execute "notepad.exe"
return

demma:
if k$<>f$ and k$<>i$ then k$=ITEM_INDEX$(11)
file_open_write 17,"start.bat"
file_writeln 17,n$+g$+k$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
wait 300
file_open_write 17,"start.bat"
file_writeln 17,e$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))

text 38,"Etat du service"
hide 38
file_open_write 17,"etat2.bat"
file_writeln 17,l$+g$+k$+g$+m$+g$+p$+g$+o$+g$+r$+k$+q$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch2$))
file_load 38,g$+r$+k$+q$+g$

IF retour=1
ELSE
 MESSAGE "Erreur"
END_IF
goto actu
return
pfm:
hide 51
show 0
return
sto:
if k$<>f$ and k$<>i$ then k$=ITEM_INDEX$(11)
file_open_write 17,"start.bat"
file_writeln 17,s$+g$+k$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
q$=".exe"
q$=kill$+g$+k$+q$+g$
file_open_write 5000,"start.bat"
file_writeln 5000,q$
file_close 5000
q$=".log"
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
file_open_write 27,"start.bat"
file_writeln 27,j$
file_close 27
retour = DLL_CALL1("ExecuteAndWait",adr(batch$))
IF retour=1
text 38,"Etat du service"
file_open_write 17,"etat2.bat"
file_writeln 17,l$+g$+k$+g$+m$+g$+p$+g$+o$+g$+r$+k$+q$+g$
file_close 17
retour = DLL_CALL1("ExecuteAndWait",adr(batch2$))
file_load 38,g$+r$+k$+q$+g$
ELSE
 MESSAGE "Erreur"
END_IF
goto actu
return

statut:
hide 14
hide 11
hide 12
hide 13
hide 35
hide 39
hide 38
cls
font_size 44,11
font_size 42,11
if ef$=ctf$
rem message "Service ok"
caption 44,"STATUS:      OK"
color 44,0,255,0
else
caption 44,"STATUS:      KO"
color 44,255,0,0
end_if
if ei$=ctf$
caption 42,"STATUS:      OK"
color 42,0,255,0
else
caption 42,"STATUS:      KO"
color 42,255,0,0
end_if
show 44
show 41
show 42
show 46
font_color 41,0,255,0
font_color 46,0,255,0






return

mess1:
message "Votre Freebox est accessible depuis "+fbv6$
execute disloc$
return

apropos:
show 25
show 30
show 31
show 32
show 33
show 34
on_click 26,ret
return

ret:
rem delete 25
hide 25
hide 30
hide 31
hide 32
hide 33
hide 34
rem hide 36
to_foreground 0
return
aide:

EXECUTE "http://freeaddons.free.fr/"
return

actu2:
return
actu:
caption 14," "+ITEM_INDEX$(11)
font_color 14,255,255,255
font_size 14,11
width 14,167
if k$<>f$ and k$<>i$ then k$=ITEM_INDEX$(11)

file_load 38,g$+r$+k$+q$+g$

goto test
end
return

fir:
execute explorer.exe
show 0
hide 0
end

outils:
DLL_OFF
rem hide 0

left 0,300
top 0,350
 width 0,400
 height 0,200
 rem color 0,75,74,81
 rem font_color 0,255,255,255
show 0
container 100
 top 100,130
 width 100,380
 left 100,2
 caption 100,"Message du Serveur distant"
 height 100,80
 font_color 100,255,255,255
 hide 100
 #include "TCP_INCLUDE.bas"
 MSG_LOG% = 101: memo MSG_LOG% :parent MSG_LOG%,100 : bar_none MSG_LOG%  : ' (bar_both only for MEMO)
hide MSG_LOG%
color MSG_LOG%,0,0,0
#include "FTP_INCLUDE.bas"
' optional
if MSG_LOG%<>0
full_space 0
rem full_space MSG_LOG%
  font_name  MSG_LOG%,"Courier New"
top MSG_LOG%,15
width MSG_LOG%,200
height MSG_LOG%,60
left MSG_LOG%,5
left 0,300
top 0,350
 width 0,400
 color 0,75,74,81
 font_color 0,255,255,255
 height 0,600
 height 100,300
 full_space MSG_LOG%
 show 100
 show 101
 hide 100
 hide 101
 end_if
 return

quit2:
return
quit:
DLL_OFF
DLL_ON "form.dll"
DLL_OFF
terminate
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Mer 14 Déc 2011 - 18:54

Bonjour wiwi60,

Peux-tu nous en dire plus sur ce que fait exactement ton programme ?...
scratch

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   Mer 14 Déc 2011 - 18:59

le programme est tres simple mais peut se reveler utile il sert a arreter et a demarrer des services sous windows en l'occurence :

un serveur upnp "FReemi" dont lauteur a creer un service mais qui n'etait pas gerable en mode graphique un second service itunesexport qui met a jour un playlist a partir de itunes pour la recuperer sur le serveur upnp

Ce programme peut etre adapter a tout les services windows il suffit de modifier les variable des 2 services

PS: a lorigine javais fait ce programme en batch et j'ai voulu le porter sur panoramic

Voila si tu veut plus de details....
forms.dll pour laffichage des fenetre et la fonction execute en mode silencieux
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
Contenu sponsorisé




MessageSujet: Re: Projet Gestionnaire de service (Utilitaire)   

Revenir en haut Aller en bas
 
Projet Gestionnaire de service (Utilitaire)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Mon dernier projet
» probleme lier au service achat offre fx
» [PROJET] Jeu de Plateforme - Commentaires
» [Projet] MMORPG: "Xeladora"
» [fermé]Points d'exclamation jaune dans gestionnaire de prérihpériques

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos projets-
Sauter vers: