Excel宏代码自动检查网站的外链情况

来源:网页教学基地 时间:2011-10-21 11:22:26  浏览次数:0
网页教学基地提示:使用Excel检查外链. 如果你关注SEO外链建设的话,你就需要跟踪那些导入链接。有时候链接出现或者消失,或者加上no-follow(就意味着搜索引擎会忽视掉)等等。你就需要保持跟踪,需要知道你的努力有没有得到回报或者白忙活一场。有些商业软件可以为你监测外链,但是你晓不晓得Excel可以帮你完美地免费帮你实现这一工作。你可以看到Excel外链检查的Excel文件。before-run.png在B2表格中输入网站地址不需要添加“http://”,然后在A5,A6依次往下输入所有应该链接你网站URL的链接。当你准备好开始检查链接的时候,按下CTRL-SHIFT-B。所有的应该存在的链接都会被检查一遍,检查目标链接是否被加上do-follow以及定位的链接指向的URL。after-run.pngExcel是如何工作的基本上宏代码所做的就是取得每个页面的内容检查上面的链接。只有每个页面上链向你网站的第一个链接会被考虑检查。如果你的链接出现的话那么锚文本和链向你页面的网址就会显示在Excel中。如果外链未被发现那么也会出现一个信息。这个主要的宏代码CheckBacklinks 会为每一个需要更新的URL创建一个CheckBacklinks的对象,然后等待所有的对象执行结束。和之前介绍的Excel自动检查网站排名一样,我也是使用的WinHTTP和User-Agent IE7伪装抓取页面内容。不像之前的工具,这里使用的代码是异步 I/O模式。在这个模式下一旦页面内容已经下载完成VBA代码就会得到一个事件通知。这样可以允许我们同时取得页面内容,我们假设列表中的很少网址将驻留在同一物理服务器上是非常棒的。
Private WithEvents http As WinHttp.WinHttpRequestSub http_OnResponseFinished()...End Sub
还和之前工具不一样的是,HTML解析使用的是MSHTML库。通过利用HTML文档模型,我们可以得到页面的DOM。就像页面已经在IE浏览器打开一样。
Dim doc As New HTMLDocumentdoc.body.innerHTML = http.ResponseTextFor Each link In doc.Links...Next
顺着DOM顺序,代码就会遍历文档中的所有链接来检查外链。
推荐文章