FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» Logiciel de planétarium.
Des procédures pour le réseau - Page 2 Emptypar Pedro Aujourd'hui à 10:37

» Un autre pense-bête...
Des procédures pour le réseau - Page 2 Emptypar Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.
Des procédures pour le réseau - Page 2 Emptypar Pedro Sam 16 Nov 2024 - 14:04

» Décompilation
Des procédures pour le réseau - Page 2 Emptypar JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères
Des procédures pour le réseau - Page 2 Emptypar jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel
Des procédures pour le réseau - Page 2 Emptypar jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel
Des procédures pour le réseau - Page 2 Emptypar jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer
Des procédures pour le réseau - Page 2 Emptypar Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions
Des procédures pour le réseau - Page 2 Emptypar Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic
Des procédures pour le réseau - Page 2 Emptypar maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales
Des procédures pour le réseau - Page 2 Emptypar Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette
Des procédures pour le réseau - Page 2 Emptypar Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif
Des procédures pour le réseau - Page 2 Emptypar JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode
Des procédures pour le réseau - Page 2 Emptypar Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe
Des procédures pour le réseau - Page 2 Emptypar leclode Ven 20 Sep 2024 - 19:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier
Le Deal du moment :
Smartphone Xiaomi 14 – 512 Go- 6,36″ 5G ...
Voir le deal
599 €

 

 Des procédures pour le réseau

Aller en bas 
+4
bignono
Froggy One
Yannick
papydall
8 participants
Aller à la page : Précédent  1, 2
AuteurMessage
papydall

papydall


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

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptyVen 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 ?
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
RMont




Nombre de messages : 233
Age : 82
Localisation : charente maritime
Date d'inscription : 29/12/2008

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptyVen 27 Sep 2013 - 19:15

[left]
pour faire plaisir a papydall
avec win 7 64 bits

Des procédures pour le réseau - Page 2 Captur10
Revenir en haut Aller en bas
papydall

papydall


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

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptyVen 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 ….
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

Des procédures pour le réseau - Page 2 Empty
MessageSujet: re   Des procédures pour le réseau - Page 2 EmptyVen 27 Sep 2013 - 19:49

Il existe....mais c' est peut être moi qui l' ai créé...Laughing

Edit : ipconfig est trouvé par l' invite de commande ! cheers 
ce doit être une erreur de lancement de ton code par panoramic. Embarassed  je suis resté en 25i4.
Revenir en haut Aller en bas
papydall

papydall


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

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptyVen 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.
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

Des procédures pour le réseau - Page 2 Empty
MessageSujet: re   Des procédures pour le réseau - Page 2 EmptyVen 27 Sep 2013 - 20:18

Je crois que je vais en faire autant.Very Happy
Revenir en haut Aller en bas
Jean Claude

Jean Claude


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

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptyVen 27 Sep 2013 - 20:20

Pour la question des caractères (é ou ,) c'est pareil sous XP comme Rmont.

A+

Revenir en haut Aller en bas
Jean Claude

Jean Claude


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

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptyVen 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+
Revenir en haut Aller en bas
bignono

bignono


Nombre de messages : 1127
Age : 67
Localisation : Val de Marne
Date d'inscription : 13/11/2011

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptyVen 27 Sep 2013 - 21:15

Bonsoir à tous, Smile 
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 + Wink Wink Wink
Revenir en haut Aller en bas
Jean Claude

Jean Claude


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

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptyVen 27 Sep 2013 - 21:19

On devrait te lire mieux Bignono,
Merci pour le RE tuyau.
A+
Revenir en haut Aller en bas
papydall

papydall


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

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptyVen 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
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
bignono

bignono


Nombre de messages : 1127
Age : 67
Localisation : Val de Marne
Date d'inscription : 13/11/2011

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptyVen 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+Wink Wink Wink
Revenir en haut Aller en bas
papydall

papydall


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

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptySam 28 Sep 2013 - 0:43

C'est fait.
Merci
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

Des procédures pour le réseau - Page 2 Empty
MessageSujet: re   Des procédures pour le réseau - Page 2 EmptySam 28 Sep 2013 - 11:06

@ Papydall,
Avec le dernier code
Des procédures pour le réseau - Page 2 Captur15
Revenir en haut Aller en bas
RMont




Nombre de messages : 233
Age : 82
Localisation : charente maritime
Date d'inscription : 29/12/2008

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptySam 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





Revenir en haut Aller en bas
papydall

papydall


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

Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 EmptySam 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 !
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé





Des procédures pour le réseau - Page 2 Empty
MessageSujet: Re: Des procédures pour le réseau   Des procédures pour le réseau - Page 2 Empty

Revenir en haut Aller en bas
 
Des procédures pour le réseau
Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» Les procédures LINOR et ARCOR
» Application client/serveur eventuellement sur réseau
» Mes Procédures
» a l'aide sur " procédures "
» Un extracteur de procédures

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: