「またニコニコ動画か」スクリプト

「またニコニコ動画見てる」とTwitterに投稿するリンクを作成するGreasemonkeyスクリプト

というのがfirefoxにあるのですが、sleipnir使いの私も使いたいよーということで、

とりあえずクリップボードに同じようなものを作るのを作成。

あとはTwitterに「貼り付け」て発言ボタンを押すだけ！

「またニコニコ動画みてれぅ」スクリプト

というのがsleipnirにはあるのですが、Lunascape使いの私も使いたいよーということで、

とりあえずクリップボードに同じようなものを作るのを作成。

あとはTwitterに「貼り付け」て発言ボタンを押すだけ！

Option Explicit

' Lunascapeを操作するオブジェクトを作成
Dim lunascape
Set lunascape = CreateObject("Lunascape2.LunascapeAPI")

' 処理を実行
nico_link()
'
'タブのタイトルとURLを元に、
'またニコニコ動画か：動画タイトル 動画URL
'という文字列をコピーする
'
Sub nico_link()
	' アクティブなドキュメントのIDを取得
	Dim dcid
	dcid = lunascape.GetDocumentID(lunascape.ActiveIndex())

	' アクティブなドキュメントオブジェクトを取得
	Dim document
	Set document = lunascape.GetDocumentObject(dcid)

	If document Is Nothing Then
		' メッセージを表示
		lunascape.MessageBox("ドキュメント取得失敗")
	Else
		' 動画のタイトルを取得
		Dim title
		title = mid(document.title,13)

		' タイトルが取得できない場合は代替のタイトルを利用する
		If title = "" Then
			title = "タイトルなし"
		End If

		' コピーする文字列を準備
		Dim strLink
		strLink = "またニコニコ動画か：" & title & " " & document.URL

		' クリップボードにコピー
		Dim oclip
		Set oclip = document.parentWindow.clipboardData

		Dim cltext
		cltext = oclip.getData("text")
		cltext = strLink
		oclip.setData "text", cltext
	End If
End Sub

とりあえず、これをnico.vbsとかにファイル名変更してスクリプトとして使えば良いと思うよ！

↓以下無限ループ。