2011-08-12

Tweenで各種Webサービスに選択中のユーザーのIDを送るAHKスクリプト

Autohotkey Twitter

例えば、発言欄で選択してるユーザーのTwilogのページを一発で開けたりします
Tween自体にも同様の機能がありますが、ひとつしか設定できないのとキーボードショートカットを割り当てられないのが不便だったので自作しました

#IfWinActive, ahk_class WindowsForms10.Window.8.app.0.2bf8098_r15_ad1
;Ctrl+Shift+A押すとふぁぼったーで開く
^+A::IDtoURL("http://favotter.net/user/")
;Ctrl+Shift+L押すとTwilogで開く
^+L::IDtoURL("http://twilog.org/")
;Ctrl+Shift+U押すとスパムバスターでfuck
^+U::IDtoURL("http://spambuster.tk/?fuck=")

;ショートカットキー::IDtoURL("送りたいURL")で簡単に追加できます

IDtoURL(URL)
{
  clipboard =
  Send, +!c
  ClipWait
  Run,%URL%%clipboard%
  return
}
#IfWinActive

2011-07-26

Tweenで選択している発言に含まれるURLを全て開くAutoHotKeyスクリプト

Autohotkey Twitter

選択している発言の中のURLを全て開きます。
複数の発言を選択していたらその中の全てのURLを開きます。
@idやハッシュタグは開きません。

＊更新履歴
11/09/12
URL無かったらツールチップ表示して通知するようにした
末尾…のURLが見つかったらCtrl+Eを送る処理を追加

11/09/11 Tween1060でt.co対応したため正規表現がマッチしなくなったので直した
誤爆しそうな雰囲気
末尾が"…"になってるものは開けません。もしなんかいい方法あったら教えて下さい

!+E::
  clipboard =
  Send, ^c
  ClipWait, 3
  tweet := RegExReplace(Clipboard, "\[http://[\w./]+\]")
  count = 0
  loop {
    RegExMatch(tweet, "[\w-.!~*'();\?:\@&=+\$,%#]+/[\w-.!~*'();\?:/\@&=+\$,%#]*\s", url)
    if url =
    {
      RegExMatch(tweet, "[\w-.!~*'();\?:\@&=+\$,%#]+/[\w-.!~*'();\?:/\@&=+\$,%#]*…", tco)
      if count = 0
      {
        if tco =
        {
         ToolTip, URL無いよ, , , 1
         sleep, 1000
         ToolTip, , , , 1
        }
        else
         Send, ^e
      }
      else
      if tco <>
       send, ^e
      tweet =
      return
    }
    else
    {
      Run, http://%url%
      StringReplace, tweet, tweet, %url%
      count += 1
    }
  }
  return

;Tween1050以前用
;Alt+Shift+Eで全部開く
#IfWinActive, ahk_class WindowsForms10.Window.8.app.0.2bf8098_r15_ad1
!+E::
  clipboard =
  Send, ^c
  ClipWait
  tweet := RegExReplace(Clipboard, "\[http://[\w./]+\]")
  loop {
    RegExMatch(tweet, "http://[\w/\.?=&%-]+", url)
    if url =
    {
      tweet =
      return
    }
    else
    {
      Run, %url%
      StringReplace, tweet, tweet, %url%
    }
  }
  return
#IfWinActive

こんな感じに選択してAlt+Shift+E押すと

このように全部開かれます

最初一発言中の複数のURL開ければいいなーと思って作ってたら、
TweenはCtrl+Cで複数の発言をまとめてコピー出来ることが発覚し
選択した発言のURL全部開けるようになりました。運がいい

2011-07-24

AddressUpdater上でCtrl+B押すと対戦後挨拶定型文を挿入するAHKスクリプト

東方 Autohotkey

AU上でCtrl+Bを押すと"[名前]さん対戦ありがとうございました。"を挿入します。

＊準備
天則観を導入し、"対戦結果コピー"の"相手プロファイル名"を有効にする
以下スクリプトをAutohotkey.ahkに記述

＊更新履歴
11/09/12
フォーカスが当たってない時に押してしまった場合などにクリップボードに"[ID][定型文][定型文]"のような文字列が格納されないようにした

#IfWinActive, ahk_class WindowsForms10.Window.8.app.0.33c0d9d
^b::
  IfNotInString, Clipboard, さん対戦ありがとうございました。 ;連打しても定型文部が増殖しないように
   Clipboard = %Clipboard%さん対戦ありがとうございました。
  Send, ^v
  return
#IfWinActive

あとは対戦後にチャット入力欄にフォーカスを当ててCtrl+Bを押すだけです。
文章はお好みに。

2011-07-23

Opera ExtensionのRead It Later拡張"Reading List" 設定画面メモ

Opera

めもめも

Storage options
Logout ：Read It Laterからログアウト
Clear Save Data ：ローカルのリストのキャッシュを破棄する模様

Behavior
Action executed after marking opened item as read (using the in-page icon).
：ページ上のMark as Readボタン(レ点のボタン)を押した後の動作
None ：何もしない
Close Tab ：タブを閉じる
Open Next Item ：次のアイテムを同一タブに開く。読みまくるならコレか下
Open Random Item ：ランダムなアイテムを同一タブに開く

