'************************************************************************************************************
'* 品名 : CopyAllTabsURLandTitle.vbs
'* 効能 : 全タブのURLとタイトルをニュースブログ用に一括コピー
'* 全てのタブのURLおよびタイトルを、"タイトル(太字) + URL(新しいウインドウで開く)" の形式でコピー
'* 製作者 : MOAI
'* バージョン : 1.01
'* 注釈 : 用法用量を守って正しくお使い下さい
'* こちらは改行タグを使用しておりますので通常のサイトにもお勧め出来ます
'* 汚いコードだなぁ
'************************************************************************************************************
Option Explicit
Dim obj, document, window, id, count, i, buf
Set obj = CreateObject("Sleipnir.API")
count = obj.GetCount
id = obj.GetDocumentID(i)
Set document = obj.GetDocumentObject(id)
Set window = obj.GetWindowObject(id)
If document Is Nothing Then
Call obj.MessageBox("Document を作成できません")
Else
buf = ""+document.title+"
"+VbCrLf+""+document.URL+"
"+VbCrLf+"
"+VbCrLf
For i=1 To count - 1
id = obj.GetDocumentID(i)
Set document = obj.GetDocumentObject(id)
Set window = obj.GetWindowObject(id)
buf = buf+""+document.title+"
"+VbCrLf+""+document.URL+"
"+VbCrLf+"
"+VbCrLf
Next
End If
window.clipboardData.setData "text", buf
Set document = Nothing
Set window = Nothing
Set obj = Nothing