<!--- test.html -->
<html> <base href="http://www.ncbi.nlm.nih.gov/">
<body>
<script language=JavaScript>
var a= new ActiveXObject("HtqlCom.HtqlControl");
a.setUrl("http://www.ncbi.nlm.nih.gov/");
a.setQuery("<a>");
document.write(a.getValueByIndex(1));
</script>
</body>
</html>
|
The following Visual Basic example does the same thing and shows the result in a message box:
' VB example
Dim a As Object
Set a = CreateObject("HtqlCom.HtqlControl")
i = a.setUrl("http://www.ncbi.nlm.nih.gov/")
i = a.setQuery("<a>")
MsgBox (a.getValueByIndex(1))
|