Action executed after adding item to list.
：ページ上のReadLaterボタンを押した後の動作
None ：何もしない
Close Tab：タブを閉じる

Appearance
Show icons on each page. ：ページ上にReadLater、Mark as Readボタンを表示する。チェック推奨

Right ：画面右側に表示
Left ：画面左側に表示

Top ：画面上側に表示
Bottom ：画面下側に表示

Show paging using links.
Show paging using combo box.
Show favicons in items list (quite slow if you have a lot of unread items).
：だれかおしえて

2011-07-15

amazonのURLをコピーしたら自動的に短縮したものをクリップボードに格納するAHKスクリプト

Autohotkey

長くなりがちなAmazonのURLを自動的に短縮します。
http://www.amazon.(各国末尾)/dp/(商品ID) 形式になります。
コピーしたときに先頭がhttp://www.amazon.以外だと認識しません、文中のURLを置換したりはしません。
ついったーや掲示板でURL張りたいときや糞スパムブログで商品気になったけどアフィ踏みたくないというとき等にたぶん便利

＊履歴
11/08/25 なんとなく各国サイトにも対応させた

#Persistent
return
OnClipboardChange:
RegExMatch(clipboard,"^(?:http://www.amazon.(co.jp|com|co.uk|fr|de|ca|cn|it))(?:.+)(/[\dA-Z]{10}/)", amazonid)
If amazonid <>
{
 clipboard = http://www.amazon.%amazonid1%/dp%amazonid2%
 amazonid =
}
return

2011-07-13

xyzzyのautohotkey-modeでエラーが出る場合の対処方法

xyzzy Autohotkey

今までxyzzyにてahk-modeを使おうとすると、

xyzzy\Extras\Syntax\Commands.txt
が見つかりません

といったようなエラーが出てahk-modeが適用されず困っていた。
結論から言うと、Autohotkeyをインストーラを使用して再インストールしたら解決した。

ahk-mode.lにはAutoHotKey\Extras\Syntax\Commands.txtを参照して色々する機能があるようなのだが、
この場所をレジストリから参照しようとするため、インストーラを使用していない場合値を発見できず、
代わりにxyzzy\Extras\Editors\Syntax\Commands.txtを探し、存在しないためエラーが出る、
というのが原因だったようだ。
直ってよかったよかった

2011-07-13

Tween上で花映塚/非想天則の対戦募集凸を補助するAHKスクリプト

Autohotkey 東方 Twitter

TweenでCtrl+Cを押したとき、ツイートにIPが含まれているとポップアップメニューを出して
対戦、観戦、IPをコピーして非想天則を起動、IPをコピーするだけ、
のいずれかのアクションを実行できるようにするスクリプト。

スクリーンショット

Ctrl+Cを押した時点でid:本文[URL]がクリップボードに格納されているので
そのままキャンセルすれば通常動作と同じ。
キーバインド変更したい場合は^C::部分をお好きなものに。
使う前に ";花映塚メニューのLabel"のとこでadonisと非想天則のパス設定してね。
Tween自体は Ctrl+Cしてるだけなのでそれ以外のクライアントはクリップボードにツイート本文コピーできるものならちょっと手直しすれば動くと思います。
Autohotkey知らん！！って方は http://sites.google.com/site/autohotkeyjp/ を見て頑張ってください

ここから↓

#IfWinActive, ahk_class WindowsForms10.Window.8.app.0.2bf8098_r15_ad1
;tweet内のIPをコピーしてadonisメニュー表示、無かった場合は通常動作
^C::
clipboard =
Send, ^c
ClipWait, 2
Gosub, kaeiNetPlay
ipport =
return

kaeiNetPlay:
RegExMatch(Clipboard,"((?:\d{1,3}\.){3}\d{1,3})((?:(?::|：|\s+|　)\d{1,5})|)",ipport)
if ipport <>
{
ipport := RegExReplace(ipport,"(：|\s|　)",":") ;全角の：、半角/全角スペースを:に置換する
StringTrimLeft, ipport2, ipport2, 1 ;:を削る。adonisポート引数用
Menu, adonis, add, adonisで対戦(&C), client
Menu, adonis, add, adonisで観戦(&W), watch
if ipport <> %ipport1% ;IPのみでportが含まれていなかった場合表示しない
Menu, adonis, add, %ipport%をコピーして非想天則を起動(&T), tensoku
Menu, adonis, add, %ipport1%をコピーするだけ(&O), copy_only1
if ipport <> %ipport1% ;同上
Menu, adonis, add, %ipport%をコピーするだけ(&P), copy_only
Menu, adonis, show, 100, 300
Menu, adonis, DeleteAll
ipport1 =
ipport2 =
}
return

;花映塚メニューのLabel
client:
Run,cmd.exe /K adonisのフルパス c %ipport1% %ipport2%
return
watch:
Run,cmd.exe /K adonisのフルパス w %ipport1% %ipport2%
return
tensoku:
Clipboard = %ipport%
Run,非想天則のフルパス
return
copy_only1:
Clipboard = %ipport1%
return
copy_only:
Clipboard = %ipport%
return
#IfWinActive

↑ここまで

kaeiNetPlayにわざわざラベル分けてるのは他のスクリプトからも参照してるからです、気が向いたらそっちも公開するかも。
バグあったら教えてくれるとがんばってなおします