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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:48

» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 17:27

» Mah-Jong européen new-look
par Minibug Hier à 22:31

» track_bar circulaire
par Klaus Hier à 13:54

» API Windows
par Klaus Hier à 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Paramètres internet

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



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

MessageSujet: Paramètres internet   Lun 22 Juil 2013 - 19:16

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

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

MessageSujet: Re: Paramètres internet   Mar 23 Juil 2013 - 12:59

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 Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Paramètres internet   Mar 23 Juil 2013 - 14:51

Bonjour bignono, c'est plutôt un gadget mais ça peut servir !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Paramètres internet   

Revenir en haut Aller en bas
 
Paramètres internet
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Où sont les paramètres fti\ ??
» Recuperation de paramètres
» IP Passerelle
» Activation/Compatibilité IPv6 ?
» Bbox connectée en réseau local seulement

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: