View Single Post
  #9  
Old 02.01.2011, 01:43
andy23
Guest
 
Posts: n/a
Default

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 = true
nav.navigate "192.168.1.1"
call Wait_IE(nav)
nav.document.All.tags("input").Item("authpasswd").Value = "admin"
nav.document.formu.submit
call Wait_IE(nav)
end sub

sub bosse(nav)
call Click_IE(nav,"rubric2")
call Click_IE(nav,"link3")
call Click_IE(nav,"linkbutt3")
end sub

sub clean(nav)
nav.quit
end sub

sub main
dim nav

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


J'ai trouvé le script ci-dessus sur internet (**External links are only visible to Support Staff****External links are only visible to Support Staff**). Pensez-vous qu'il pourrait marcher ? Et si oui, comment l'utiliser ? J'ai essayé de le copier dans les 4 rubriques de "reconnexion", ça n'a pas marché mais je m'y suis peut être mal pris...