Projet Gestionnaire de service (Utilitaire)

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

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

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