Livebox sagem v1.1 changer son adresse ip d'un clic

Soyez le premier à donner votre avis sur cette source.

Vue 9 614 fois - Téléchargée 535 fois

Télécharger le projet
Commenter

Description

Change l'adresse ip d'une liveBox sagem version 1.1 Orange d'un seul clic (si vous possédez une ip dynamique).Cet utilitaire charge la page de configuration de la livebox dans IE qui est lancer en mode invisible et simule l'appui sur le bouton connecter/déconnecter ce qui a pour conséquence de changer votre votre adresse IP.(pas besoin de débrancher la livebox).Par défaut le nom utilisateur est <<admin>> et le mot de passe <<admin>>(si vous ne l'avez pas changer).Si vous avez la même interface que dans la capture d'écran cela devrait fonctionner.Pour le vérifier tapez dans la barre d'adresse de votre navigateur <<192.168.1.1>> puis entrez <utilisateur> et <mot de passe> puis cliquez sur <information> puis <logiciel>. Pour moi cela fonctionne très bien avec comme version <f@3202> et version firmware<3202_2601E2>. Très pratique avec MEGAVIDEO pour voir la fin d'un film lorsque l'on a atteint les 72 minutes, ou pour télécharger sur RAPIDSHARE plusieurs fichiers de suite.Cette méthode fonctionne peut être avec d'autre fournisseurs qu'Orange et d'autres version de livebox à vous de le vérifier.Une fois que vous avez cliqué sur changer ip attendez le message comme quoi votre ip à été changée une à deux minutes.

Source / Exemple : 


'Sur un form mettez deux textbox (text1 et text2) un commandbutton (command1)ainsi qu'un label(label1)
'dans reference ajoutez microsoft internet control

Private Sub Command1_Click()

Dim MSG As String
Dim Mpass As String
Dim User As String

If Text2.Text = "" Or Text1.Text = "" Then
   Dim Mes As String
   Mes = "Veuilliez entrez votre mot de passe et le nom utilisateur"
   MsgBox Mes, vbInformation, "LiveBox SAGEM"
   Exit Sub
End If

Mpass = Text1.Text
User = Text2.Text

MSG = "Votre adresse IP a été changée!"

Command1.Visible = False

Label1.Visible = True

Box_Ie User, Mpass

Label1.Visible = False

MsgBox MSG, vbInformation, "LiveBox SAGEM"

Fin_Ie

End Sub

'ajoutez un module
'et collez ceci dedans

Private Const READYSTATE_INTERACTIVE = 3
Private Const READYSTATE_COMPLETE = 4
Dim IE As Object 'InternetExplorer

Public Sub Box_Ie(User As String, Pass As String)
 

'Créer un objet internet Explorer
 Set IE = CreateObject("InternetExplorer.Application")
 
 
  'le rend visible
 'IE.Visible = True
 'en plein écran
 IE.TheaterMode = False

 'ouvre une page...
 IE.navigate "http://192.168.1.1/index.cgi?user_name=" & User & "&password=" & Pass

 'attend que la page soit chargée
 Do While IE.readyState <> READYSTATE_COMPLETE
 DoEvents
 Loop
 
 'ouvre une page...
 IE.navigate "javascript:mimic_button('sidebar: lb_sidebar_svcs_main..', 0)"

 'attend que la page soit chargée
 Do While IE.readyState <> READYSTATE_COMPLETE
 DoEvents
 Loop
 
 'ouvre une page...
 IE.navigate "javascript:mimic_button('sidebar: lb_sidebar_svcs_internet_access..', 0)"

 'attend que la page soit chargée
 Do While IE.readyState <> READYSTATE_COMPLETE
 DoEvents
 Loop
 

 'deconnection
 IE.navigate "javascript:mimic_button('submit_button_conn_disconect: ..', 0)"

 'attend que la page soit chargée
   'Do While IE.readyState <> READYSTATE_INTERACTIVE   'test sans controle
   '   DoEvents
   'Loop
   
   Do While IE.readyState <> READYSTATE_COMPLETE
      DoEvents
   Loop

 
 'connection
 IE.navigate "javascript:mimic_button('submit_button_conn_connect: ..', 0)"
 
 'attend que la page soit chargée

   
   Do While IE.readyState <> READYSTATE_COMPLETE
      DoEvents
   Loop

End Sub

Public Sub Fin_Ie()

IE.Quit
Set IE = Nothing
End
End Sub

Conclusion :


Modifiez cet utilitaire pour l'adapter à vos besoins. bon film et bons téléchargements sur le net.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
novocaine67 Messages postés 2 Date d'inscription lundi 1 février 2010 Statut Membre Dernière intervention 31 mai 2010
31 mai 2010 à 14:10
Sympa, je connaissais la petite apps en Bash qui passée par telnet mais je n'avais pas pensé passer par VB merci sympa l'idée ;)
Zestyr Messages postés 466 Date d'inscription mercredi 12 août 2009 Statut Membre Dernière intervention 17 octobre 2011
26 mai 2010 à 21:47
(y) Ah oui pas con !
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (zork74)