これは以前アップした Infoseek に登録するプログラム infoseek.js の改良版です。
改良点は、

• 複数のブラウザで登録する
• URLのチェックでエラーが出た場合に適切な処理をする

です。前よりも速く登録できるようになっていると思います。

    infoseek3.lzh (4kB)
 

使い方は前と同じだと思いますが、いちおう再掲しておきます。

ふつう、webページ作成者はローカルにwebと同じディレクトリ構造を 作っているかと思いますが、 そのディレクトリを指定して、レジストリから前回の登録時間を取得し、 その時間以降に更新されたHTMLファイル名をリストアップ、 それと同じファイルがあるはずのURLに変換して、 Infoseekに登録します。 使い方は、 まずレジストリに必要な項目を書き込みます。 適当でいいんですが、たとえば、

    HKCU\Software\aya\infoseek
 

というキーを作り、その下に、

    source、target、date、navoid、p0、p1、…
 

という値を作ります。
source には x:\xxx\aya などとローカルのパスを入力します。
target には http://member.nifty.ne.jp/aya などと それに対応するweb上のディレクトリを入力します。
date には Mon Nov 30 06:58:47 UTC+0900 1998 の形式で時間を入力します。 現在の時刻よりたとえば１週間前の時間を入力するなどとすればいいでしょう。
navoid には登録を避けたいページの数を書きます。
p0、P1、… にはその登録を避けたいURLを http://… とフルで書きます。
これで準備は終わりで、あとは登録したいときにスクリプトを走らせるだけです。

以下、スクリプトです。

var WShell = WScript.CreateObject("WScript.Shell");
var fs = WScript.CreateObject("Scripting.FileSystemObject");
var page_Avoid = new ActiveXObject("Scripting.Dictionary");
var regist_url = "http://www.infoseek.co.jp/Help?pg=help_addurl.html&lk=noframes&sf=1";
//レジストリから情報を得る
var source = WShell.RegRead("HKCU\\Software\\aya\\infoseek\\source");
var target = WShell.RegRead("HKCU\\Software\\aya\\infoseek\\target");
var predate = new Date(WShell.RegRead("HKCU\\Software\\aya\\infoseek\\date"));
var nAvoid = WShell.RegRead("HKCU\\Software\\aya\\infoseek\\navoid");
for(var i = 0; i < nAvoid; i++)
    page_Avoid.Add(WShell.RegRead("HKCU\\Software\\aya\\infoseek\\p" + i), 1)

//登録すべきURLを得る
var arrURL = new Array();
GetURL(fs.GetFolder(source));

var iURL = 0;
var nIE = 3;        //立ち上げるブラウザの数
var IE = new Array(nIE);
for(i = 0; i < nIE; i++)
    IE[i] = new Browser();

while(!IsAllFinished()) {
    for(i = 0; i < nIE; i++) {
        if(IE[i].load())
            IE[i].next();
    }
}

//レジストリに現在の時刻を書きこむ
WShell.RegWrite("HKCU\\Software\\aya\\infoseek\\date",
        (new Date()).toString());

function IsAllFinished() {
    for(var i = 0; i < nIE; i++) {
        if(!IE[i].finished)
            return false;
    }
    return true;
}

function Browser() {
    this.IE = WScript.CreateObject("InternetExplorer.Application");
    this.next = nextStep;
    this.load = WaitLoad;
    this.IE.Width = 680; this.IE.Height = 660; this.IE.Top = 15;
    this.IE.Visible = true;     //ここをfalseにすると軽くなるかな？
    this.finished = false;
    this.URL;
    this.status = 0;
    this.next();
}

function nextStep() {
    if(this.finished)
        return;
    switch(this.status) {
    case 0:         //登録ページへ
        if(iURL >= arrURL.length) { //もうURLが残っていない
            this.finished = true;
            this.IE.Quit();
        }
        else {
            this.URL = arrURL[iURL++];
            this.IE.Navigate(regist_url);
            this.status = 1;
        }
        break;
    case 1:         //ページチェック
        with(this.IE.Document.forms[1]) {
            url.value = this.URL;
            submit.click();
        }
        this.status = 2;
        break;
    case 2:         //登録
        if(this.IE.Document.forms[0])   //ページチェック成功
            this.IE.Document.forms[0].submit();
        this.status = 0;
        break;
    default:
        break;
    }
}

//以下略

---

表紙