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
» Simuler l’appui de n’importe quelle touche.
par papydall Hier à 23:54

» Le Forum est en vacances.
par JL35 Hier à 21:20

» Une autre façon de terminer une application.
par JL35 Mar 22 Aoû 2017 - 14:27

» Compilateur FBPano
par Mike Lun 21 Aoû 2017 - 23:17

» Pb 20 (en analyse): plantage à l'appel d'un SUB
par Jack Lun 21 Aoû 2017 - 21:58

» Pb 19 (en analyse): libellé d'erreur dans des IF imbriqués
par Jack Lun 21 Aoû 2017 - 21:55

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Lun 21 Aoû 2017 - 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Lun 21 Aoû 2017 - 5:01

» Mettre en windows en veille
par papydall Lun 21 Aoû 2017 - 4:15

» Stretch_on ne stretch plus...
par papydall Dim 20 Aoû 2017 - 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Dim 20 Aoû 2017 - 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Paramètres internet

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



Nombre de messages : 5928
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 : 1085
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 : 5928
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
-
» Internet Explorer, google chrome, Firefox: Editeur inactif dans le PA
» Où sont les paramètres fti\ ??
» agenda sur internet
» Fenêtres qui s'ouvrent toutes seules sur internet sous IE et Mozzilla
» [Résolu] Comment créer un site Internet gratuit

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: