Recherchez dans la Communauté

Vous avez une question ?

Interrogez la communauté

internet & fixe ma connexion

Script de reconnexion pour le dernier firmware

F5BJR1
contributeur occasionnel
1 954  

Script de reconnexion pour le dernier firmware

saisir ceci , le renommer par exemple en reconnect.vbs

 

il vous suffira de cliquer sur le nom du fichier

 

le forum modifie la ligne : nav.navigate "19*.***.*.1"

 

mettre l adresse IP de la llivebox a la place des étoiles

 

----------------------------------------

 

call main
sub wait_IE(nav)
wScript.Sleep(4000)
do while not nav.ReadyState = 4
loop
end sub
sub click_IE (nav,id)
nav.document.getelementbyID(id).click
call wait_IE(nav)
end sub
sub init(nav)
set nav = CreateObject("InternetExplorer.Application")
nav.visible = false
nav.navigate "19*.***.*.1"
call wait_IE(nav)
nav.document.getelementbyID("PopupUsername").Value = "admin"
nav.document.getelementbyID("PopupPassword").Value = "admin"
nav.document.getelementbyID("bt_authenticate").click
call wait_IE(nav)
end sub
sub execute_restart(nav)
nav.navigate "19*.***.*.1/advConfigAccessType.html"
call wait_IE(nav)
call click_IE(nav,"bt_refresh")
call wait_IE(nav)

call wait_IE(nav)
call click_IE(nav,"bt_save")
call wait_IE(nav)
end sub
sub clean(nav)
nav.quit
end sub
sub main
dim nav
call init(nav)
call execute_restart(nav)
call clean(nav)
end sub

 

 

 

[Edit : Merci de ne pas indiquer d'informations confidentielles en public. Equipe modération]

1 RÉPONSE 1
kheops1979
contributeur
1 702  

Re : Script de reconnexion pour le dernier firmware

Le script me parait étrange il ne fonctionne pas chez moi sous windows 7, la syntax-->sub wait_IE(nav)-->pour internet explorer.

 

Avec firefox cela donne-->sub wait_FF(nav)?

 

De plus le mot de passe n'est pas "admin" chez moi donc je l'ai changer dans le script.

Vous avez une question ?

Interrogez la communauté

Déjà 754801 membres inscrits 🧡

1785 personnes actuellement en ligne

Tous les membres en ligne