小编Jer*_*ome的帖子

我正在撰写Google Chrome扩展程序.感谢大家在这里忍受我愚蠢的问题.例程是原始的,但运行正常.唯一的问题是它运行得如此之快以至于它使服务器过载而我的ip地址被阻止了.所以它需要一个油门.

问题是用计时器或setInterval构造一些东西是否更好.检查特定页面后,内容脚本将使用self.close()关闭其窗口.如果我把它放入setInterval,我可以延迟关闭页面,这会使整个过程的速度和间隔的长度一样慢.好像油门好.

现在,内容脚本的最后一行是:

self.close();

我认为如果我按如下方式修改代码,我会得到延迟:

var t=setTimeout("self.close()",2000);

这会有用吗？有没有更好的方法呢？

我正在撰写Google Chrome扩展程序.目标页面用俄语写成.Chrome翻译为英语.我可以看到一些似乎与翻译有关的不一致.例如,在以下代码中,我检查我是否在特定文件夹中:

if (searchResult[0].innerHTML.indexOf("????? ?????")!=-1) alert("You are in Shared Folder."); else (alert(searchResult[0].innerHTML));

如果我多次重新加载完全相同的页面,结果是不一致的.有时它会检测到"Общаяпапка",但有时却没有.当它没有检测到这个短语时,警告说我在"共享文件夹"中,这是""Общаяпапка的翻译."这里似乎没有一致性.有时我正在处理原始文本(这是首选)但有时我正在处理对我的脚本无用的糟糕翻译,因为翻译一直在变化.

有谁知道如何解决这一问题？关闭它可能会解决它,但实际上翻译对于扩展的其他方面是有用的和必要的.我理解翻译适用于HTML的一些辅助层(我还没有很好地研究过).我可以简单地在我的脚本中引用原文吗？

我正在构建一个VBA应用程序，该应用程序使用从网络抓取的资源来创建和修改Wordpress网站页面。Wordpress API返回一个JSON文件，但是在VBA中不支持解析JSON，因此我从GitHub导入了VBA-JSON。这是子例程：

Sub Wordpress()

    '
    ' Wordpress API Test
    '
    Dim wpResp As Variant
    Dim sourceSheet As String
    Dim resourceURL As String
    sourceSheet = "Resources"
    resourceURL = Sheets(sourceSheet).Cells(6, 1)
    wpResp = getJSON(resourceURL + "/wp-json/wp/v2/posts")

End Sub

和它调用的函数。

Function getJSON(link) As Object

    Dim response As String
    Dim json As Object
    On Error GoTo recovery
    Dim retryCount As Integer
    retryCount = 0
    Dim web As MSXML2.XMLHTTP60
    Set web = New MSXML2.XMLHTTP60

the_start:

    web.Open "GET", link, False, UserName, pw
    web.setRequestHeader "Content-type", "application/json"
    web.send …