カテゴリ：テクノロジ( 203 )
-
[ 2018-10 -17 18:07 ]
-
[ 2018-06 -15 19:08 ]
-
[ 2018-04 -09 22:45 ]
-
[ 2018-02 -21 23:32 ]
-
[ 2017-12 -12 20:30 ]
-
[ 2017-05 -17 18:29 ]
-
[ 2017-02 -08 21:07 ]
-
[ 2016-07 -02 21:53 ]
-
[ 2016-02 -11 20:00 ]
-
[ 2016-02 -09 20:00 ]
AutoHotKey_Lがキーを掴まなくなったらReloadするようにしたかった……。
なんか時折AHKがキーを掴まなくなることがあって、仕込んであるリロード用ホットキーも使えないので、タスクトレイアイコンからリロードするはめになるのだけど、自動化のために存在するAHKを自動化できないなんて云々というわけで、自動化してみた。
SetTimer, ReloadAHK, 5000
ReloadAHK:
ReloadAHKSw := 1
Send, {Help} ; 使わないキー
Sleep, 1000
if ReloadAHKSw && !A_IsSuspended {
Reload
}
return
Help::
ReloadAHKSw := 0
return
ホットキーが効かなければReloadするってだけだが、これで対処可能なのか、狙って試せないのでわからない。数日使って問題の状態にならないので、対処できてる、できてるんじゃないかな？ｒｙ
うーむやはりダメっぽい。キーを掴まないが発行は正しく行われてるのか。権限絡みか？
AutoHotKey_Lで、プロセス間通信経由して一般権限でRunしてみた。ver.1.2
UIPIの制限を回避するため、常駐AHKは管理者権限で実行しているのだが、それゆえにRunした時に不要な特権が付与されてしまう。それを回避する手段はいくつかあるものの、どれも一長一短で、最終的に「一般権限の常駐AHKにプロセス間通信でパスを送ってRun」に行きついた。最初からそうしとけって話だが、旧人類なので常駐増やしたくないのだ！
Receive2Run.ahkを一般権限で常駐させて、管理者権限AHKからRunNEXすれば、R2Rが代わりにRunしてくれる。
"|"はEverythingにクエリ送るとき使ってたので、区切り文字はAHKらしく"`n"にした。
; 管理者権限のAHKに書くやつ
RunNEX(Cmdline, WorkDir = "", Opt = "", ByRef Pid = "") {
SetTitleMatchMode 2
DetectHiddenWindows On
sig := "RunNEX:"
SendHwnd := WinExist("Receive2Run. ahk_class AutoHotkey")
if (0 == SendHwnd) {
MsgBox, 262160, , Receive2Runが見つかりません。
return
}
if !WorkDir {
WorkDir := A_WorkingDir
}
StringToSend := sig Cmdline "`n" WorkDir "`n" Opt
Result := Send_WM_COPYDATA(StringToSend, "ahk_id " SendHwnd)
if (0 < Result) {
Pid := Result
} else {
MsgBox,Err!`n%Result%
}
}
;http://www.autohotkey.com/community/viewtopic.php?t=76704
Send_WM_COPYDATA(ByRef StringToSend, ByRef TargetScriptTitle) {
PtrSize := A_PtrSize ? A_PtrSize : 4
VarSetCapacity(CopyDataStruct, 3*PtrSize, 0)
SizeInBytes := (StrLen(StringToSend) + 1) * (A_IsUnicode ? 2 : 1)
NumPut(SizeInBytes, CopyDataStruct, PtrSize)
NumPut(&StringToSend, CopyDataStruct, 2*PtrSize)
SendMessage, 0x4a, 0, &CopyDataStruct,, %TargetScriptTitle%
return ErrorLevel
}
;/////////////////////////////////////////////////////////////////////////////////////
;
; Receive2Run.ahk
;
;/////////////////////////////////////////////////////////////////////////////////////
#SingleInstance, Force
#NoEnv
#Persistent
SetBatchLines, -1
Menu, Tray, Icon, SHELL32.dll, 262
sig := "RunNEX:"
if A_IsAdmin {
MsgBox, 262160, , 管理者権限で起動しないでください。
ExitApp
}
OnMessage(0x4a, "Receive_WM_COPYDATA")
return
;http://www.autohotkey.com/community/viewtopic.php?t=76704
Receive_WM_COPYDATA(wParam, lParam) {
global sig
PtrSize:=A_PtrSize ? A_PtrSize : 4
StringAddress := NumGet(lParam + 2*PtrSize)
CopyOfData := StrGet(StringAddress)
if RegExMatch(CopyOfData, "^" sig "([^\n]+)(?:\n([^\n]*))?(?:\n([^\n]*))?(?:\n([^\n]*))?$", $) {
TrgPath := $1
WorkDir := $2
Opt := $3
TrgPid := 0
Run, %TrgPath%, %WorkDir%, %Opt%, TrgPid
} else {
MsgBox, Err!`n%CopyOfData%
}
return TrgPid
}
メッセージ受け取ってRunとかいかにも悪用されそうなので、とりあえず符丁つけてみた。使うときは双方のsigを適当に書き換えてね。
送り主を確認するとか他にやるべきことがあるのでは？という気もするが、所詮「とりあえず」なんで……。
他の手段、「一般ユーザーでRunAS」「CreateProcessWithTokenWでShellから一般権限をコピー」「Shellに引数をつけてRun」とかあるのだけど――。RunAsはパスワードを平文で記録したくないのでNG。CreateProcessWithTokenWは複雑で、フォーラムにあったのコピペで試してたけど、動作したりしなかったり。で、Shellに.lnkを実行させるハックを愛用してたのだけど、これも近頃調子悪くなってしまい、諦めて常駐増やしたっちゅー……。
オマケ
AutoHotKey_Lで、OnTopReplicaを少し便利に。ver.1.0.1
高解像度モニタやマルチモニタが便利なのは「視線移動だけで数多のウィンドウを確認できる」からだけど、文章でもない限りサムネで十分というか、むしろサムネの方が同時表示ウィンドウ数増えてよくね？と思ったので、それっぽいソフトを探したけどなかったから、既存のソフトを組み合わせてなんとかするの巻。
というわけで、ウィンドウの縮小クローンを作成するソフト「OnTopReplica」が便利なのだけど、大抵の操作は縮小クローンより元ウィンドウでした方がよいので、OTRをクリックしたら元ウィンドウをアクティブにするAHK書いた。
;--------------------------------------------------------------------------------------
; OnTopReplica
;--------------------------------------------------------------------------------------
#IfWinActive ahk_exe OnTopReplica.exe
~LButton::return
LButton Up::
if (400 < A_TimeSincePriorHotkey)
return
WHwnd := WinExist()
BlockInput, On
Send, {RButton}{Up}{Down 2}{Enter}
WinWaitNotActive, ahk_id %WHwnd%, , 0.5
WinActivate, ahk_id %WHwnd%
BlockInput, Off
return
メインの作業をしている裏で、入力に間のある作業（重い対話型ソフトとか、チャットやゲーム）をしている状況で、モニタの隅やセカンダリモニタあたりに縮小クローンを配置して、横目で見て変化があったらクリックするだけで操作可能になる。便利。
なお、「元ウィンドウなどいらん、縮小ウィンドウを左クリックできれば十分！」という場合は「窓の化身」を使う。
AutoHotKey_Lで、Stellarisのカーソル移動による自動スクロールを防止した。
Stellarisやってて、ウィンドウ端にカーソル移動するとスクロールする仕様がウザったいのだが、設定でOFFにできないっぽいので、力業で封じてみた。
まあ単に、監視して、カーソルがウィンドウ端に行ったらウィンドウ非アクティブにするだけなんで、ちょっと書き換えれば他でも使える。フルスクリーンとか知らぬ。
;------------------------------------------------------------
; Stellaris
;------------------------------------------------------------
#IfWinActive Stellaris ahk_class SDL_app ahk_exe stellaris.exe
F12:: ; マウスカーソルでスクロールしないようにする
StlrsMargin := 2
StellarisHwnd := WinExist()
VarSetCapacity(CR, 16)
DllCall("GetClientRect", Ptr, StellarisHwnd, Ptr, &CR)
CW := NumGet(CR, 8, "Int")
CH := NumGet(CR, 12, "Int")
WinGetPos, , , WW, WH
BW := (WW - CW) // 2
StlrsX := BW + StlrsMargin
StlrsY := WH - CH - BW + StlrsMargin
StlrsX2 := BW + CW - StlrsMargin
StlrsY2 := WH - BW - StlrsMargin
SetTimer, StlrsChk, 250
return
StlrsChk:
IfWinNotExist, ahk_id %StellarisHwnd%
{
SetTimer, StlrsChk, Off
return
}
IfWinNotActive
WinWaitActive
MouseGetPos, MX, MY
if (StlrsX >= MX) || (StlrsY >= MY) || (StlrsX2 < MX) || (StlrsY2 < MY)
WinActivate, Program Manager ahk_class Progman ahk_exe explorer.exe
return
AHKってクライアント領域の取得できないんか……。
Web版ハングアウトのフレンドリストをコンパクトにするUserCSS書いた。
Web版ハングアウトのUIが無駄に広大で、ウィンドウ幅を縮めるとスクロールバーがウザいので、フレンドリスト以外の無駄な要素を消すCSS書いた。これで、せいせいChromeでアプリ化（"デスクトップに追加"）できる。
.gb_yg.gb_X.gb_T {
min-width: 0px !important;
}
.g-Ue-Ja-t {
min-width: 0px;
}
.kFx1Ae-xdwExf-eb.kFx1Ae-xdwExf-eb-wr {
display: none;
}
.g-Ue-v0h5Oe {
display: none;
}
.g-Qx-r4m2rf-wZVHld.Id-qy-By.r4m2rf-wZVHld-wr {
display: none;
}
まあ、XMPP対応が縮小されたものの、基本的なテキストチャットは問題なくできるので、Web版は画像送信時くらいしか使わないけども。
余談だが、Web版はCtrl+vでクリップボードの画像データを送信できるので、Vivaldiのキャプチャー機能を「選択範囲」「クリップボード出力」で使うと、あらゆる画像をスタンプめいて使えて面白い。
AutoHotKey_Lで、AviUtlのバッチ登録を自動化した。
AviUtlで複数ファイルをエンコードする場合「バッチ登録」を使うのだけど、手作業で出力ファイル名入力するのが面倒すぎたので自動化した。
変換したい動画のパスリスト（\n区切り）をクリップボードに入れて、AviUtlメインウィンドウでF12打鍵すれば登録開始。
出力ファイルは"元ファイル名.設定した拡張子"で、重複してれば接尾辞"_[n]"で回避。
使用前に"OutputPluginNum"と"SaveFileExt"を設定すべし。
;--------------------------------------------------------------------------------------
; AviUtl
;--------------------------------------------------------------------------------------
#IfWinActive ahk_class AviUtl ahk_exe Aviutl.exe
F12:: ; クリップボードのパスをバッチ登録
OutputPluginNum := 1 ; "プラグイン出力"で選択するプラグインの番号。1番上は1。
SaveFileExt := "mp4" ; 出力ファイルの拡張子。
PathList := Clipboard
WinGet, WHwnd, ID
WinGet, ExePath, ProcessPath
SplitPath, ExePath, , ExeDir
IfExist, %ExeDir%\batch*.aup
{
MsgBox, 262691, , バッチ登録されたプロジェクトが存在します`n既存のプロジェクトを削除しますか？
IfMsgBox, Cancel
return
IfMsgBox, Yes
FileRecycle, %ExeDir%\batch*.aup
}
StringReplace, PathList, PathList, `n, `n, UseErrorLevel
MaxNum := ErrorLevel
Loop, Parse, PathList, `n, `"
{
TipView(A_Index "/" MaxNum)
FilePath := A_LoopField
IfNotExist, %FilePath%
continue
SplitPath, FilePath, , FileDir, , FileNoExt
SaveFilePath := FileDir "\" FileNoExt "." SaveFileExt
while FileExist(SaveFilePath)
SaveFilePath := FileDir "\" FileNoExt "_[" A_Index "]." SaveFileExt
WinMenuSelectItem, ahk_id %WHwnd%, , ファイル, 1& ; "開く"
WinWait, ファイルを開く ahk_class #32770 ahk_exe Aviutl.exe
ControlSetText, Edit1, %FilePath% ; "ファイル名"
Sleep, 100
ControlClick, Button2, , , L, 2 ; "開く"
WinWaitClose
WinMenuSelectItem, ahk_id %WHwnd%, , ファイル, プラグイン出力, %OutputPluginNum%&
WinWait, ahk_class #32770 ahk_exe Aviutl.exe
ControlSetText, Edit1, %SaveFilePath% ; "ファイル名"
Sleep, 100
ControlClick, Button5, , , L, 2 ; "バッチ登録"
WinWaitClose
}
TipView("FIN")
return
;--------------------------------------------------------------------------------------
; TipView.ahk
;--------------------------------------------------------------------------------------
TipView(TextBuf = "", Timer = 3000, X = "", Y = "", SW = 0) {
if SW
CoordMode, ToolTip
ToolTip, %TextBuf%, X, Y
if !Timer
Timer := "Off"
SetTimer, TipClose, %Timer%
}
TipClose:
SetTimer, TipClose, Off
ToolTip
return
エキブロにログインできない場合の対処。
エキサイトブログはサードパーティCookieをブロックしているとログインできないので、許可リストにhttps://idcaccounts.exblog.jpを登録する。
Vivaldiはサイト別許可リストが標準の設定画面になく、Blink由来の設定画面にしかないので、chrome://settings/contentExceptions#cookiesに飛んで[*.]idcaccounts.exblog.jpを登録すればよい。
なお、アドレス中の「chrome://」を「vivaldi://」に置換する雑な仕様があるので、アンカー書いたりブックマークする時は注意。
Win10で自作実行ファイルが「既定のプログラム」に表示されなくなったので直した。
拙作「S2WA」を、レジストリを弄って「既定のプログラム」に登録してブラウザに振り分けするとめちゃ便利なのだが、Win7ではできてたのにWin10にアップグレードしたら「既定のプログラム」に表示されなくなった。PC設定>既定のアプリだと、表示はされるけど選択できなかったり。
レジストリが間違ってる or Win10で変わった？EXEの権限？アンチウィルスによるブロック？等々あれやこれや、本当に何っっっ時間も悩んだ挙句、「Win10でコンパイルし直したら認識された」とか徒労感ハンパない。
AHKで作ったEXEだけでなく、古いHSP版もダメだった。スクリプト系がブロックされてる？ でも認識されないだけで動作は問題ないしなあ？ あとコンパイル時の文字コードとか32bitと64bitとかUPXやMPRESSとか、気にならなくもないが検証する気力は残ってない。とりあえず認識されたからよし。
TabJugglerでスクロールできない問題を解決した。
TabJugglerというタブ管理用のChrome拡張があって、すべての互換ブラウザに入れてるくらい便利なのだが、操作できなくなる問題があるので対処した。
そもTabJugglerは、すべてのタブを対象とした「ひとつのウィンドウにまとめる」「ウィンドウを分離する」「タブの配置をソートする」という機能と、検索でリストアップした、あるいはしなかったタブを対象とした「閉じる」「分離する」という機能がある。この後者の検索で大量のタブをリストアップすると、操作ボタンが押し出されて操作不能になってしまう。大量のタブがあるからこそ使いたいのに！
で、調べてみたら操作不能の原因はスクロールを禁じたスタイルにあったので、CSSをたった1行いじるだけで解決したという……。
問題のCSSはExtensions\jgiplclhploodgnkcljjgddajfbmafmp\バージョン番号\assets\styles\popup.css。ExtensionsフォルダはOperaならProfile、ChromeとVivaldiならUser Data以下にあるが、識別子jgiplc（以下略）を検索した方が手っ取り早い。
そのpopup.cssの11行目にあるoverflow: hidden;を、hiddenからscrollにすれば完了。
AutoHotKey_Lで、標準出力を得たい……。
以前見つけた関数だと上手く動かないことがあったのでフォーラム検索したら、もっと新しいやつを見つけた。見つけたんだが、標準出力が多いと文字化けすることが発覚。ReadFileでバイト単位で取得したデータをそのままデコードしてるせいだと思うが、AHKで文字列でないデータを操作とか苦行の予感がするので、Fileオブジェクトで文字単位で取得してごまかした。
文字化けはなくなったが、本当にこれで問題ないのかは解らん。
; https://autohotkey.com/board/topic/54559-stdin/#entry687172
MsgBox % sOutput := StdoutToVar_CreateProcess("tasklist /s " A_ComputerName)
StdoutToVar_CreateProcess(psCmd, psInput="", psEncoding:="CP0", psDir:="", ByRef pnExitCode:=0) {
DllCall("CreatePipe", PtrP, hStdInRd, PtrP, hStdInWr, Ptr, 0, UInt, 0)
DllCall("CreatePipe", PtrP, hStdOutRd, PtrP, hStdOutWr, Ptr, 0, UInt, 0)
DllCall("SetHandleInformation", Ptr, hStdInRd, Uint, 1, Uint, 1)
DllCall("SetHandleInformation", Ptr, hStdOutWr, UInt, 1, UInt, 1)
VarSetCapacity(pi, (A_PtrSize == 4) ? 16 : 24, 0)
siSz := VarSetCapacity(si, (A_PtrSize == 4) ? 68 : 104, 0)
NumPut(siSz, si, 0, "UInt")
NumPut(0x100, si, (A_PtrSize == 4) ? 44 : 60, "UInt")
NumPut(hStdInRd, si, (A_PtrSize == 4) ? 56 : 80, "Ptr")
NumPut(hStdOutWr, si, (A_PtrSize == 4) ? 60 : 88, "Ptr")
NumPut(hStdOutWr, si, (A_PtrSize == 4) ? 64 : 96, "Ptr")
If (!DllCall("CreateProcess", Ptr, 0, Ptr, &psCmd, Ptr, 0, Ptr, 0, Int, True, UInt, 0x08000000
, Ptr, 0, Ptr, psDir ? &psDir : 0, Ptr, &si, Ptr, &pi))
return
, DllCall("CloseHandle", Ptr, hStdOutWr)
, DllCall("CloseHandle", Ptr, hStdOutRd)
, DllCall("CloseHandle", Ptr, hStdInRd)
DllCall("CloseHandle", Ptr, hStdOutWr ) ; The write pipe must be closed before reading the stdout.
if (psInput != "")
FileOpen(hStdInWr, "h", psEncoding).Write(psInput)
DllCall("CloseHandle", "Ptr", hStdInWr)
; ################################################################################
StdOutBuf := FileOpen(hStdOutRd, "h", psEncoding)
StrBuf := 1
while StrLen(StrBuf) {
StrBuf := StdOutBuf.Read(2047)
sOutPut .= StrBuf
}
; ################################################################################
DllCall("GetExitCodeProcess", Ptr, NumGet(pi, 0), UIntP, pnExitCode)
DllCall("CloseHandle", Ptr, NumGet(pi, 0) )
DllCall("CloseHandle", Ptr, NumGet(pi, A_PtrSize) )
DllCall("CloseHandle", Ptr, hStdOutRd )
return sOutput
}
.jpg){kind=logo}
