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
» Un petit "coucou" à tous les Panoramiciens !
par Yannick Aujourd'hui à 23:06

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 22:44

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Aujourd'hui à 16:52

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 14:16

» Compilateur FBPano
par Ouf_ca_passe Aujourd'hui à 12:25

» double guillemets "" dans un EDIT
par Marc Hier à 23:43

» Documentation de KGF
par Klaus Lun 20 Nov 2017 - 22:52

» Zoom sur une portion d'écran
par JL35 Lun 20 Nov 2017 - 21:51

» Recherche d'une expression dans un source
par Marc Lun 20 Nov 2017 - 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 Des outils à enrichir …

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

avatar

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

MessageSujet: Des outils à enrichir …   Sam 7 Nov 2015 - 18:59

Code:

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

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

button 99 : top 99,600 : left 99, 375 : 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"
' ==============================================================================

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

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

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 19:36

Excellent.
De mon coté, j'ai 4 utilitaire non installés sur mon poste:
- diagnostics de la mémoire: MDSCHED
- Vérification des signatures de fichiers: SIGVERIF
- capture d’écran: SNIPPINGTOOL
- pense-bête: STIKYNOT
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 19:49

Puisque c’est ainsi, je vous offre un plus et en plus c’est gratuit !

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 ============================================================================

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Pedro Alvarez

avatar

Nombre de messages : 863
Date d'inscription : 19/01/2014

MessageSujet: Outils.   Sam 7 Nov 2015 - 20:05

Bonjour.

Merci Papydall pour ces outils.

Seuls le pense-bête et le magnétophone ne fonctionnent pas sous Win 10.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 20:33

Je suis sous W7 donc je ne peux pas vérifier.
Mon ami Google m’a dit que le pense-bête n’a pas disparu sous W10 ; il est juste un peu caché.
Pour le retrouver :
Clic sur le menu Démarrer
Dans le champ de recherche, taper pense-bête et il apparaîtra.
Il suffira de cliquer dessus pour qu’il se remette sur le bureau
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 20:50

Ah ça c'est un bon outil.

Je me le met sous le coude, car cela évite de chercher dans les méandres de Windows.

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



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

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 21:49

Je confirme, merci papydall pour le regroupement de tous ces outils. Je me suis fait une version un peu plus compacte, j'aime bien voir ce qui se passe autour et pouvoir déplacer la fenêtre, sinon le code est exactement le même:
Code:
rem ============================================================================
rem                   Outils
rem ============================================================================
label clic
dim i,w,c$,command$(30)

w = 260
WIDTH 0,w*3+40: HEIGHT 0,550 : color 0,50,100,100: border_small 0
for i = 1 to 10
    button i : top i,40*(i) : left i,5 : width i,w : on_click i,clic
    font_bold i : font_size i,12 : read c$ : read command$(i) : caption i,c$
next i

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

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


button 99 : top 99,460 : left 99, width(0)/2-100 : width 99,200 : caption 99,"Q U I T T E R"
font_bold 99 : font_size 99,14 : 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 "Outil de diagnostic DirectX" , "DXDIAG"
data "Gestionnaire de disques" , "DISKMGMT.MSC"
data "Gestionnaire de périphériques" , "DEVMGMT.MSC"
data "Propriétés Internet" , "INETCPL.CPL"
data "Loupe" , "MAGNIFY"
data "Propriétés de la souris" , "MAIN.CPL"
data "Outil de diagnostic mémoire" , "MDSCHED"
data "Paramètres de sons" , "MMSYS.CPL"
data "Informations système" , "MSINFO32"
' ==============================================================================
data "Signatures de fichiers" , "SIGVERIF"
data "Capture d’écran" , "SNIPPINGTOOL"
data "Pense-bête" , "STIKYNOT"
data "Gestionnaire des tâches" , "TASKMGR"
data "Version Windows" , "WINVER"
data "Centre de sécurité Windows" , "WSCUI.CPL"
data "Mélangeur de volume" , "SNDVOL"
data "Gestionnaire de services" , "SERVICES.MSC"
data "Clavier visuel" , "OSK"
data "Éditeur de caractères" , "EUDCEDIT"
' ==============================================================================
data "Magnétophone" , "SOUNDRECORDER"
data "Pare-feu Windows" , "FIREWALL.CPL"
data "Paint" , "MSPAINT"
data "Bloc-notes" , "NOTEPAD"
data "Outil restauration système" , "RSTRUI"
data "Planificateur de tâches" , "TASKSCHD.MSC"
data "Outil de connexion téléphonique" , "TELEPHON.CPL"
data "Paramètres heure et date" , "TIMEDATE.CPL"
data "Contacts" , "WAB"
data "WordPad" , "WRITE"
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 23:23

