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
» Panoramic et ses curiosités
par Jean Claude Aujourd'hui à 21:48

» Synedit Parameters
par Jean Claude Aujourd'hui à 21:15

» Utilitaire de suppression de fichiers
par Jean Claude Aujourd'hui à 21:11

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Hier à 21:16

» Compilateur FBPano
par jean_debord Hier à 9:56

» Bienvenue à Virtualalan !
par UltraVox Hier à 9:18

» Concours de Morpions
par jjn4 Hier à 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Paramètres internet

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



Nombre de messages : 5882
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 : 1079
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 : 5882
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: