| Des procédures pour le réseau | |
|
+4bignono Froggy One Yannick papydall 8 participants |
|
Auteur | Message |
---|
papydall
Nombre de messages : 7017 Age : 74 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: Des procédures pour le réseau Ven 27 Sep 2013 - 18:52 | |
| Salut tout le monde. Je suis content que le programme fonctionne sous XP et Vista (merci Rmont) J’attends la confirmation de Ygeronimi ou quelqu’un d’autre sous W7.
Rémarques : 1) La dernière procédure Trace_Route(site$) demande un temps assez long pour s’exécuter. En effet, elle cherche l’itinéraire entre votre PC et le site d’arrivée. Cet itinéraire peut être assez tortueux et long. 2) Pour l’affichage incorrect de certains caractères, c’est la faute à la sortie de l’invite de commande. Personnellement, je n’ai pas de solution. Quelqu’un en a-t-il une ? | |
|
| |
RMont
Nombre de messages : 233 Age : 82 Localisation : charente maritime Date d'inscription : 29/12/2008
| Sujet: Re: Des procédures pour le réseau Ven 27 Sep 2013 - 19:15 | |
| [left] pour faire plaisir a papydall avec win 7 64 bits | |
|
| |
papydall
Nombre de messages : 7017 Age : 74 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: Des procédures pour le réseau Ven 27 Sep 2013 - 19:28 | |
| Merci Rmont Invalid filename ça fait plaisir ! Je crois savoir ce qui se passe avec W7. Il n’y a peut-être pas de dossier c:\temp ? Or le programme suppose que ce dossier existe déjà. Peux-tu confirmer ? Regarde si le dossier c:\temp existe. S’il n’existe pas, la solution sera facile ! Mais s’il existe …. | |
|
| |
Yannick
Nombre de messages : 8635 Age : 53 Localisation : Bretagne Date d'inscription : 15/02/2010
| Sujet: re Ven 27 Sep 2013 - 19:49 | |
| Il existe....mais c' est peut être moi qui l' ai créé... Edit : ipconfig est trouvé par l' invite de commande ! ce doit être une erreur de lancement de ton code par panoramic. je suis resté en 25i4. | |
|
| |
papydall
Nombre de messages : 7017 Age : 74 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: Des procédures pour le réseau Ven 27 Sep 2013 - 20:04 | |
| Dans SUB Exec_Prog(prog$) il faut ajouter entre la ligne DIM_LOCAL … et la ligne scr$ = …, ajouter donc - Code:
-
if dir_exists("c:\temp") <> 1 then dir_make "c:\temp" Je suis revenu à la version 25i2 : c'est plus stable. | |
|
| |
Yannick
Nombre de messages : 8635 Age : 53 Localisation : Bretagne Date d'inscription : 15/02/2010
| Sujet: re Ven 27 Sep 2013 - 20:18 | |
| Je crois que je vais en faire autant. | |
|
| |
Jean Claude
Nombre de messages : 5950 Age : 70 Localisation : 83 Var Date d'inscription : 07/05/2009
| Sujet: Re: Des procédures pour le réseau Ven 27 Sep 2013 - 20:20 | |
| Pour la question des caractères (é ou ,) c'est pareil sous XP comme Rmont.
A+
| |
|
| |
Jean Claude
Nombre de messages : 5950 Age : 70 Localisation : 83 Var Date d'inscription : 07/05/2009
| Sujet: Re: Des procédures pour le réseau Ven 27 Sep 2013 - 20:26 | |
| Question version de Panoramic, je précise que j'ai testé avec la V0.09.24 qui est la dernière version "régulière". Je ne me sert des versions ultérieures que s'il s'agit de codes utilisant les nouveaux mots-clé créer pour la 2D ou 3D.
A+ | |
|
| |
bignono
Nombre de messages : 1127 Age : 67 Localisation : Val de Marne Date d'inscription : 13/11/2011
| Sujet: Re: Des procédures pour le réseau Ven 27 Sep 2013 - 21:15 | |
| Bonsoir à tous, Pour éviter les , à la place des é et è, il suffit de sélectionner tout le texte dans Notepad, et dans le menu, cliquez sur format, puis police et sélectionner la police "Terminal". Dans un précédent post, lors des 2 premiers programme de Papydall, j'avais déjà signalé qu'il fallait utiliser cette police de caractères pour éviter ce problème d'affichage avec les caractères accentués. A + | |
|
| |
Jean Claude
Nombre de messages : 5950 Age : 70 Localisation : 83 Var Date d'inscription : 07/05/2009
| Sujet: Re: Des procédures pour le réseau Ven 27 Sep 2013 - 21:19 | |
| On devrait te lire mieux Bignono, Merci pour le RE tuyau. A+ | |
|
| |
papydall
Nombre de messages : 7017 Age : 74 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: Des procédures pour le réseau Ven 27 Sep 2013 - 22:46 | |
| Je copie Jean Claude. On devrait te lire mieux Bignono, Merci pour le RE tuyau. A+ Et pour me faire pardonner, voici un autre code - Code:
-
' ****************************************************************************** rem Voici 3 Procédures utilisant chacune une commande de l'invite de commande
rem La 1ere : Dir(unite$): rem affiche tous les dossiers et tous le fichiers, y compris les fichiers cachés, rem les fichiers à lecture seule, les fichiers système ainsi que les fichiers archive rem Rédirige la sortie vers le bloc-notes.
rem la seconde : Loupe() rem ouvre la loupe; elle peut être utile pour ceux dont les yeux sont fatigués.
rem La troisième : fichiers_DLL(dll$) rem Trouver quels fichiers DLL sont utilisés par un processus. rem Cette procédure va renvoyer un tableau reliant le nom de l'image, le PID et les rem modules. Ici, les "modules" indiquent les DLLs. rem Si le paramètre dll$ est la chaîne vide,la table peut contenir beaucoup rem d'entrées mais vous pouvez limiter la liste à une DLL spécifique en utilisant rem son nom comme paramètre dans l'appel de la SUB. rem Par exemple, pour voir uniquement les processus qui utilisent oleaut32.dll, rem appeler la procédure par : Fichiers_DLL("oleaut32.dll") rem Rédirige la sortie vers le bloc-notes. rem ===========================================================================
Init() Dir("c:\") ' Loupe() ' Fichiers_DLL("") : rem Afficher toutes les DLLs utilisées ainsi que les processus qui l'utisent ' Fichiers_DLL("oleaut32.dll") : rem Afficher tous les processus qui utilisent la seule DLL passée comme paramètre end ' ****************************************************************************** SUB Init() top 0,100 : left 0,200 : width 0,1000 : height 0,100 END_SUB ' ****************************************************************************** ' Exécution d'un programme externe sans la fenêtre noire de l'invite de commande ' Cette procédure est une adaptation de celle de JL35 que je remercie beaucoup. ' ============================================================================== SUB Exec_Prog(prog$) DIM_LOCAL scr$, bat$, axp$ if dir_exists("c:\temp") <> 1 then dir_make "c:\temp" scr$ = "C:\temp\Vbscript.vbs" : bat$ = "C:\temp\Bat.bat" ' ===== Création du fichier .bat FILE_OPEN_WRITE 9998, bat$: FILE_WRITELN 9998, prog$: FILE_CLOSE 9998 ' ===== Création du script .vbs axp$ = "CreateObject("+CHR$(34)+"Wscript.Shell"+CHR$(34)+").Run " axp$ = axp$ + CHR$(34) + bat$ + CHR$(34) + ", 0, True" FILE_OPEN_WRITE 9998, scr$: FILE_WRITELN 9998, axp$: FILE_CLOSE 9998 ' ===== Exécution du script EXECUTE_WAIT "WSCRIPT.exe "+ scr$ FILE_DELETE bat$: FILE_DELETE scr$
END_SUB ' ****************************************************************************** ' Affiche tous les dossiers et tous le fichiers, y compris les fichiers cachés, ' les fichiers à lecture seule, les fichiers système ainsi que les fichiers archive ' Rédirige la sortie de DIR vers le bloc-notes SUB Dir(Unite$) Exec_Prog("cmd.exe /c dir " + Unite$ + " /a > c:\temp\dir.txt & notepad.exe c:\temp\dir.txt") END_SUB ' ****************************************************************************** ' Ouvrir la loupe SUB loupe() Exec_Prog("cmd.exe /c magnify") END_SUB ' ***************************************************************************** ' Trouver quels fichiers DLL sont utilisés par un processus ' Cette procédure va renvoyer un tableau reliant le nom de l'image, le PID et les ' modules. Ici, les "modules" indiquent les DLLs. ' Si le paramètre dll$ est la chaîne vide, La table peut contenir beaucoup ' d'entrées mais vous pouvez limiter la liste à une DLL spécifique en utilisant ' son nom comme paramètre dans l'appel de la SUB. ' Par exemple, pour voir uniquement les processus qui utilisent oleaut32.dll, ' appeler la procédure par : Fichiers_DLL("oleaut32.dll")
SUB Fichiers_DLL(dll$) Exec_Prog("cmd.exe /c tasklist/m " + dll$ + " > c:\temp\tasklist.txt & notepad.exe c:\temp\tasklist.txt") END_SUB ' ******************************************************************************
EDIT : code édité 2 fois : test de l'existence du dossier c:\temp et identification des fichiers .txt en absolu
Dernière édition par papydall le Sam 28 Sep 2013 - 12:23, édité 6 fois | |
|
| |
bignono
Nombre de messages : 1127 Age : 67 Localisation : Val de Marne Date d'inscription : 13/11/2011
| Sujet: Re: Des procédures pour le réseau Ven 27 Sep 2013 - 23:11 | |
| Rectifiez la ligne 42 comme ceci: scr$ = "C:\temp\Vbscript.vbs" : bat$ = "C:\temp\Bat.bat" sinon: file acces denied! sous windows7. A+ | |
|
| |
papydall
Nombre de messages : 7017 Age : 74 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: Des procédures pour le réseau Sam 28 Sep 2013 - 0:43 | |
| | |
|
| |
Yannick
Nombre de messages : 8635 Age : 53 Localisation : Bretagne Date d'inscription : 15/02/2010
| Sujet: re Sam 28 Sep 2013 - 11:06 | |
| @ Papydall, Avec le dernier code | |
|
| |
RMont
Nombre de messages : 233 Age : 82 Localisation : charente maritime Date d'inscription : 29/12/2008
| Sujet: Re: Des procédures pour le réseau Sam 28 Sep 2013 - 11:19 | |
| bonjour à tous. pour papydall. suite a mon intervention d'hier avec win7. j'ai recherché C:\temp réponse windows ne trouve pas c:\temp . vérifiez que vous avez entré le nom correct puis réessayer
| |
|
| |
papydall
Nombre de messages : 7017 Age : 74 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: Des procédures pour le réseau Sam 28 Sep 2013 - 12:18 | |
| Bonjour tout le monde et merci pour vos interventions.
Je pense qu’il faut tester la présence du dossier c:\temp, s’il n’existe pas, on le crée. Pour les fichiers .txt, on les indique en absolu c:\temp\dir.txt etc..
J’ai apporté ces modifications sur le code ci-haut. Peut-être qu’il fonctionnera ainsi. Sous XP, je n’ai rencontré aucun problème. Vive XP ! | |
|
| |
Contenu sponsorisé
| Sujet: Re: Des procédures pour le réseau | |
| |
|
| |
| Des procédures pour le réseau | |
|