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
» I Love You
par JL35 Jeu 19 Oct 2017 - 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Paramètres internet

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



Nombre de messages : 5953
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 : 1086
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 : 5953
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\ ??
» 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
» virus de navigateur internet

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: