My WIFI KEYS
Publié : mer. 22/sept./2021 19:48
Salut à tous,
Je vous propose un petit soft que j'ai fait pour afficher les clés wifi enregistrées dans un réseau local.
Je l'ai fait car lorsque je vais chez mes clients, soit ils ne connaissent pas la clé wifi et faut aller la chercher dans l'interface de la box ou derrière celle ci, soit la clé fait 3km de long ce qui me fait perdre du temps.
Du coup ce petit logiciel vous affichera la clé du ou des SSID de votre réseau local et la copiera dans le presse papier.
Merci pour vos retours.
Update 1.01 :
- Ajout du support pour les OS allemand et anglais
- Prise en charge des espaces
Notes
- Vous devez avoir une interface wifi (ou clé usb wifi branchée)
- Le service : Service de configuration automatique WLAN doit être à minima sur "automatique" (ce qui ai logiquement le cas).
Merci pour vos retours.
Téléchargement : MyWifi.zip
Code : Tout sélectionner
; My Wifikeys
; My Wifikeys
; My Wifikeys
; By Ar-S // 2021-09-21
; v1.01 adding english findstring strings.
; Thanks to Barry - Englsih keyword
; Thanks Cyllceaux - Deutch keyword
NewList ssid.s()
; Catch SSID
param$ = "wlan show profiles"
p=RunProgram("netsh",param$,"",#PB_Program_Hide|#PB_Program_Open|#PB_Program_Read|#PB_Program_Error)
If p
While ProgramRunning(p)
If AvailableProgramOutput(p)
t$ = ReadProgramString(p)
n1=FindString(t$,":")
If n1
n2=Len(t$)
r$=Mid(t$,n1+1,n2-n1)
AddElement (ssid())
ssid() = r$
EndIf
EndIf
err$ = ReadProgramError(p)
If err$
o$+"<ERR> " + err$ +#CRLF$
EndIf
Wend
CloseProgram(p)
EndIf
If ListSize (ssid()) = 0
MessageRequester("Erreur","Connexion WIFI introuvable ou ce n'est pas la connexion principale."+Chr(10)+"Ce programme va se terminer",0)
End
EndIf
If OpenWindow(0, 0, 0, 360, 60, "LDV MULTIMEDIA MY WIFIKEYS v1.01", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
GO = 0
ComboBoxGadget(1,1,1,358,30)
ForEach ssid()
AddGadgetItem(1, -1, ssid() )
Next
RemoveGadgetItem(1,0)
SetGadgetState(1,0)
StringGadget(2,1,32,358,30,"",#PB_String3D_ReadOnly)
Repeat
Event = WaitWindowEvent()
Select EventGadget()
Case 1
If EventType() = #PB_EventType_Change
ssid$ = GetGadgetText(1)
param$="wlan show profile name="+Chr(34)+Trim(ssid$)+Chr(34)+" key=clear"
p2=RunProgram("netsh",param$,"",#PB_Program_Hide|#PB_Program_Open|#PB_Program_Read|#PB_Program_Error)
If p2
r2$ = ""
While ProgramRunning(p2)
If AvailableProgramOutput(p2)
t$ = ReadProgramString(p2)+#CRLF$
FR = FindString(t$,"Contenu de la cl",1,#PB_String_NoCase) ; français
UK = FindString(t$,"key content",1,#PB_String_NoCase) ; English
DE = FindString(t$,"sselinhalt",1,#PB_String_NoCase) ; Deutch
If FR <> 0
r2$ = t$
ElseIf UK <> 0
r2$ = t$
ElseIf DE <> 0
r2$ = t$
EndIf
If r2$ <> ""
n1=FindString(r2$,":")
n2=Len(r2$)
r2$=Mid(r2$,n1+1,n2-n1)
Else
r2$ = "Pas de connexion wifi d'activée :[ "
EndIf
EndIf
err$ = ReadProgramError(p2)
If err$
o$+"<ERR> " + err$ +#CRLF$
EndIf
Wend
CloseProgram(p2)
Else
Debug "erreur"
EndIf
SetGadgetText(2,"Wifi key : "+ r2$)
SetClipboardText(r2$)
EndIf
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
