CSDN爬虫是一个基于HTA（HTML应用程序）的简单爬虫工具，使用VBScript语言编写。它可以抓取CSDN上任何用户的博客文章列表，包括文章标题、URL和发布时间等信息。

HTA作品笨狼CSDN爬虫

概述

CSDN爬虫是一个基于HTA（HTML应用程序）的简单爬虫工具，使用VBScript语言编写。它可以抓取CSDN上任何用户的博客文章列表，包括文章标题、URL和发布时间等信息。

工具及环境

Windows系统
IE浏览器
记事本或其他文本编辑器

步骤

步骤一：新建HTA应用程序

使用文本编辑器新建一个.hta文件，在文件头部添加以下代码：

<!DOCTYPE html>
<html>
    <head>
        <title>CSDN博客爬虫</title>
        <hta:application id="CSDNCrawler"
                         applicationname="CSDN博客爬虫"
                         icon="/favicon.ico"
                         border="dialog"
                         innerborder="no"
                         scroll="no"
                         singleinstance="no"
                         maximizebutton="no"
                         minimizebutton="no"
                         sysmenu="no"
                         showintaskbar="yes"
                         caption="yes"
                         contextmenu="no"
                         navigable="yes"
        >
        <script type="text/vbscript">
            Sub window_onload
                '在这里编写代码
            End Sub
        </script>
    </head>
    <body>
    </body>
</html>

步骤二：构建UI界面

在body标签内添加以下代码，构建UI界面：

<div id="form">
    <h1>CSDN博客爬虫</h1>
    <form>
        <input type="text" id="blog_username" placeholder="请输入CSDN用户名">
    </form>
    <button type="button" onclick="crawl()">开始爬虫</button>
    <br><br>
    <div id="result_area"></div>
</div>

步骤三：爬虫实现

在window_onload子过程中添加以下代码，实现爬虫功能：

Sub window_onload
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    xmlhttp.setRequestHeader "User-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    xmlhttp.open "GET", "http://blog.csdn.net/" & blog_username.Value, False
    xmlhttp.send

    If xmlhttp.status = "200" Then
        Set doc = CreateObject("HTMLfile")
        doc.write xmlhttp.responseText
        Set blogs = doc.getElementById("article_list")
        Set titles = blogs.getElementsByTagName("h1")
        Set times = blogs.getElementsByTagName("span")
        For i = 0 To titles.length-1
            Set link = titles(i).getElementsByTagName("a")(0)
            result_area.innerHTML = result_area.innerHTML & "<p>" & link.innerHTML & " " & link.href & " " & times(i).innerHTML & "</p>"
        Next
    Else
        MsgBox "获取网页内容失败！"
    End If
End Sub

示例一：成功抓取博客文章列表

例如，输入CSDN用户名“ruida”后，点击“开始爬虫”按钮，可以得到以下结果：

Java 对象  http://blog.csdn.net/ruida/article/details/7043482 2012-01-09 22:25
Android SDK学习资源  http://blog.csdn.net/ruida/article/details/6918265 2012-01-05 10:24
Firefox通道同步代理服务器  http://blog.csdn.net/ruida/article/details/6050176 2011-11-09 13:55
Firefox:记住HTTP身份验证信息  http://blog.csdn.net/ruida/article/details/4041435 2009-12-08 20:54
使用Apache POI创建Excel  http://blog.csdn.net/ruida/article/details/3987063 2009-11-18 11:03
在Ubuntu上安装Ant  http://blog.csdn.net/ruida/article/details/3959381 2009-11-13 17:29
Tomcat virtual host配置  http://blog.csdn.net/ruida/article/details/3869898 2009-11-03 19:37