'j@c oct 2003 http://jacxl.free.fr Msgbox("Le programme génère un vbs qui va forcer le navigateur à ouvrir une page Web, et à en modifier un des lien pour le faire pointer vers une page virtuelle qui est incluse dans le lien modifié sous forme de javascript") 'choix des paramètres page_a_modifier=inputbox("saisissez l'adresse de la page Web sur laquelle vous voulez modifier un lien","page à modifier","http://www.boursorama.com/") if page_a_modifier="" then wscript.quit numlien=1*inputbox("indiquez le numéro d'ordre du lien à modifier dans la page" & chr(10) & "(indiquez 2 pour modifier le deuxième lien de la page)","choix du lien","9") if numlien="" then wscript.quit txt_lien=inputbox("saisissez le nouveau texte du lien","nouveau lien","nouveau lien") 'nouveau texte du lien if txt_lien="" then wscript.quit cibl=inputbox("saisissez l'adresse de la page web vers laquelle le nouveau lien doit pointer", "cible du nouveau lien","http://www.boursorama.com/infos/actualites/actu_societes.phtml") if cibl="" then wscript.quit fich_vbs=inputbox("saisissez l'adresse (locale) où le nouveau fichier vbs doit être enregistré","fichier vbs","C:\rien.vbs") if fich_vbs="" then wscript.quit 'crée un fichier fich_vbs qui ouvre page_a_modifier (la page doit préalablement être téléchargée en local, attention aux redirections) et en modifie le lien n° numlien 'en lui attribuant comme texte txt_lien 'et en le faisant pointer vers une page virtuelle 'la page virtuelle est une copie vbs de cibl, ses liens pointent sur base 'récupération du code de la page cible (ouverture dans une instance masquée d'internet explorer) Set ie = CreateObject("internetexplorer.application") ie.Navigate (cibl) Do While ie.Busy wscript.sleep (100) Loop wscript.sleep (1000) Set dct = ie.Document txt= dct.getElementsByTagName("HTML").item(0).outerhtml 'recherche de la base des liens relatifs éventuels base=ie.document.location do while right(base,1)<>"/" base=left(base,len(base)-1) loop 'fermeture d'internet explorer (instance masquée) ie.quit 'modification de la balise HEAD pour lui ajouter la base des liens relatifs txt_head="
" & vbcrlf & "" & vbcrlf if instr(ucase(txt),"