Afficher SSID connecté

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
JujuBois91
Niveau 1
Niveau 1
Messages : 11
Enregistré le : jeu. 15 juin 2017 10:08
Status : Hors ligne

Afficher SSID connecté

#1

Message par JujuBois91 »

Bonjour

Je cherche à faire un script qui permet de retourner le nom du ssid auquel nous sommes connectés, j ai fait plusieurs essaie sans succès
#include <Constants.au3>

MsgBox( 0,"toto",_GetActiveSSID())

Func _GetActiveSSID()
    Local $foo = Run("netsh wlan show int", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

    $sReturn = StringRegExp($foo, '(?s)(?i)SSID\s*:\s(.*?)' & @CR, 3)
    If @error Then
        Return SetError(1, 0, 'error')
    EndIf
    Return $sReturn[0]
 EndFunc   ;==>_GetActiveSSID
 

Merci de votre aide
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: Afficher SSID connecté

#2

Message par mikell »

C'est parce que tu lis le PID du process, pas le retour console ^^

Local $foo = Run("netsh wlan show int", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Local $sReturn = ""
While 1
    $sReturn &= StdoutRead($foo)
    If @error Then Exitloop
Wend
msgbox(0,"", $sReturn)  ; test
; etc
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
JujuBois91
Niveau 1
Niveau 1
Messages : 11
Enregistré le : jeu. 15 juin 2017 10:08
Status : Hors ligne

Re: Afficher SSID connecté

#3

Message par JujuBois91 »

Salut

Merci de ta réponse, j vais refaire des tests de suite et essayé de me battre avec StringRegExp juste pour récupérer le nom de l SSID

@+
JujuBois91
Niveau 1
Niveau 1
Messages : 11
Enregistré le : jeu. 15 juin 2017 10:08
Status : Hors ligne

Re: Afficher SSID connecté

#4

Message par JujuBois91 »

Re

Une idée de pourquoi ça me retourne "1" et pas le nom du SSID
#include <Constants.au3>



$sOutput = Run("netsh wlan show int", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

While 1

     $asResult = StringRegExp($sOutput, '(?s)(?i)SSID\s*:\s(.*?)' & @CR, 3)
    If @error Then Exitloop
Wend
msgbox(0,"test", $asResult)  ; test
; etc
Avatar du membre
jchd
AutoIt MVPs (MVP)
AutoIt MVPs (MVP)
Messages : 2272
Enregistré le : lun. 30 mars 2009 22:57
Localisation : Sud-Ouest de la France (43.622788,-1.260864)
Status : Hors ligne

Re: Afficher SSID connecté

#5

Message par jchd »

1/ Il est où le StdOutRead en boucle ?
2/ $asResult est un tableau
3/ (?s)(?i) devient (?si), plus joli
La cryptographie d'aujourd'hui c'est le taquin plus l'électricité.
JujuBois91
Niveau 1
Niveau 1
Messages : 11
Enregistré le : jeu. 15 juin 2017 10:08
Status : Hors ligne

Re: Afficher SSID connecté

#6

Message par JujuBois91 »

Oups :( mais toujours un retour à "1"
#include <Constants.au3>

Local $sOutput = Run("netsh wlan show int", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Local $sReturn = ""
While 1
    $sReturn &= StdoutRead($sOutput)
    If @error Then Exitloop
   Wend

$sSSID = StringRegExp($sReturn, '(?si) SSID\s*:\s(.*?)' & @CR, 3)

msgbox(0,"SSID", $sSSID)  ; test
; etc
Avatar du membre
orax
Modérateur
Modérateur
Messages : 1479
Enregistré le : lun. 23 mars 2009 04:50
Localisation : ::1
Status : Hors ligne

Re: Afficher SSID connecté

#7

Message par orax »

Comme l'a dit jchd, StringRegExp retourne un tableau. msgbox(0,"SSID", $sSSID[0])
De petits détails peuvent faire toute la différence. — Quand la boule de neige commence à rouler… poussez-la. (Columbo)
JujuBois91
Niveau 1
Niveau 1
Messages : 11
Enregistré le : jeu. 15 juin 2017 10:08
Status : Hors ligne

Re: Afficher SSID connecté

#8

Message par JujuBois91 »

Ah pardon je n avais pas compris cela, un grand merci

Voici le code qui fonctionne
#include <Constants.au3>




Local $sOutput = Run("netsh wlan show int", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Local $sReturn = ""
While 1
    $sReturn &= StdoutRead($sOutput)
    If @error Then Exitloop
   Wend

$sSSID = StringRegExp($sReturn, '(?si) SSID\s* ÿ:\s(.*?)' & @CR,3)

msgbox(0,"SSID", $sSSID[0])
; etc
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: Afficher SSID connecté

#9

Message par mikell »

Hamdoulilah :mrgreen:
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Avatar du membre
jchd
AutoIt MVPs (MVP)
AutoIt MVPs (MVP)
Messages : 2272
Enregistré le : lun. 30 mars 2009 22:57
Localisation : Sud-Ouest de la France (43.622788,-1.260864)
Status : Hors ligne

Re: Afficher SSID connecté

#10

Message par jchd »

C'est sûr ça ?
Parce qu'avec le ÿ dans le pattern je vois mal comment ça fonctionne cette histoire, en tout cas pas chez moi (W7).

Code : Tout sélectionner

#cs

RFC :

The length of the SSID field is between 0 and 32 octets. A SSID field of length 0 is used within Probe
Request frames to indicate the wildcard SSID. The wildcard SSID is also used in Beacon and Probe
Response frames transmitted by mesh STAs.

When the UTF-8 SSID subfield of the Extended Capabilities element is equal to 1 in the frame that includes
the SSID element, or the Extended Capabilities of the source of the SSID information is known to include
the UTF-8 SSID capability based on a previously received Extended Capabilities element, the SSID is
interpreted using UTF-8 encoding. Otherwise, the character encoding of the octets in this SSID element is
unspecified.

#ce

Local $sOutput = Run("netsh wlan show int", "", @SW_HIDE, $STDOUT_CHILD)
Local $sReturn
Do
    $sReturn &= StdoutRead($sOutput)
Until @error
Local $sSSID = StringRegExp($sReturn, '(?i)\sSSID\s*:\s(\N*)', 1)[0]
MsgBox(0, "SSID", $sSSID)
La cryptographie d'aujourd'hui c'est le taquin plus l'électricité.
JujuBois91
Niveau 1
Niveau 1
Messages : 11
Enregistré le : jeu. 15 juin 2017 10:08
Status : Hors ligne

Re: Afficher SSID connecté

#11

Message par JujuBois91 »

Salut

Pour le moment testé sur 2 PC et ok ! Windows 10
JujuBois91
Niveau 1
Niveau 1
Messages : 11
Enregistré le : jeu. 15 juin 2017 10:08
Status : Hors ligne

Re: Afficher SSID connecté

#12

Message par JujuBois91 »

Bonjour à tous

Petite question, je souhaiterais afficher mon résultat dans un label cependant je n y arrive pas

 GUICtrlCreateLabel($sSSID[0], 10, 70);

Pouvez-vous m'aider ?

merci
JujuBois91
Niveau 1
Niveau 1
Messages : 11
Enregistré le : jeu. 15 juin 2017 10:08
Status : Hors ligne

Re: Afficher SSID connecté

#13

Message par JujuBois91 »

C'est Good j ai trouvé merci :)
Répondre