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
» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Yannick Aujourd'hui à 1:58

» Pb 17 (en analyse): ITEM_SELECT ne fonctionne pas
par Jack Hier à 19:26

» Compilateur FBPano
par Mike Hier à 13:52

» un nouveau editeur panobasic
par Jean Claude Hier à 10:18

» Le compilateur.
par Pedro Alvarez Hier à 8:36

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Outils Windows

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



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

MessageSujet: Outils Windows   Dim 17 Avr 2016 - 13:01

Je ne me souviens plus où j'ai pêché ça, pas ici j'espère, auquel cas ce serait un rappel...
Quelques outils intégrés à Windows, qui peuvent être bien utiles.
Format: [Libellé de l'outil];[exécutable]
Code:
Table de caractères;CHARMAP
Outil de diagnostic DirectX;DXDIAG
Gestionnaire de disques;DISKMGMT.MSC
Gestionnaire de périphériques;DEVMGMT.MSC
Propriétés Internet;INETCPL.CPL
Loupe;MAGNIFY
Propriétés de la souris;MAIN.CPL
Outil de diagnostic mémoire;C:\SYSUTIL\MdSched.exe
Paramètres de sons;MMSYS.CPL
Informations système;MSINFO32
Signatures de fichiers;C:\SYSUTIL\sigverif.exe
Capture d’écran;C:\SYSUTIL\SnippingTool.exe
Pense-bête;C:\SYSUTIL\StikyNot.exe
Gestionnaire des tâches;TASKMGR
Version Windows;WINVER
Centre de sécurité Windows;WSCUI.CPL
Mélangeur de volume;SNDVOL
Gestionnaire de services;SERVICES.MSC
Clavier visuel;OSK
Éditeur de caractères;EUDCEDIT
Magnétophone;C:\SYSUTIL\SoundRecorder.exe
Pare-feu Windows;FIREWALL.CPL
Outil restauration système;C:\SYSUTIL\RSTRUI.exe
Planificateur de tâches;TASKSCHD.MSC
GodMode (utilitaires Windows);C:\GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}
Outil de connexion téléphonique;TELEPHON.CPL
Paramètres heure et date;TIMEDATE.CPL
Contacts;WAB
Paint;MSPAINT
Bloc-notes;NOTEPAD
WordPad;WRITE
L'intérêt de ces outils c'est qu'ils sont appelables en ligne de commande, donc depuis un programme Panoramic.

Et le petit programme pour tester:
Code:
rem ============================================================================
rem                  Outils Windows
rem ============================================================================
LABEL clic
DIM i,i1,j,b,lf,nr,nc,hr,tc,w,c$,nom$(50),command$(50)
DATA "Outils Win"
DATA "Table de caractères;CHARMAP","Outil de diagnostic DirectX;DXDIAG"
DATA "Gestionnaire de disques;DISKMGMT.MSC","Gestionnaire de périphériques;DEVMGMT.MSC"
DATA "Propriétés Internet;INETCPL.CPL","Loupe;MAGNIFY","Propriétés de la souris;MAIN.CPL"
DATA "Outil de diagnostic mémoire;C:\SYSUTIL\MdSched.exe","Paramètres de sons;MMSYS.CPL"
DATA "Informations système;MSINFO32","Signatures de fichiers;C:\SYSUTIL\sigverif.exe"
DATA "Capture d’écran;C:\SYSUTIL\SnippingTool.exe","Pense-bête;C:\SYSUTIL\StikyNot.exe"
DATA "Gestionnaire des tâches;TASKMGR","Version Windows;WINVER"
DATA "Centre de sécurité Windows;WSCUI.CPL","Mélangeur de volume;SNDVOL"
DATA "Gestionnaire de services;SERVICES.MSC","Clavier visuel;OSK"
DATA "Éditeur de caractères;EUDCEDIT","Magnétophone;C:\SYSUTIL\SoundRecorder.exe"
DATA "Pare-feu Windows;FIREWALL.CPL","Outil restauration système;C:\SYSUTIL\RSTRUI.exe"
DATA "Planificateur de tâches;TASKSCHD.MSC "
DATA "GodMode (utilitaires Windows);C:\GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}"
DATA "Outil de connexion téléphonique;TELEPHON.CPL","Paramètres heure et date;TIMEDATE.CPL"
DATA "Contacts;WAB","Paint;MSPAINT","Bloc-notes;NOTEPAD","WordPad;WRITE"
DATA "FF"
READ c$: WHILE c$<>"Outils Win": READ c$: END_WHILE
READ c$: tc = 0
WHILE c$<>"FF"
    tc = tc+1: w = INSTR(c$,";")
    nom$(tc) = LEFT$(c$,w-1): command$(tc) = RIGHT_POS$(c$,w+1)
    READ c$
END_WHILE
nr = 16: ' nb de rangées
nc = INT(tc/nr): IF nc < tc/nr THEN nc = nc+1: ' nb de colonnes
hr = 33: ' hauteur d'un élément
w = 260: ' largeur bouton
WIDTH 0,w*nc+50: HEIGHT 0,hr*nr+70: color 0,50,100,100: border_small 0
  CAPTION 0,STRING$(62," ")+"-  O U T I L S  W I N D O W S  -"
i1 = 0: b = 0
FOR j = 1 TO nc
    lf = 5+(5+w)*(j-1)
    FOR i = 1 TO nr
        i1 = i1+1: IF i1>tc THEN EXIT_FOR
        b = b+1: BUTTON b: TOP b,hr*(i-1)+10: LEFT b,lf: WIDTH b,w: ON_CLICK b,clic
        FONT_BOLD b: FONT_SIZE b,12: CAPTION b,nom$(i1)
    NEXT i
NEXT j
BUTTON 99: TOP 99,HEIGHT(0)-64: LEFT 99,WIDTH(0)-120: CAPTION 99,"Quitter": ON_CLICK 99,Clic
END
' ==============================================================================
Clic:
  i = NUMBER_CLICK: IF i = 99 THEN TERMINATE
  EXECUTE_WAIT command$(i)
RETURN
' ==============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 518
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Outils Windows   Dim 17 Avr 2016 - 13:45

bjr JL35
Certain des outils ne fonctionne pas! j'ai windows7
-signature de ficiher
-capture d'écran
-pense bête
-outil restauration
-gode mode

bon W-End a tous
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Outils Windows   Dim 17 Avr 2016 - 14:32

JL35 a écrit:
Je ne me souviens plus où j'ai pêché ça, pas ici j'espère, auquel cas ce serait un rappel...
Quelques outils intégrés à Windows, qui peuvent être bien utiles.

Pourquoi pas ici ? Question
Nous sommes bien capables de proposer de tels outils. Laughing
Bien, avec toute modestie, ça ne peut être que du Papydall. king
Cliquer sans crainte!


@Pascal10000

La réponse  se trouve en cliquant sur le lien ci-dessus.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

Nombre de messages : 1594
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 17 Avr 2016 - 17:17

En tout cas, ce sont des outils intéressants.
Dommage qu'ils ne marchent pas toujours selon l'ordi qu'on a.
Smile alien Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
papydall

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Outils Windows   Dim 17 Avr 2016 - 18:59

Chez moi, tout marche comme il se doit.

Code:

rem ============================================================================
rem                   Outils
rem ============================================================================
label clic
dim i,w,c$,command$(30)

full_space 0 : color 0,50,100,100
w = 400
for i = 1 to 10
    button i : top i,50*(i) : left i,50 : width i,w : on_click i,clic
    font_bold i : font_size i,14 : read c$ : read command$(i) : caption i,c$
next i

for i = 11 to 20
    button i : top i,50*(i-10) : left i,100+w : width i,w : on_click i,clic
    font_bold i : font_size i,14 : read c$ : read command$(i) : caption i,c$
next i

for i = 21 to 30
    button i : top i,50*(i-20) : left i,150+2*w : width i,w : on_click i,clic
    font_bold i : font_size i,14 : read c$ : read command$(i) : caption i,c$
next i


button 99 : top 99,600 : left 99, 575 : width 99,200 : caption 99,"Q U I T T E R"
font_bold 99 : font_size 99,16 : on_click 99, clic
end
rem ============================================================================
Clic:
   i = number_click
   if i = 99 then terminate
   execute_wait chr$(34)+command$(i)+chr$(34)
return
rem ============================================================================
data "Table de caractères" , "CHARMAP"
data "Ouvrir l’outil de diagnostic DirectX" , "DXDIAG"
data "Ouvrir le gestionnaire de disques" , "DISKMGMT.MSC"
data "Ouvrir le gestionnaire de périphériques" , "DEVMGMT.MSC"
data "Ouvrir les propriétés Internet" , "INETCPL.CPL"
data "Ouvrir la loupe" , "MAGNIFY"
data "Ouvrir les propriétés de la souris" , "MAIN.CPL"
data "Ouvrir l’outil de diagnostics de la mémoire" , "MDSCHED"
data "Ouvrir les paramètres de sons" , "MMSYS.CPL"
data "Ouvrir les informations système" , "MSINFO32"
' ==============================================================================
data "Vérification des signatures de fichiers" , "SIGVERIF"
data "Outil capture d’écran" , "SNIPPINGTOOL"
data "Ouvrir le pense-bête" , "STIKYNOT"
data "Gestionnaire des tâches Windows" , "TASKMGR"
data "Pour connaître votre version Windows" , "WINVER"
data "Ouvrir le centre de sécurité Windows" , "WSCUI.CPL"
data "Ouvrir le mélangeur de volume" , "SNDVOL"
data "Ouvrir le gestionnaire de services" , "SERVICES.MSC"
data "Ouvrir le clavier visuel" , "OSK"
data "Ouvrir l’éditeur de caractères privés" , "EUDCEDIT"
' ==============================================================================
data "Ouvrir le magnétophone" , "SOUNDRECORDER"
data "Ouvrir le pare feu Windows" , "FIREWALL.CPL"
data "Ouvrir Paint" , "MSPAINT"
data "Ouvrir le bloc-notes" , "NOTEPAD"
data "Ouvrir l'outil de restauration du système" , "RSTRUI"
data "Ouvrir le planificateur de tâches" , "TASKSCHD.MSC"
data "Ouvrir l'outil de connexion téléphonique" , "TELEPHON.CPL"
data "Paramètres de l'heure et de la date" , "TIMEDATE.CPL"
data "Ouvrir les contacts" , "WAB"
data "Ouvrir Word Pad" , "WRITE"
rem ============================================================================


Pour des éventuels problèmes, rendez-vous sur le lien que j'ai donné ci-haut.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 4989
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Outils Windows   Dim 17 Avr 2016 - 19:29

Sous Windows 10, tout ne fonctionne pas, mais ça reste très utile (Je l'avais déjà).

Personnellement j'ai supprimé le bouton 99 "Quitter" qui crée un plantage à cause de TERMINATE.
La sortie normale par la croix rouge fonctionnant très bien.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Outils Windows   Dim 17 Avr 2016 - 19:41

Évidemment ça ne pouvait être que du papydall, j'ai retrouvé cette liste dans mes archives sans avoir noté d'où ça venait...
Alors, rendons à César ce qui appartient à Jules à papydall !
Tout ne fonctionne pas chez moi non plus, ça dépend sans doute de la version de Windows, mais il y a quelques outils bien utiles.

MERCI PAPYDALL !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Outils Windows   

Revenir en haut Aller en bas
 
Outils Windows
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Top téléchargement pour windows sur 01net !!!
» cherche - Barre d'outils Latéral : Coolbarz ?
» Comment utiliser l'Outil de Suppression de Logiciels Malveillants Microsoft Windows ??
» trousse a outils
» Utilisation des outils de modération

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: