<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>