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

選択している発言の中の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全部開けるようになりました。運がいい