Question

我想在工作中自动化流程。我有一个网页，有20-30个链接，从特定的单词开始，如下所示。

abc1234
abc5142
abc9862
abc3621

这些行中的每一行基本上都是链接。点击我将获得一个具有IP的浏览器。

现在我想知道每台机器名后面的IP（例如：abc6901），我想使用VNC查看器连接到那些机器。

Dim Browser, strOut
Set Browser = CreateObject("InternetExplorer.Application")
With Browser
  .Visible = False
  .Navigate "http://anees.amoeba.co.in/table.html"
  'Wait for Browser
  Do While .Busy
    WScript.Sleep 100
  Loop
End With

但是当我尝试这样做时，我无法使用.vbs脚本文件从HTML页面获取链接详细信息。我努力获得相同的结果，发现我坚持使用方法document.getElementById和其他一些方法来获取链接细节。

另外，我不知道如何获取网页上存在这些链接的节点的信息。为了更好地理解，我将从应用程序粘贴我的页面的屏幕截图。

Answer 1

Internet Explorer 5 Power Toys包含列表链接程序。

创建以下htm页面C:\Windows\WEB\urllist.htm

<script language=javascript defer>
var str = new String ("toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes, resizable=yes, top=0, left=0, width=400, height=");

str = str + (screen.height - 100);

//alert (screen.height);

var dlProgress = window.open ("", "linkdownloader", str);

dlProgress.document.open();
dlProgress.document.writeln ("<html>");
dlProgress.document.writeln ("<head>");
dlProgress.document.writeln ("<title>Links list</title>");
dlProgress.document.writeln ("</head>");
dlProgress.document.writeln ("<body topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0>");
dlProgress.document.writeln ("<font style=\"font:   8pt Verdana, Arial, Helvetica, Sans-serif; line-height:18pt;\">");
dlProgress.document.writeln ("<script language=javascript>function navigateClose(str){if (document.my_parent != null){document.my_parent.location.href=str;window.close();}else{alert(\"Please wait until the list has populated.\");}}<\/script>");

dlProgress.document.writeln ("&nbsp;List of all links in <b>" + external.menuArguments.document.title + "</b>:<ol>");
var links = external.menuArguments.document.links;
for (i = 0; i < links.length; i++)
{
    if ( links(i).innerText != "" && links(i).innerText != " ")
    {
        dlProgress.document.writeln ("<li><A HREF='javascript:navigateClose(\"" + links(i).href + "\")' TITLE=" + links(i).href + ">" + links(i).innerText + "</a><BR>");
    }
    else
    {
        dlProgress.document.writeln ("<li><A HREF='javascript:navigateClose(\"" + links(i).href + "\")'>" + links(i).href + "</a><BR>");
    }
}
dlProgress.document.writeln ("</ol><center><a href='javascript:window.close()' style=\"color:#FF0000;text-decoration:none\">close</a></center><BR></body>");
dlProgress.document.writeln ("</font></html>");
dlProgress.document.close();

dlProgress.document.my_parent = external.menuArguments;
</script>

安装运行此reg文件。

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MenuExt\&Links List]
@="C:\\Windows\\WEB\\urllist.htm"
"contexts"=hex:01

使用右键单击页面并选择“链接列表”。

从HTML页面获取链接

1 个答案: