Thread: [Script request] [Script] nouvelle livebox play 3 (noir)
View Single Post
  #1  
Old 16.02.2013, 11:16
telenaze
Guest
 
Posts: n/a
Default [Script] nouvelle livebox play 3 (noire)

Bonjour,

voici un script permettant de réaliser une reconnexion de la nouvelle livebox-Play du fai "Orange" et qui est de couleur noire.
Ce script doit être enregistré dans un document txt puis changer l'extension du fichier par "vbs".
Dans Jdownloader il faut utiliser l'onglet externe du module reconnexion et dans le champs "Parametre(utiliser des chemins absolus)" avec le bouton "Sélectionner" pointer à l'endroit ou vous avez sauvegardé ce "nom.vbs".

Ce scripts est une modification d'un script existant pour une livebox 2 SAGEM et qui fonctionnait très bien chez moi.

@+

' script de deconnexion/reconnexion Internet Livebox-Play 3

call Main

sub Wait_IE(nav)
WScript.Sleep(1000)
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 "192.168.1.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 bosse(nav)
'call Click_IE(nav,"rubric2") OLD
'call Click_IE(nav,"link3") OLD

nav.navigate "192.168.1.1/advConfigAccessType.html"
call Wait_IE(nav)

call Click_IE(nav,"bt_refresh")
call Wait_IE(nav)
end sub

sub clean(nav)
nav.quit
end sub

sub main
dim nav

call init(nav)
call bosse(nav)
call clean(nav)
end sub

Last edited by telenaze; 16.02.2013 at 13:47.