AutoHotkey_Lで、Opera12の起動を便利にしてみた。

 前ver.のOpera12対応版。前ver.からフォークしたRamDisk運用補助の小規模改善も反映済み。

 Opera12対応は「マスターパスワードダイアログのタイトル変更に追従」「マスターパスワードダイアログを最前面表示するように」。Operaのver.によって最前面でなくなるのはなんなの、うっかりなの?

 ちなみに小規模改善の内容は「FastForward.ini初期化の対策」「autosave.winの2世代バックアップ」「セッション退避ダイアログのカウントダウン」。
 FastForward.ini初期化対策は、同じ場所にFastForward_backup.iniがあれば上書きするよってだけの機能。

; --------- --------- --------- --------- ---------
; RunOpera.ahk ver.2.1.0
; --------- --------- --------- --------- ---------

#WinActivateForce

  OperaPath := ""  ; Opera.exeのフルパス。末尾は"\"。

  SessionsPath := OperaPath "profile\sessions\"  ; セッションフォルダのフルパスを指定。末尾は"\"。
  BookmarksPath := OperaPath "profile\bookmarks.adr"  ; bookmarks.adrのフルパスを指定。

  TimeLimit := 30  ; 最終セッション退避確認ダイアログを自動でスキップするまでの秒数。

  AutoConvSW := 1  ; 最終セッションを退避させる場合、自動でブックマークに変換する設定。 0:変換しない。 1:変換する。
  ACMoveSW := 1  ; 自動変換(↑)したセッションを隔離する設定。 0:隔離しない。 1:隔離する。

  HisReadSW := 0  ; タブ履歴(タブで表示したページの履歴)の設定。 0:最新のみ読み込む。 1:すべて読み込む。
  WriteTrgSW := 1  ; ブックマーク情報を書き込む場所の設定。 0:セッションフォルダにテキストで保存。 1:bookmarks.adrに書き込む。

; --------- --------- --------- --------- ---------

  IfNotExist, %SessionsPath%
  {
    MsgBox, 16, , セッションフォルダが見つかりません。`n%SessionsPath%
    
    Exit
  }
  If (1 == WriteTrgSW) {
    IfNotExist, %BookmarksPath%
    {
      MsgBox, 16, , bookmarks.adrが見つかりません。`n%BookmarksPath%
      Exit
    }
  }

  IfExist, %SessionsPath%autosave.win
    GoSub, SessionAnalyze

  FileCopy, %OperaPath%ui\fastforward_backup.ini, %OperaPath%ui\fastforward.ini, 1  ; FastForward.ini初期化の対策。

  FileCopy, %SessionsPath%autosave_RunOpBak.win, %SessionsPath%autosave_RunOpBak2.win, 1  ; ↓セッション退避etc.を実行しない時も念のため2世代バックアップ。
  FileCopy, %SessionsPath%autosave.win, %SessionsPath%autosave_RunOpBak.win, 1

    Run, %OperaPath%opera.exe, , , OpPid
    WinWait, ahk_pid %OpPid%, , 60
    if !ErrorLevel {
      ifWinExist, Opera へようこそ ahk_pid %OpPid%
      {
        WinActivate
        WinWaitClose
      }
    } else {
      return
    }


    WinWait, マスターパスワードを入力してください ahk_pid %OpPid%, , 5
    If ErrorLevel
      return

    WinSet, Topmost, ON
    WinActivate
    Sleep, 300

ExitApp

; --------- --------- --------- --------- ---------

