制作一个从当前网页中提取信息的脚本答案

【问题标题】：Make a script that pulls information from the current webpage制作一个从当前网页中提取信息的脚本
【发布时间】：2016-12-11 23:25:58
【问题描述】：

所以我正在尝试创建一个脚本或宏，当我按下键盘上的按钮或宏时，它会从我当前加载的网页中提取信息。我在看 vbs，但无论我在哪里看，你都必须打开一个新的 IE 实例或其他网络浏览器。

【问题讨论】：

欢迎成为 SO 的新用户。请使用Tour 并阅读Help-Center/asking。 SO 不是脚本编写服务。要获得帮助，您应该比您对他人的期望多一点，首先要展示您在代码中付出的努力。
发布你到目前为止所拥有的...我有一个有效的 HTML 抓取脚本，但需要看看你的努力

标签： vbscript macros automation webpage bots

【解决方案1】：

这会列出所有的 shell 窗口。那就是资源管理器和 Internet Explorer。它包含 IE 的窗口对象。

Set objShell = CreateObject("Shell.Application")
Set AllWindows = objShell.Windows
For Each window in AllWindows
    msgbox window.locationname
    msgbox window.parent
    If window.locationname="Scripts" then window.quit
Next

要访问像CreateObject 这样的浏览器，请使用window.parent。

   Set ie = CreateObject("InternetExplorer.Application")

使用

   Set ie = window.parent

获取所有文本

msgbox ie.document.body.innertext

这会在所选文本右键菜单中添加一个菜单项，以导航到所选文本（这不是链接，而是有效的 URL）。

<HTML>
<SCRIPT LANGUAGE="vbscript"> 
set parentwin = external.menuArguments
Set doc = parentwin.document
Set sel = doc.selection
set rng = sel.createRange()
str = lcase(trim(rng.text))

If str="" then
    alert("You must select some text to search for first.")

ElseIf Left(str,7) = "http://" or Left(str,8) = "https://" then
    op = str
Else
    op = "http://" & str
End If

If op <> "" Then open(op)

</SCRIPT>
</HTML>

要添加到菜单，请使用此 reg 文件。

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\&Navigate]
@="C:\\Windows\\WEB\\selnavigate.htm"
"contexts"=hex:10

这是来自 Internet Explorer 5 Power Toys © Microsoft。它在新窗口中列出链接。它是 JScript 但 VBScript 以相同的方式使用相同的对象。 http://threeclicks.com/powertoysie5.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>

同样，这会打开和关闭编辑页面的功能。

进入工具菜单。

Windows Registry Editor Version 5.00


[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{B163952C-2892-4934-AA07-5DEC952BBE3E}]
"CLSID"="{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}"
"Script"="C:\\Windows\\Web\\ViewPage.html"
"MenuText"="Editable Page Off"
"MenuStatusBar"="Turns off page edit mode"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{B749639D-8B7C-4741-87A9-7ABD311F6D72}]
"CLSID"="{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}"
"Script"="C:\\Windows\\Web\\EditPage.html"
"MenuText"="Editable Page On"
"MenuStatusBar"="Turns on page edit mode using standard key and mouse actions"

ViewPage.html

<script language="VBScript"> 
external.menuArguments.document.body.contenteditable="False" 
</script>

EditPage.html

<script language="VBScript"> 
external.menuArguments.document.body.contenteditable="True" 
</script>

【讨论】：