Des outils à enrichir …

Sujet: Des outils à enrichir … Sam 7 Nov 2015 - 16: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"
' ==============================================================================

Sujet: Re: Des outils à enrichir … Sam 7 Nov 2015 - 17: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

Sujet: Re: Des outils à enrichir … Sam 7 Nov 2015 - 17: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 ============================================================================

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

Bonjour.

Merci Papydall pour ces outils.

Seuls le pense-bête et le magnétophone ne fonctionnent pas sous Win 10.

Sujet: Re: Des outils à enrichir … Sam 7 Nov 2015 - 18: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

Sujet: Re: Des outils à enrichir … Sam 7 Nov 2015 - 18: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+

Sujet: Re: Des outils à enrichir … Sam 7 Nov 2015 - 19: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 ============================================================================

Sujet: Re: Des outils à enrichir … Sam 7 Nov 2015 - 21: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+

Sujet: Re: Des outils à enrichir … Sam 7 Nov 2015 - 21: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:

outils - Des outils à enrichir … Outil10

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 !

Sujet: Re: Des outils à enrichir … Dim 8 Nov 2015 - 1: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.

Sujet: Re: Des outils à enrichir … Dim 8 Nov 2015 - 10: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

).

Sujet: Re: Des outils à enrichir … Dim 8 Nov 2015 - 13: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

» Outils Windows
» Outils couleurs
» Boîte à outils de dessin
» Outils du Panneau de configuration
» Petit menu des outils créé avec mon IDE en Panoramic