salut-salut
ça ne fonctionnait pas du tout chez moi (sauf une fois sur 20, pas intéressant quoi), donc j'ai trifouillé un peu dans le bazar avec l'aide de notre ami commun... google
et ça donne ceci :
Quote:
Option Explicit
Dim objIEA
Set objIEA = CreateObject("InternetExplorer.Application")
objIEA.Navigate "**External links are only visible to Support Staff**
While objIEA.Busy
Wend
objIEA.Navigate "javascript:mimic_button('sidebar:lb_sidebar_advanced_status..', 0)"
While objIEA.Busy
Wend
objIEA.Navigate "javascript:mimic_button('submit_button_conn_disconect: ..', 0)"
While objIEA.Busy
Wend
WScript.sleep 2000
objIEA.Navigate "javascript:mimic_button('submit_button_conn_disconect: ..', 0)"
While objIEA.Busy
Wend
objIEA.Navigate "javascript:mimic_button('sidebar:lb_sidebar_advanced_status..', 0)"
While objIEA.Busy
Wend
objIEA.Navigate "javascript:mimic_button('submit_button_conn_connect: ..', 0)"
While objIEA.Busy
Wend
WScript.sleep 2000
objIEA.Navigate "javascript:mimic_button('submit_button_conn_connect: ..', 0)"
While objIEA.Busy
Wend
WScript.sleep 2000
objIEA.Navigate "javascript:mimic_button('submit_button_conn_connect: ..', 0)"
While objIEA.Busy
Wend
objIEA.Quit
Set objIEA = Nothing
|
et ça semble marcher à tous les coups (en tous cas, c'est le cas pour moi)
j'ai aussi redescendu le temps d'attente à 15 sec
je dois toutes fois vous avouer que je n'y connaissais rien en VB jusqu'il y a 1 ou 2 heures
donc ce petit script pourrait sans aucuns doutes être rendu plus efficace
ps @ totoma27 : je suppose que la tache qui t'incombe
est de trouver un équivalent aux Visual Basic pour mac et de l'utiliser avec le "navigateur" approprié comme il y a ("InternetExplorer.Application")