Services Windows

' Services.bas
' Services Windows actifs à un moment donné
' Infos:  https://windows.developpez.com/cours/ligne-commande/?page=page_18
' Actions: https://www.pcastuces.com/pratique/windows/services_windows7/page1.htm
' ==============================================================================
' VARIABLES
' ==============================================================================
DIM i%,ns%,det%(100),svc$(100),nom$(100),etat$(100),a$,s$,mx%
' ==============================================================================
' LABELS
' ==============================================================================
LABEL CLIC
LABEL Retaille
' ==============================================================================
' PROGRAMME
' ==============================================================================
GUI()
' liste des services 'actifs'
Exprog("cmd.exe |/c sc query state= | clip",2)
End
' ==============================================================================
' SOUS PROGRAMMES
' ==============================================================================
CLIC:
   if number_click =1
      Detail()
   end_if
   if number_click =4
      Maj()
   end_if
   if number_click =6
      SORT 1
   end_if
   if number_click =7
      TriPos(1,mx%+5)
   end_if
return
' ------------------------------------------------------------------------------
Retaille:
  width 1,width_client(0)-10: height 1,height_client(0)-50
  top 3,top(1)+height(1)+5 : left 3,5
  top 4,top(1)+height(1)+5 : left 4,width_client(0)-width(4)-5
  top 5,top(3)+height(3)+3 : left 5,5
  top 6,top(1)+height(1)+5 : left 6,left(4)-width(6)-5 
  top 7,top(1)+height(1)+5 : left 7,left(6)-width(7)-5 
return
' ==============================================================================
' PROCEDURES
' ==============================================================================
Sub GUI()
   height 0,600 : width 0,900  
   top 0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2
   color 0,230,230,230
   caption 0,"   -   LISTE  DES  SERVICES  MICROSOFT  ACTIFS   -"
   on_resize 0,Retaille

   list 1
   width 1,width_client(0)-10: height 1,height_client(0)-50
   top 1,5 : left 1,5
   font_name 1,"DejaVU Sans Mono" : color 1,255,255,200
   on_click 1,CLIC

   memo 2 : hide 2 : width 2,1000

   alpha 3
   top 3,top(1)+height(1)+5 : left 3,5
   font_size 3,10: font_bold 3 : font_color 3,0,0,255
   caption 3,"Cliquez sur un service pour avoir des détails"
  
   button 4
   height 4,35 : width 4,35
   top 4,top(1)+height(1)+5 : left 4,width_client(0)-width(4)-5
   font_name 4,"Times new roman" : font_size 4,10 : font_bold 4
   caption 4,"Maj"
   cursor_point 4
   hint 4,"Mise à jour des services actifs"
   on_click 4,CLIC
  
   alpha 5
   top 5,top(3)+height(3)+3 : left 5,5
   font_size 5,10: font_bold 5 : font_color 5,255,0,0
   caption 5,""
  
   button 6
   height 6,35
   font_name 6,"Times new roman" : font_size 6,10 : font_bold 6
   caption 6,"Tri / Service"
   top 6,top(1)+height(1)+5 : left 6,left(4)-width(6)-5
   hint 6,"Tri de la liste par service"
   cursor_point 6
   on_click 6,CLIC
  
   button 7
   height 7,35
   caption 7,"Tri / Nom"
   font_name 7,"Times new roman" : font_size 7,10 : font_bold 7
   top 7,top(1)+height(1)+5 : left 7,left(6)-width(7)-5
   hint 7,"Tri de la liste par nom"
   cursor_point 7
   on_click 7,CLIC
End_sub
' ------------------------------------------------------------------------------
Sub Exprog(pr$,dest%)
   dim_local scr$, qu$
  
   scr$ = "C:\TEMP\Vbscript.vbs"
   qu$ = CHR$(34)
  
   file_open_write 100, scr$: ' <===== Création du script .vbs =====
   file_writeln 100, "CreateObject("+qu$+"Wscript.Shell"+qu$+").Run "+qu$+pr$+qu$+",0,True"
   file_close 100
  
   execute_wait "WSCRIPT.exe| "+scr$: ' <===== Exécution du script =====
   file_delete scr$

   clipboard_paste dest%
  
   ns% = 0
   mx% = 0
   for i% = 1 to count(dest%)
       a$ = ITEM_READ$(dest%,i%)
       IF LEFT$(a$,12) = "SERVICE_NAME"
           ns% = ns%+1: det%(ns%) = i%: svc$(ns%) = RIGHT_POS$(a$,15): ' service
           IF LEN(svc$(ns%)) > mx% THEN mx% = LEN(svc$(ns%))
           i%=i%+1: a$ = ITEM_READ$(dest%,i%): nom$(ns%) = RIGHT_POS$(a$,15): ' nom
           i%=i%+2: a$ = ITEM_READ$(dest%,i%): etat$(ns%) = MID$(a$,30,1): ' état
        END_IF
   NEXT i%
   FOR i% = 1 TO ns%
       a$ = svc$(i%)
       ITEM_ADD 1,a$+STRING$(50-LEN(a$)," ")+etat$(i%)+" "+nom$(i%)
   NEXT i%
  
   caption 5,str$(ns%)+" services actifs"
End_sub
' ------------------------------------------------------------------------------
Sub Detail()
   if object_exists(10)=0
      FORM 10: BORDER_SMALL 10: WIDTH 10,420
      LIST 11: PARENT 11,10: FULL_SPACE 11: COLOR 11,255,255,180
   else
      SHOW 10
   end_if
  
   i% = ITEM_INDEX(1): i% = det%(i%)
   a$ = ITEM_READ$(2,i%)
   CLEAR 11
   WHILE a$ <> ""
      ITEM_ADD 11,ITEM_READ$(2,i%)
      i%=i%+1: a$ = ITEM_READ$(2,i%)
   END_WHILE
   TO_FOREGROUND 10
End_sub
' ------------------------------------------------------------------------------
SUB TriPos(lst%,pos%)
  ' Tri d'un list en fonction de la position pos% dans les éléments
  DIM_LOCAL a$,b$,k%
  DLIST 900
  FOR i% = 1 TO COUNT(lst%)
      a$ = ITEM_READ$(lst%,i%)
      b$ = LEFT$(a$,pos%-1): a$ = RIGHT_POS$(a$,pos%)
      ITEM_ADD 900,a$+CHR$(0)+b$
  NEXT i%
  SORT 900: CLEAR lst%
  FOR i% = 1 TO COUNT(900)
      a$ = ITEM_READ$(900,i%): k% = INSTR(a$,CHR$(0))
      ITEM_ADD lst%,RIGHT_POS$(a$,k%+1)+LEFT$(a$,k%-1)
  NEXT i%
  DELETE 900
END_SUB
' ------------------------------------------------------------------------------
Sub Maj()
   clear 1
   clear 2
   Exprog("cmd.exe |/c sc query state= | clip",2)
End_sub