'************************************************************************************************************
'* 品名 : 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 = "<strong>"+document.title+"</strong><br>"+VbCrLf+"<a href="""+document.URL+""" target=""brank"">"+document.URL+"</a><br>"+VbCrLf+"<br>"+VbCrLf

		For i=1 To count - 1
			id = obj.GetDocumentID(i)
   	  Set document = obj.GetDocumentObject(id)
   	  Set window = obj.GetWindowObject(id)

    	buf = buf+"<strong>"+document.title+"</strong><br>"+VbCrLf+"<a href="""+document.URL+""" target=""brank"">"+document.URL+"</a><br>"+VbCrLf+"<br>"+VbCrLf
		Next

  End If

	window.clipboardData.setData "text", buf

	Set document = Nothing
  Set window = Nothing

	Set obj = Nothing