«前の日記(2004年7月26日(月)) 最新 次の日記(2004年7月28日(水))» 編集

徒然日記


2004年7月27日(火) [長年日記]

[net][windows] 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)

[net][neta] OSたんWikiPedia(英語版)入り

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

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

(4:06)




«前の日記(2004年7月26日(月)) 最新 次の日記(2004年7月28日(水))»