徒然日記

■ bloglinesにサイトを登録するsleipnirスクリプト

現在開いてるサイトをbloglinesで購読登録をする際のスクリプト

Option Explicit

Dim obj, document, window, id

Set obj = CreateObject("Sleipnir.API")
id = obj.GetDocumentID(obj.ActiveIndex)
Set document = obj.GetDocumentObject(id)
Set window = obj.GetWindowObject(id)

If document Is Nothing Then
	Call obj.MessageBox("Document オブジェクトを作成できません")
Else
	obj.NewWindow "http://www.bloglines.com/sub/"+obj.URL, true
	Set document = Nothing
End If

Set obj = Nothing

何のひねりもなく。

新規ウインドウで開かれるのがイヤな人はobj.NewWindowの第二引数を"false"にすればいいかと思われ

(3:00)

■ OSたんWikiPedia(英語版)入り

WikiPedia(日本語版)にも登録されていたのね…

でも英語版は画像つきで豪華(笑

(4:06)