Paramètres internet

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

Rien de révolutionnaire, mais comme le forum est plutôt calme ces temps-ci (eh oui, tout le monde est écrasé de chaleur...).
Pour avoir toujours sous la main ses paramètres wifi (par exemple pour raccorder un nouvel appareil au réseau, tablette, portable, etc), ça peut être un programme accessible su le bureau. Il faut entrer en 'dur' le nom du réseau (chez moi, sous Orange: Livebox-xxxx) et la clé WEP de 26 caractères consécutifs:

Code:: ' Paramètres Livebox
LABEL Copier
DIM frec$,a$,k%
frec$ = "C:\TEMP\Captip.htm"
BORDER_SMALL 0
CAPTION 0,"Paramètres Wi-Fi"
WIDTH 0,240: HEIGHT 0,240: COLOR 0,0,0,0
ALPHA 10: TOP 10,5: LEFT 10,5: FONT_COLOR 10,255,255,255: FONT_BOLD 10
FONT_SIZE 10,12: CAPTION 10,"Adresse IP: "
ALPHA 11: TOP 11,30: LEFT 11,10: FONT_NAME 11,"Lucida Console"
BUTTON 12: TOP 12,TOP(11)-5: LEFT 12,160: WIDTH 12,50: CAPTION 12,"Copier"
ON_CLICK 12,Copier
FONT_SIZE 11,12: FONT_BOLD 11: FONT_COLOR 11,255,255,0
ALPHA 1: TOP 1,60: LEFT 1,5: FONT_COLOR 1,255,255,255: font_bold 1
FONT_SIZE 1,12: CAPTION 1,"paramètres Wi-Fi:"
ALPHA 2: TOP 2,85: LEFT 2,5: FONT_COLOR 2,255,255,255
FONT_SIZE 2,10: CAPTION 2,"nom du réseau"
ALPHA 3: TOP 3,105: LEFT 3,5: FONT_COLOR 3,255,164,0
FONT_SIZE 3,10: CAPTION 3,"Livebox-xxxx": ' <= ICI, mettre le nom du réseau
ALPHA 4: TOP 4,130: LEFT 4,5: FONT_COLOR 4,255,255,255
FONT_SIZE 4,10: CAPTION 4,"clé de sécurité"
ALPHA 5: TOP 5,150: LEFT 5,5: FONT_COLOR 5,255,164,0
FONT_SIZE 5,10: font_name 5,"Lucida Console"
CAPTION 5,"XXXXYYYYXXXXYYYYXXXXYYYYXX": ' <= ICI, mettre la clé de sécurité (clé WEP)
BUTTON 6: TOP 6,175: LEFT 6,30: WIDTH 6,140
FONT_SIZE 6,10: CAPTION 6,"copier la clé": ON_CLICK 6,Copier
PageWeb("http://whatismyipaddress.com/",frec$)
FILE_OPEN_READ 1, frec$
WHILE FILE_EOF(1) = 0
   FILE_READLN 1, a$: k% = INSTR(a$,"LOOKUPADDRESS")
   IF k% > 0
   a$ = MID$(a$,k%+22,100)
   k% = INSTR(a$, CHR$(34)): a$ = LEFT$(a$,k%-1): EXIT_WHILE
   END_IF
END_WHILE
FILE_CLOSE 1: FILE_DELETE frec$
CAPTION 11,a$
END
' ==============================================================================
Copier:
IF NUMBER_CLICK = 6
   CLIPBOARD_STRING_COPY CAPTION$(5)
ELSE
   CLIPBOARD_STRING_COPY CAPTION$(11)
END_IF
RETURN
' ==============================================================================
SUB PageWeb(url$,frec$)
' capture d'une page web donnée par son url (pages au format html) -> frec$
DIM_LOCAL pwa$, fscr$, gui$: gui$ = CHR$(34)
fscr$ = "C:\Temp\Scrdnl.vbs": ' script vbs (temporaire)
DATA "Debscr"
DATA "HTTPDownload "+gui$+url$+gui$+", "+gui$+frec$+gui$
DATA "Sub HTTPDownload( URL, Path )"
DATA "Dim i, objFile, objFSO, objHTTP, strFile, strMsg"
DATA "Const ForReading = 1, ForWriting = 2, ForAppending = 8"
DATA "Set objFSO = CreateObject( "+gui$+"Scripting.FileSystemObject"+gui$+" )"
DATA "strFile = Path"
DATA "Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True )"
DATA "Set objHTTP = CreateObject( "+gui$+"WinHttp.WinHttpRequest.5.1"+gui$+" )"
DATA "objHTTP.Open "+gui$+"GET"+gui$+", URL, False"
DATA "objHTTP.Send"
DATA "For i = 1 To LenB( objHTTP.ResponseBody )"
DATA " objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )"
DATA "Next"
DATA "objFile.Close( )"
DATA "End Sub"
DATA "Finscr"
RESTORE: READ pwa$: WHILE pwa$ <> "Debscr": READ pwa$: END_WHILE
FILE_OPEN_WRITE 9, fscr$
READ pwa$: WHILE pwa$ <> "Finscr": FILE_WRITELN 9, pwa$: READ pwa$: END_WHILE
FILE_CLOSE 9
EXECUTE_WAIT "WSCRIPT.exe " + fscr$: ' exécution du script
FILE_DELETE fscr$: ' nettoyage
END_SUB
' ==============================================================================

En prime on récupère son adresse IP, récupérée sur http://whatismyipaddress.com/

Apparemment, après recherches, il n'y a pas moyen de récupérer ces données (nom du réseau et clé WEP) dans le pc, elles semblent ne figurer que dans la box, et je ne sais pas aller les y chercher par programme, alors je les ai mises 'en dur'.

En fait, dans le même ordre d'idée, j'ai récupéré un ~~petit~~ logiciel (gratuit): TightVNC qui permet de prendre le contrôle d'un autre pc (si le logiciel correspondant: serveur y est installé également, évidemment, et avec son consentement), c'est bien pratique pour faire la maintenance du pc de mon épouse (même réseau... à quelques mètres du mien), on peut travailler comme si on était dessus, y transférer des fichiers, etc., c'est assez génial. En fait il y a deux logiciels: un 'client', celui qui prend le contrôle, et un 'serveur', celui qui donne le contrôle.
Et j'envisage de faire la même chose sur le pc de ma fille qui utilise quelques uns de mes logiciels, dans un autre patelin, et ce sera bien pratique pour les mises à jour et modifs en direct, et même tests avec son environnement réel.

Bonjour JL35, Smile

Très intéressant ton petit programme. Moi j'ai sfr box et ça fonctionne sans problèmes.
Merci JL35.
A+ Wink

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

Bonjour bignono, c'est plutôt un gadget mais ça peut servir !

» Paramètres d'une SUB
» Panoramic_Editor: paramètres ignorés ?
» Paramètres ('Choix') de Panoramic_Editor
» Renvoi de paramètres par une sub
» Passage de paramètres à un programme Panoramic