SessionAnalyze:
  FileRead, OSession, *P65001 *t %SessionsPath%autosave.win
  If (0 != ErrorLevel) {
    MsgBox, 48, , Sessionの読み込みに失敗しました。`n%SessionsPath%autosave.win
    return
  }

  Idx := 0
  WinTitles := ""
  Loop {
    Idx := RegExMatch(OSession, "\[(\d+)history url\].+?count=(.*?)\n", $, Idx + 1)
    If (0 == Idx)
      Break
    WinNum := $1
    HisNum := $2 - 1
    HisTitle := GetHisTitle(OSession, WinNum, HisNum, Idx)
    WinTitles := WinTitles " " HisTitle "`n"
  }
  If("" == WinTitles)
    return

  SetTimer, RenewCount, 1000
  MsgBox, 259, 退避確認(30秒後に通常起動), 起動時に最終セッションを退避しますか?`n`n◆最終セッションの内容◆`n%WinTitles%, %TimeLimit%
  SetTimer, RenewCount, Off
  IfMsgBox, Yes
  {
    TimeNum := A_Now
    BackupName := TimeNum ".win"
    Loop {
      FileMove, %SessionsPath%autosave.win, %SessionsPath%%BackupName%
      If(0 == ErrorLevel)
        Break
      BackupName := TimeNum "_" A_Index ".win"
    }
    If (1 == AutoConvSW)
      GoSub, SessionConvert
  }
  IfMsgBox, Cancel
    Exit

return

; --------- --------- --------- --------- ---------

RenewCount:
  IfWinExist, 退避確認( ahk_class #32770
  {
    TimeLimit--
    WinSetTitle, 退避確認(%TimeLimit%秒後に通常起動)
    if !TimeLimit
      SetTimer, RenewCount, Off
  }
return

; --------- --------- --------- --------- ---------

SessionConvert:
  If (1 == WriteTrgSW)
    FileCopy, %BookmarksPath%, %BookmarksPath%_%A_Now%

  CmdLine := SessionsPath BackupName
  SplitPath, CmdLine, , , , SessionName
  Result := "#FOLDER`n  NAME=[Session] " SessionName "`n`n"
  ResultBuf := Result

  Idx := 0
  Loop {
    Idx := RegExMatch(OSession, "\[(\d+)history url\].+?count=(.*?)\n", $, Idx + 1)
    If (0 == Idx)
      Break
    WinNum := $1
    HisNum := $2 - 1

    HisTitle := GetHisTitle(OSession, WinNum, HisNum, Idx)
    HisUrl := GetHisUrl(OSession, WinNum, HisNum, Idx)

    If (0 == HisReadSW) {  ; タブ履歴を無視する場合
      Result .= "#URL`n  NAME=" HisTitle "`n  URL=" HisUrl "`n`n"
      Continue
    }

    StringLen, HisNumLen, HisNum

    If (0 == HisNum) {
      Result .= "#URL`n  NAME=[" ZeroSupply(HisNum, HisNumLen) "] " HisTitle "`n  URL=" HisUrl "`n`n"
      Continue
    }
    Result .= "#FOLDER`n  NAME=" HisTitle "`n`n#URL`n  NAME=[" ZeroSupply(HisNum, HisNumLen) "] " HisTitle "`n  URL=" HisUrl "`n`n"

    Loop, %HisNum% {
      HisNum--
      HisTitle := GetHisTitle(OSession, WinNum, HisNum, Idx)
      HisUrl := GetHisUrl(OSession, WinNum, HisNum, Idx)
      Result .= "#URL`n  NAME=[" ZeroSupply(HisNum, HisNumLen) "] " HisTitle "`n  URL=" HisUrl "`n`n"
    }
    Result .= "-`n`n"
  }

  If (ResultBuf == Result)
    return
  Result .= "-`n`n"

  If (1 == WriteTrgSW) {
    FileAppend, %Result%, %BookmarksPath%, CP65001
  } Else {
    FileDelete, %CmdLine%.txt
    FileAppend, %Result%, %CmdLine%.txt, CP65001
  }

  If (1 == ACMoveSW) {
    IfNotExist, %SessionsPath%AutoConv\
      FileCreateDir, %SessionsPath%AutoConv\
    FileMove, %CmdLine%, %SessionsPath%AutoConv\%BackupName%
    If (0 != ErrorLevel)
      MsgBox, 48, , 変換済みセッションの移動に失敗しました。`n%SessionsPath%AutoConv\
  }
return

; --------- --------- --------- --------- ---------

GetHisTitle(OSession, WinNum, HisNum, Idx){
  RegExMatch(OSession, "\[" WinNum "history title\].+?" HisNum "=(.*?)\n", $)
  return $1
}

GetHisUrl(OSession, WinNum, HisNum, Idx){
  RegExMatch(OSession, "\[" WinNum "history url\].+?" HisNum "=(.*?)\n", $)
  return $1
}

ZeroSupply(Num, Digit){
  StringLen, NumLen, Num
  LoopNum := Digit - NumLen
  Loop, %LoopNum%
    Num := "0" Num
  return, Num
}

 Opera12、タブ大量でも起動が軽くなったのがいいね。でもUJS Managerが使えなくなったのが痛い。というか標準で実装しろと。エクステンション作れ/使えってか。ごもっとも。


[PR]
by lordnoesis | 2012-06-24 10:43 | テクノロジ | Trackback(1) | Comments(2)

AutoHotKeyでOperaの「新規ウィンドウ」をちょっと便利に+α

 せっかくマルチモニタ環境なのに、「新しいウィンドウ」が同じモニタに出現するのはもったいないので、「最大化時にCtrl+Nしたら、出現する新しいウィンドウを別のモニタに移動する」AHKスクリプト書いた。

#IfWinActive ahk_class OperaWindowClass

^n::
  WinGet, AWinMax, MinMax, A
  if (1 != AWinMax) {
    Send, ^n
    return
  }

  WinGet, AWinID, ID, A
  WinGetPos, AWinX, AWinY, AWinW, AWinH, A
  AWinX := AWinW // 2 + AWinX
  AWinY := AWinH // 2 + AWinY

  Loop, 2
    SysGet, Mnt%A_Index%, MonitorWorkArea, %A_Index% - 1

  if ((Mnt1Top < AWinY) && (AWinY < Mnt1Bottom) && (Mnt1Left < AWinX) && (AWinX < Mnt1Right))
    SendX := Mnt2Left, SendY := Mnt2Top
  else
    SendX := Mnt1Left, SendY := Mnt1Top

  Send, ^n
  WinWait, ahk_class OperaWindowClass, , 0, ahk_id %AWinID%
  WinRestore
  WinMove, , , %SendX%, %SendY%
return

 以下オマケ。

#IfWinActive ahk_class OperaWindowClass

F1::^w  ; タブ閉じ。
F2::^+Tab  ; 左のタブ。
F3::^Tab  ; 右のタブ。
F5::^r  ; F5禁止対策。

^Numpad0::^t

 Ctrl+1~9がスピードダイアルなら、Ctrl+0はズームリセットでなく新規タブだろJK。

 というか、新規タブからのアドレスバー検索が便利なことに今更気づいたので。検索バーのが便利だと思ってたのだけど(最大の理由は「タブの再利用」が嫌いだから)、アドレスバーは新規タブ開くだけでフォーカス当たるし、ブックマークや履歴も検索できる。新規タブだから、「タブの再利用」も問題ない。
 それに、エクステンション入れるとアドレスバーを圧迫するから、検索バー消したいし。メイン以外の検索エンジンはウェブ検索パネル使えばいいよね。

 Googleの検索結果にGoogleブックマークが表示されなくなった改悪も、これで解決ですね。


[PR]
by lordnoesis | 2012-06-20 17:40 | テクノロジ | Trackback | Comments(0)

Windows7を64bit版にしたらExplorerが……。

 Win7機をリカバリするついでに、せっかくなのでx64入れてみたのだが、Explorer x86が使えない=従来のエクスプローラ拡張が使えないという恐るべき罠が。Vista x64ではExplorer x86も用意されてたじゃないですかーやだー!

ファイラを求めて

 というわけでExplorerに見切りをつけて、適当なファイラを探すことに。そうしてなんとなくTablacus Explorerを試してみたらこやつ、リストビューとコンテキストメニューでエクスプローラ拡張が動く。なにこれすごい。64bit版も32bit版もあるから完璧や。
 でもワシ、Explorer+ClassicShell+QTTabBarに慣れきってるから、ちょっと使い勝手がなー。

 というか、目的のひとつが「サムネイル表示をSPIで拡張したい」なんだけど、Explorerの"縮小版"はキャッシュを優先するから、こいつでキャッシュ作れば、あとはExplorerでも表示できるな。よしExplorerに戻ろう(出戻りすぎる。

ふたつのQTTB

 そうなると問題なのが、Qちゃん版Pちゃん版、どちらのQTTabBarを入れるか。まずQちゃんのver.8を試してみたのだが、プレビューチップがかなり強化されてていい感じ。でもQちゃん版は、ウィンドウの取り込みが完全じゃないからなー。Everythingからフォルダ開くと、すべて別ウィンドウになる。今はまだPちゃん版だなぁ。

 それに、Pちゃん版は「古いリストビューコントロールを使用する」が便利すぎる。Win7ではExplorerのリストビューがDirectUIHWNDに覆われていて、外部から干渉できないのだけど、この設定ONにすると従来のSysListView32になる。AHK使いとしてこれは外せん。

 というか、今まで効果も理解せずにONにしてたので、そもそも邪魔者DirectUIHWNDの存在を知らなかった。

64bit版OSに32bit版CBX Shellを入れる

 Tablacus Explorer x86のために、CBX Shellもx86版も入れたいのだが、64bit/32bit共通インストーラーなので、x64環境ではx86版が入れられない。インストーラーを32bitで起動してもダメ。というわけでx86環境からDLLをこちらに持ってきて、regsvr32 CBXShell.dllで対応。


[PR]
by lordnoesis | 2012-06-16 14:06 | テクノロジ | Trackback | Comments(0)

AutoHotKey_Lで、関連付けを動作中のアプリケーションで開くツール作った。

 動作中のプロセスからリストにあるものを探し出して引数(コマンドラインオプション)を転送するS2WAを、改めてAHKで作り直してみた。
 これによってリストがUnicodeになり、また、250文字を超える引数に対応した。

; ////////////////////////////////////////////////////////////////////////////////
;
; S2WA.ahk ver.2.0.0
;
; ////////////////////////////////////////////////////////////////////////////////

  FileEncoding, CP1200

  IfNotExist, %A_ScriptDir%\AppList.txt
  {
    MsgBox, %A_ScriptDir%\AppList.txt が存在しません!
    ExitApp
  }

  for process in ComObjGet("winmgmts:").ExecQuery("Select * from Win32_Process")
    ProcessList := ProcessList "`n" process.ExecutablePath

  TrgExe := ""
  Loop, Read, %A_ScriptDir%\AppList.txt
  {
    if ("" == A_LoopReadLine)
      continue
    StringLower, SearchExe, A_LoopReadLine
    Loop, Parse, ProcessList, `n, `r" "
    {
      StringLower, TipProcess, A_LoopField
      if (SearchExe == TipProcess) {
        TrgExe := TipProcess
        break
      }
    }
    if ("" != TrgExe)
      break
  }

  If ("" == TrgExe)
    FileReadLine, TrgExe, %A_ScriptDir%\AppList.txt, 1

  Loop, %0%
  {
    CmdlineBuf := %A_Index%
    Run, %TrgExe% "%CmdlineBuf%"
    Sleep, 1000
  }

 これをAhk2ExeでExe化し、関連付けすれば便利。例えば.htmlやHTTPに関連付け、リストにブラウザを列挙することで、起動済みのブラウザや、軽量なブラウザで開けるようになる。例えばっていうか、それしか思いつかないので、他に便利な使い道があったら教えてください(お。

 なお、Windows7でHTTPなどのプロトコルを関連付けするにはレジストリをいじる必要がある。

Windows Vista 既定のプログラム 関連付け レジストリ とかの話



REGファイルはじめました。
[PR]
by lordnoesis | 2012-06-09 19:19 | テクノロジ | Trackback | Comments(0)
ブログトップ | ファンになる