<HTML> <HEAD><TITLE>Objetos del IE</TITLE> <SCRIPT LANGUAGE="VBScript"> <!-- Sub Prueba Document.Write "1 - " & Document.Link(0).Href & "<br>" Document.Write "2 - " & Document.Link(0).Protocol & "<br>" Document.Write "3 - " & Document.Link(0).Host & "<br>" Document.Write "4 - " & Document.Link(0).HostName & "<br>" Document.Write "5 - " & Document.Link(0).Port & "<br>" Document.Write "6 - " & Document.Link(0).PathName & "<br>" Document.Write "7 - " & Document.Link(0).Search & "<br>" Document.Write "8 - " & Document.Link(0).Hash & "<br>" Document.Write "9 - " & Document.Link(0).Target & "<br>" End Sub --> </SCRIPT> </HEAD> <BODY OnLoad="Prueba"> <A HREF="http://sestud.uv.es/manual.esp/vbscript/vb15.htm?tema="VBSscript" target="mi_ventana">Link</A> </BODY> </HTML>Este sería el resultado:
1 - http://sestud.uv.es/manual.esp/vbscript/vb15.htm?tema=
2 - http:
3 - sestud.uv.es:80
4 - sestud.uv.es
5 - 80
6 - manual.esp/vbscript/vb15.htm
7 - ?tema=
8 -
9 - mi_ventana
Recuerda que este objeto es un array, y éstos siempre comienzan la numeración por el cero. Cada registro del array corresponderá a un link.
El objeto Link tiene también dos eventos:
OnMouseOver Dispara el evento cuando el puntero del ratón pasa por encima del link, sin pulsar sobre el mismo. Por ejemplo:
<HTML> <HEAD><TITLE>Objetos del IE</TITLE> <SCRIPT LANGUAGE="VBScript"> <!-- Sub Prueba MsgBox "Prueba de evento" End Sub --> </SCRIPT> </HEAD> <BODY> <A HREF="http://sestud.uv.es/manual.esp/vbscript/vb15.htm" OnMouseOver="Prueba">Link</A> </BODY> </HTML>
OnClick Se dispara al pulsar con el ratón sobre el link. Primero se ejecutará la acción programada para el evento, y después se saltará a la página indicada por el link. Por ejemplo:
<HTML> <HEAD><TITLE>Objetos del IE</TITLE> <SCRIPT LANGUAGE="VBScript"> <!-- Sub Prueba MsgBox "Prueba de evento" End Sub --> </SCRIPT> </HEAD> <BODY> <A HREF="http://sestud.uv.es/manual.esp/vbscript/vb15.htm" OnClick="Prueba">Link</A> </BODY> </HTML>