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
» Planétarium virtuel.
par Pedro Alvarez Hier à 16:57

» Roues dentées
par jean_debord Hier à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Surveillance WiFi

Aller en bas 
AuteurMessage
JL35



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

MessageSujet: Surveillance WiFi   Ven 5 Fév 2016 - 0:48

Pour savoir qui est connecté à votre réseau WiFi à un instant donné, un utilitaire: WirelessNetworkWatcher,
à télécharger ici: http://www.nirsoft.net/utils/wireless_network_watcher.html
(en bas de page, prendre la version zip, sans installation, portable)
Ça permet de voir qui est connecté à votre réseau wifi, un parasite éventuel (!), ou surveiller ses propres connexions
(les enfants par exemple, qui sont censés étudier ou dormir...).
On peut lancer l'exécutable directement en GUI, sur le bureau, ou bien en ligne de commande depuis un programme Panoramic, par exemple:
Code:
DIM wat$,rtm$,f$,a$,k%
' Lien de chargement: http://www.nirsoft.net/utils/wireless_network_watcher.html
wat$ = "C:\OUTILS\WiFiWatcher\WNetWatcher.exe": ' A ajuster
rtm$ = "C:\TEMP\": ' fichiers temporaires
f$ = rtm$+"WiFi.txt": ' A ajuster
IF FILE_EXISTS(f$)=1 THEN FILE_DELETE f$
HEIGHT 0,800
MEMO 1: FULL_SPACE 1: FONT_NAME 1,"Consolas": FONT_SIZE 1,10
EXECUTE_WAIT "Cmd.exe /c "+wat$+" /stext "+f$
WHILE FILE_EXISTS(f$) = 0: PAUSE 100: END_WHILE
Uni2Asc(f$,""): ' Conversion du fichier résultat Unicode en Ascii pur
FILE_LOAD 1,f$: FILE_DELETE f$
END
' ==============================================================================
SUB Uni2Asc(f$,fr$)
  ' Conversion fichier texte f$ Unicode (16bits) en Ascii (8bits)
  ' Si fr$ = "", la conversion se fait dans le fichier f$
  DIM_LOCAL sz%,i%,v%(2000),a$
  FILEBIN_OPEN_READ 9,f$: sz%=FILEBIN_SIZE(9)
  a$ = ""
  WHILE sz% > 2000
      FILEBIN_BLOCK_READ 9,2000,v%(0)
      FOR i% = 0 TO 1999: a$ = a$+CHR$(v%(i%)): NEXT i%: sz% = sz%-2000
  END_WHILE
  IF sz%>0
      FILEBIN_BLOCK_READ 9,sz%,v%(0)
      FOR i% = 0 TO sz%-1: a$ = a$+CHR$(v%(i%)): NEXT i%
  END_IF
  FILEBIN_CLOSE 9
  IF fr$ = "" THEN fr$ = f$
  FILEBIN_OPEN_WRITE 9,fr$
      FOR i% = 3 TO LEN(a$)-1 STEP 2: FILEBIN_WRITE 9,ASC(MID$(a$,i%,1)): NEXT i%
  FILEBIN_CLOSE 9
END_SUB
' ==============================================================================
Il y a 2 chemins à ajuster:
- le chemin du programme lui-même
- le chemin du répertoire des fichiers temporaires (supprimés après usage)

ATTENTION: après lancement du programme, il faut attendre une vingtaine de secondes (chez moi) avant d'obtenir le résultat (le temps du scan des adresses IP).
Ce résultat est dans un fichier texte, à mettre en forme (un zéro est intercalé après chaque caractère, la conversion est un peu bestiale mais ça marche).
Il y a d'autres options de sortie (par exemple html, etc.), à voir dans le fichier readme.txt joint au programme)

PS  j'ai modifié un peu: comme c'est un petit fichier, pas besoin de faire appel à KGF.dll, on peut le faire en Panoramic pur.

