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.
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.