Bien vu JL35,
Je suis comme toi, pour ce genre de programme c'est bien de voir une partie du bureau.
A priori ce n'est pas utile et pourtant on se sent mieux.

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



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

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 23:33

J'ai même fait à partir de là une version où on peut moduler le nombre de rangées (le nombre de colonnes s'ajuste automatiquement), et où les données (liste des modules) sont dans un fichier texte modifiable (ajouts ou retraits) par édition depuis le programme lui-même.

Ce qui n'est pas trouvé chez moi (Windows 7):
  MDSCHED (diagnostic mémoire)
  SIGVERIF (signatures fichiers)
  SNIPPINGTOOL (capture écran)
  STIKYNOT (pense-bête)
  SOUNDRECORDER (magnétophone)
  RSTRUI (restauration système)
il doit falloir mettre des chemins complets...

Je n'y comprends plus rien ! les outils ci-dessus sont bien dans C:\Windows\System32, mais je ne peux pas les exécuter depuis le programme (où je mets pourtant leur chemin complet).
Par exemple MDSCHED (diagnostic mémoire), je récupère:
et c'est pareil pour les autres ci-dessus ! qui s'exécutent bien si je les lance depuis l'explorateur...
et pourtant ce chemin est parfaitement correct !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Des outils à enrichir …   Dim 8 Nov 2015 - 3:04

Il me semble que sous windows 64 certains fichiers sont mal indexés.

Voici comment faire :
Aller chercher où se trouvent  les fichiers qui refusent de s’exécuter.
Normalement ils se trouvent dans C:\Windows\system32
En ligne de commande, c’est la commande :
where nom_du_fichier
Exemple :
where osk  ==> donne C:\Windows\system32\osk.exe
Une fois ces fichiers localisés, faites-en une copie dans un autre emplacement, par exemple dans c:\temp
Modifier dans le code, la ligne 32
Code:

execute_wait chr$(34)+command$(i)+chr$(34)
Comme ceci
Code:

execute_wait "c:\temp\" + chr$(34)+command$(i)+chr$(34)

Ça devrait marcher.

Merci JL35 pour l'amélioration du rendu visuel à l'écran.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: Re: Des outils à enrichir …   Dim 8 Nov 2015 - 12:41

Merci ami papydall pour tes idées géniales !
J'avais bien vérifié qu'ils existaient dans system32 depuis l'explorateur windows.
Effectivement ça doit être une question d'indexation dans windows, impossible d'accéder à ces fichiers.
J'ai créé un répertoire C:\Sysutil dans lequel j'ai copié ces 6 exécutables, par copier/coller dans l'explorateur, impossible de les copier par la commande Copy, ils ne sont pas trouvés, encore heureux qu'ils apparaissent dans l'explorateur !

Je n'ai pas essayé, mais je ne suis pas sûr que la commande where les trouverait ?

Et vérification faite, ça marche, ils s'exécutent bien dans mon répertoire Sysutil.
Merci encore, et bon dimanche à toi.
Allez, au diable l'avarice, bon dimanche à tout le monde !

PS
Si je fais une recherche avec WH (where) les modules en question ne sont pas trouvés, ce qui semble logique, et j'ai des résultats plutôt bizarres, exemple:
Code:
C:\>wh MdSched.exe
Recherche de MdSched.exe sur C:
La cible du lien symbolique C:\$Windows.~BT\Sources\SafeOS\SafeOS.Mount\Windows\
System32\MdSched.exe n'existe pas
La cible du lien symbolique C:\$Windows.~BT\Sources\SafeOS\SafeOS.Mount\Windows\
WinSxS\amd64_microsoft-windows-m..diagnostic-schedule_31bf3856ad364e35_10.0.1024
0.16384_none_9bd70deb1464ceed\MdSched.exe n'existe pas
A            C:\SYSUTIL\MdSched.exe
A            C:\Windows\winsxs\amd64_microsoft-windows-m..diagnostic-schedule_31
bf3856ad364e35_6.1.7601.17514_none_f1fca1ab90570e8a\MdSched.exe
Fin de recherche MdSched.exe
C:\>
(le C:\SYSUTIL\MdSched.exe c'est celui que j'ai créé, quant au dernier trouvé, scratch ).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Des outils à enrichir …   Dim 8 Nov 2015 - 15:21

Le problème est (je croix) une mauvaise indexation des fichiers.
J’ai fais une demande à Google pour m’apporter son aide et j’ai atterri  sur cet océan.
Comme je ne suis pas un bon nageur, je t'y laisse découvrir les lieux Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Des outils à enrichir …   

Revenir en haut Aller en bas
 
Des outils à enrichir …
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» trousse a outils
» boite à outils: vos idées!
» emplacement boite à outils
» Faire des outils de créations
» desinfection et protection de clés usb et supports amovibles

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