Edit 2: En fait le texte résultat est au format Unicode, du coup j'ai supprimé la lecture dans une chaîne pour supprimer les zéros un par un, et j'ai ajouté une petite sub de conversion unicode en texte pur, laquelle sub pourrait servir à d'autres occasions.


Dernière édition par JL35 le Ven 5 Fév 2016 - 22:27, édité 3 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Surveillance WiFi   Ven 5 Fév 2016 - 2:15

Merci JL35 pour cette info.
J’ajoute que l’on peut franciser  cet utilitaire qui est en anglais par défaut.
Pour cela il suffit de cliquer sur French (il en existe trois) pour télécharger wnetwatcher_french.zip qui contient WNetWatcher_Ing.ini qu’il faut mettre dans le même dossier où vous avez dézipé wnetwatcher.zip
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Surveillance WiFi   Ven 5 Fév 2016 - 2:51

Merci. Ca marche parfaitement.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



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

MessageSujet: Re: Surveillance WiFi   Ven 5 Fév 2016 - 13:24

Merci à vous.
Tu as raison papydall, mais bon, pour l'usage en ligne de commande comme ici l'anglais est simple et supportable.
J'ai fait la lecture du fichier -> chaîne en panoramic pur (et non KGF.dll), pour un petit fichier comme ici il n'y a pas une grosse différence (pour un gros fichier, la différence de temps d'exécution est considérable).

Je ne sais plus quel est ce format de texte renvoyé, avec un 0 machine après chaque caractère, il y a peut-être un moyen plus simple que l'analyse caractère par caractère pour le convertir en texte brut ?
Il semble que c'est le format UTF-16/UCS-2 (little endian), mais je ne suis pas plus avancé pour autant...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Surveillance WiFi   Ven 5 Fév 2016 - 14:07

JL35 a écrit:
Je ne sais plus quel est ce format de texte renvoyé, avec un 0 machine après chaque caractère, il y a peut-être un moyen plus simple que l'analyse caractère par caractère pour le convertir en texte brut ?
Il semble que c'est le format UTF-16/UCS-2 (little endian), mais je ne suis pas plus avancé pour autant...

Je pense que c’est un délimiteur.
Les délimiteur sont
/stab ===> Tabulation
/comma ===> Virgule

La doc indique
Command-Line Options:
/cfg <Filename>     Start Wireless Network Watcher with the specified configuration file. For example:
WNetWatcher.exe /cfg "c:\config\wnw.cfg"
WNetWatcher.exe /cfg "%AppData%\WNetWatcher.cfg"
/stext <Filename>   Scan your network, and save the network devices list into a regular text file.
/stab <Filename>    Scan your network, and save the network devices list into a tab-delimited text file.
/scomma <Filename>     Scan your network, and save the network devices list into a comma-delimited text file (csv).
/stabular <Filename>     Scan your network, and save the network devices list into a tabular text file.
/shtml <Filename>       Scan your network, and save the network devices list into HTML file (Horizontal).
/sverhtml <Filename>    Scan your network, and save the network devices list into HTML file (Vertical).
/sxml <Filename>        Scan your network, and save the network devices list into XML file.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: Re: Surveillance WiFi   Ven 5 Fév 2016 - 16:18

Je sais bien papydall que l'option définit le délimiteur de champs, mais ce soit /stext ou /stab on a toujours ce fichu format unicode avec ses zéros partout, illisible par Panoramic (mais lisible par Notepad): les caractères sont codés sur 16 bits et non sur 8, par contre pas avec /scomma.
Je laisse comme ça (/stext), avec la sub de conversion, c'est mieux pour l'affichage
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Surveillance WiFi   Ven 5 Fév 2016 - 16:31

OK ! J'ai pigé. king
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Surveillance WiFi   

Revenir en haut Aller en bas
 
Surveillance WiFi
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Mon PC se connécte pas automatique a la wifi
» l'IPOD TOUCH en WIFI
» [résolu]connexion wifi
» installation POI WIFI
» pci wifi Ce périphérique ne peut pas démarrer

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: