下载红楼梦

今天偶尔发现了一可以下载红楼梦古本的网站，很好奇，想down下来。不过一共有80回，不太想点80回Save As。写code，有点兴师动众了。突然想到了JScript，呵呵，只要点80下鼠标就搞定了。代码比想象的更简单：

 

//创建IE对象，也就是IWebBrowser2接口

var WebBrowser = new ActiveXObject ("InternetExplorer.Application")

//下面的主要工作是算URL

for ( i = 1; i <= 80; i++)

{

    var s = "";

    if (i < 10) s = "0";
    var url = "http://www.haie.edu.cn/zhongwen/mingzhu/hlm/";
    url = url + s;
    url = url + i;
    url = url + ".htm"
    WebBrowser.Navigate(url);
    while (WebBrowser.Busy);
    //4代表执行Save As命令，2表示不提示用户输入，可我还是不知道为什么我还是得到了一个对话框，要不连80下鼠标都不用点了
    WebBrowser.ExecWB(4, 2, "E:\Script\IE\"+i+".html");
}

//退出IE
WebBrowser.Quit();