- 締切済み
livedoor blogで投稿用のテンプレートをつくりたい
livedoor blogで投稿用のテンプレートをつくりたいのですが、どうすればよいでしょうか。 文頭の、挨拶文、文末の署名等、必ず記事の中に入れる文言が有ります。 これを、記事作成の段階で既に転記された状態にしたいのです。 更に可能であれば、ブックマークレットで、クリックすると編集が面まで持って来れれば尚良いのですが。。。
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- DOUGLAS_
- ベストアンサー率74% (397/534)
恥ずかしながら「ブックマークレット」という言葉を始めて知りました。 操作が複雑になり、「ブックマークレット」を勉強してからでは遅くなりそうですので、代替策をお一つ。 1)Windows 標準の メモ帳 を開きます。 2)下記コード を メモ帳 に コピペ します。 3)最初の3行にある「ライブドアID」・「パスワード」・「ブログID」をそれぞれ該当する文字列に差し替えます。 「ブログID」というのは、ブログ の投稿画面を開いたときに、アドレスバー に表示される http://cms.blog.livedoor.com/cms/article/add?blog_id= に続く数字です。 文字列は、すべて、ダブルコーテーション で囲まれた状態でお書きください。 4)4行目の「strbody = 」に続く文字列は、「文頭の、挨拶文」・「文末の署名等」が、それぞれ2行になるように表記されています。 ・文字列は、すべて、ダブルコーテーション で括る。 ・「Chr(13)」は「投稿用のテンプレート」内の「改行」を意味する。 ・行末の「 _」(スペース + アンダーバー)は、この プログラム の コード 自体が途中で改行することを意味する。 ・「 & 」(スペース + & + スペース)は、文字列の連結を意味する。 こをと踏まえて、お好きなように、「投稿用のテンプレート」をお書きください。 5)以上の訂正を加えて、メモ帳を「blog_livedoor.vbs」というような名前(拡張子は vbs)で、どこかに保存してください。 「blog_livedoor」の部分は何でも構いません。 6)(5)で作成した ファイル の ショートカット を デスクトップ などの使いやすいところに作成し、名前を「投稿」などに変更(拡張子は付けません)、お好みで アイコン も変更してください。 7)以上により、 ・「投稿」を クリック すると ・Internet Explorer が起動し ・「livedoor blog」の投稿画面に 自動ログインし ・「記事作成の段階で既に転記された状態」で ・「タイトル」の テキストボックス が アクティブ になります。 '-- ここから -------------------------------------------- livedoor_id = "ライブドアID" password = "パスワード" blog_id = "ブログID" strbody = "挨拶文の1行目" & Chr(13) & _ "挨拶文の2行目" & Chr(13) & Chr(13) & _ "文末の署名等の1行目" & Chr(13) & _ "文末の署名等の2行目" Set objIE = CreateObject("InternetExplorer.Application") With objIE .navigate "h" & "ttp://cms.blog.livedoor.com/cms/article/add?.flush=1&blog_id=" & blog_id While .Busy Or .ReadyState <> 4: Wend With .Document If Not .getElementByID("livedoor_id") Is Nothing Then .getElementByID("livedoor_id").Value = livedoor_id .getElementByID("password").Value = password .forms("loginForm").submit End If End With While .Busy Or .ReadyState <> 4: Wend With .Document .getElementsByName("body")(0).outerHTML = _ "<TEXTAREA id=inputBody name=body>" & strbody & "</TEXTAREA>" .getElementsByName("title")(0).Select End With .Visible = True End With Set objIE = Nothing '-- ここまで --------------------------------------------