#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
;SetTitleMatchMode,2
#InstallKeybdHook
#UseHook
#IF !WinActive("ahk_class TscShellContainerClass")
;-----------------------------------------------------------
; IMEの状態をセット
; SetSts 1:ON / 0:OFF
; WinTitle="A" 対象Window
; 戻り値 0:成功 / 0以外:失敗
;-----------------------------------------------------------
IME_SET(SetSts, WinTitle="A"){
ControlGet,hwnd,HWND,,,%WinTitle%
Progress, m2 b fs18 zh0, %WinTitle% , , Courier New
if (WinActive(WinTitle)) {
ptrSize := !A_PtrSize ? 4 : A_PtrSize
VarSetCapacity(stGTI, cbSize:=4+4+(PtrSize*6)+16, 0)
NumPut(cbSize, stGTI, 0, "UInt") ; DWORD cbSize;
hwnd := DllCall("GetGUIThreadInfo", Uint,0, Uint,&stGTI)
? NumGet(stGTI,8+PtrSize,"UInt") : hwnd
}
return DllCall("SendMessage"
, UInt, DllCall("imm32\ImmGetDefaultIMEWnd", Uint,hwnd)
, UInt, 0x0283 ;Message : WM_IME_CONTROL
, Int, 0x006 ;wParam : IMC_SETOPENSTATUS
, Int, SetSts) ;lParam : 0 or 1
}
;IME ON/OFF
*vk1C::
KeyWait, vk1C, T0.2 ; 0.2秒以上キーが離されなかったら、ErrorLevel=1
if (ErrorLevel) {
;長押し
if (!WinActive("ahk_exe vcxsrv.exe")) {
; IME_SET(1)
Send, {Blind}{F13}
} else {
Send, {Blind}{Ctrl Down}{vkF3sc029}{Ctrl Up}
}
Progress, m2 b fs18 zh0, 日本語, , , Courier New
Sleep, 500
Progress, Off
keywait, vk1C
} else {
;短押し
if (!WinActive("ahk_exe vcxsrv.exe")) {
if (WinActive("ahk_exe mstsc.exe")) {
Send, {Blind}{F14}
} else {
; IME_SET(0)
Send, {Blind}{Shift Down}{F13}{Shift Up}
}
} else {
Send, {Blind}{Shift Down}{vkF3sc029}{Shift Up}
}
keywait, vk1C
Progress, m2 b fs18 zh0, English, , , Courier New
Sleep, 500
Progress, Off
}
return
flg_user_key_flg = 0
#IF flg_user_key_flg == 1 and !GetKeyState("vk1D","P")
*f::
KeyWait, f
Send,{Blind}{LButton up}
flg_user_key_flg = 0
return
*g::
KeyWait, g
Send,{Blind}{MButton up}
flg_user_key_flg = 0
return
*v::
KeyWait, v
Send,{Blind}{RButton up}
flg_user_key_flg = 0
return
*r::
KeyWait, r
flg_user_key_flg = 0
return
*4::
KeyWait, 4
flg_user_key_flg = 0
return
*t::
KeyWait, t
flg_user_key_flg = 0
return
*5::
KeyWait, 5
flg_user_key_flg = 0
return
#IF
#IF GetKeyState("vk1D","P")
*f::
Send,{Blind}{LButton down}
flg_user_key_flg = 1
KeyWait, f
Send,{Blind}{LButton up}
flg_user_key_flg = 0
return
*g::
Send,{Blind}{MButton down}
flg_user_key_flg = 1
KeyWait, g
Send,{Blind}{MButton up}
flg_user_key_flg = 0
return
*v::
Send,{Blind}{RButton down}
flg_user_key_flg = 1
KeyWait, v
Send,{Blind}{RButton up}
flg_user_key_flg = 0
return
*r::
Send,{Blind}{WheelDown}
flg_user_key_flg = 1
return
*4::
Send,{Blind}{WheelUp}
flg_user_key_flg = 1
return
;何故か逆
*t::
Send,{Blind}{WheelLeft}
flg_user_key_flg = 1
return
;何故か逆
*5::
Send,{Blind}{WheelRight}
flg_user_key_flg = 1
return
;;;; windows特有 ;;;;
; デスクトップ切り替え（進む）
Tab::
Send, {Blind}{LWin Down}{Ctrl Down}{Right}{Ctrl Up}{Lwin Up}
return
; デスクトップ切り替え（戻る）
q::
Send, {Blind}{LWin Down}{Ctrl Down}{Left}{Ctrl Up}{Lwin Up}
return
#IF
;IME ON/OFF bluetooth用 右winを無変換に 日本語キーボードとコードは異なる模様
*vkFF::
KeyWait, vkFF, T0.2 ; 0.2秒以上キーが離されなかったら、ErrorLevel=1
if ErrorLevel
;短押し
Send,{Ctrl Down}{]}{Ctrl Up}
else
;長押し
Send,{Ctrl Down}{[}{Ctrl Up}
keywait, vkFF
return
ResizeWin(XPos = 0,YPos = 0,Width = 0,Height = 0){
WinGetPos,X,Y,W,H,A
If %XPos% = 9999
XPos := X
XPos := XPos - 7
If %YPos% = 9999
YPos := Y
If %Width% = 0
Width := W
Width := Width + 10
If %Height% = 0
Height := H
WinMove,A,,%XPos%,%YPos%,%Width%,%Height%
}
global LOG_FILE
LOG_FILE=C:\AHK.log
WriteLog(log)
{
logText = [%A_Now%]%log%
FileAppend, %log%, %LOG_FILE%
}
;keyswapで
;mac ひらがな→変換 左Win→左Alt 左Alt→左Win
;win 左Ctrl→Caps Caps→左Ctrl
/*
#IF A_COMPUTERNAME = "WIN8MBA"
;mbaの独自設定
#IF
*/
/*
#IF A_COMPUTERNAME = "G2120PC"
;デスクトップの独自設定
#IF
*/
/*
SetTimer AutoClose,5000
return
AutoClose:
IfWinExist, スポンサーセッション ahk_class #32770
{
ControlClick OK, スポンサーセッション ahk_class #32770
}
return
*/
/*
#IF WinActive("ahk_exe GuiltyGearXrd.exe")
*vk1D::w
*d::s
*f::d
*vk1C::j
*j::u
*k::i
*l::o
*;::l
*i::p
*o::q
#IF
*/
#IF WinActive("ahk_exe Baka MPlayer.exe") and !GetKeyState("vk1D","P") and !GetKeyState("vkEB","P")
*d::
Send,{Blind}{Left}
return
*f::
Send,{Blind}{Right}
return
;mpv seek +300
*g::
Send,{Shift Down}{right}{Shift Up}
return
;mpv seek -300
*s::
Send,{Shift Down}{left}{Shift Up}
return
*r::
Send,{Ctrl Down}{right}{Ctrl Up}
return
*4::
Send,{Ctrl Down}{left}{Ctrl Up}
return
*Enter::
Send,{Blind}{f}
return
#IF
#IF WinActive("ahk_exe PotPlayerMini64.exe") and !GetKeyState("vk1D","P") and !GetKeyState("vkEB","P")
*v::
Send, {Blind}{Ctrl Down}{right}{Ctrl Up}
return
*c::
Send, {Blind}{Ctrl Down}{left}{Ctrl Up}
return
*d::
Send,{Blind}{Shift Down}{Left}{Shift Up}
return
*f::
Send,{Blind}{Shift Down}{Right}{Shift Up}
return
*g::
Send,{Alt Down}{Ctrl Down}{right}{Ctrl Up}{Alt Up}
return
*s::
Send,{Alt Down}{Ctrl Down}{left}{Ctrl Up}{Alt Up}
return
*r::
Send,{Blind}{PgDn}
return
*4::
Send,{Blind}{PgUp}
return
*b::
Send,{Shift Down}{Delete}{Shift Up}
return
#IF
;vk1D-無変換
;vkFF-pause
;vk1C-変換
*vkAC::Esc
XButton2::
Send,{Blind}{F11}
return
XButton1::
Send,{Blind}{esc}
return
;MButton::RButton
;RButton::MButton
*vk1D::return
*vkEB::return
*vk1D up::
*vkEB up::
if GetKeyState("Shift","P"){
Send,{Blind}{Shift Up}
}
if GetKeyState("Ctrl","P"){
Send,{Blind}{Ctrl Up}
}
if GetKeyState("Alt","P"){
Send,{Blind}{Alt Up}
}
if GetKeyState("F","P"){
Send,{Blind}{LButton Up}
}
if GetKeyState("G","P"){
Send,{Blind}{MButton Up}
}
if GetKeyState("V","P"){
Send,{Blind}{RButton Up}
}
return
#IF GetKeyState("vk1D","P") or GetKeyState("vkEB","P")
*F1::Edit
*F2::Reload
*1::
Loop
{
If(!GetKeyState("1","P"))
Break
MouseClick, LEFT
Sleep, 100
}
return
*2::
; ResizeWin(0, 0, 1440, 1415)
; return
ResizeWin(0, 0, 1440, 700)
return
*3::
; ResizeWin(1440, 0, 1120, 1415)
; return
ResizeWin(0, 700, 1720, 700)
return
*4::
While GetKeyState("4","P")
{
Send {WheelUp}
Sleep, 30 ; miliseconds
}
return
*5::WheelLeft
*6::WinSet, AlwaysOnTop, TOGGLE, A
Tab::
Send,{LWinDown}{CtrlDown}{right}{CtrlUp}{LWinUp}
return
+Tab::
Send,{LWinDown}{CtrlDown}{left}{CtrlUp}{LWinUp}
return
*q::
Send,{Alt Down}{F4}{Alt Up}
return
*w::
WriteLog("test")
return
*e::
Send,{Blind}{End}
return
*r::
While GetKeyState("r","P")
{
Send {WheelDown}
Sleep, 30 ; miliseconds
}
return
*t::WheelRight
*y::
return
*u::
return
*i::
return
*o::
return
*p::
return
*a::
Send,{Blind}{Home}
return
*s::
Send,{Blind}{Enter}
return
*d::
Send,{Blind}{Del}
return
*f::
Send,{Blind}{LButton down}
KeyWait,f
Send,{Blind}{LButton up}
return
*g::
Send,{Blind}{MButton down}
KeyWait,g
Send,{Blind}{MButton up}
return
*h::
Send,{Blind}{Left}
return
*j::
Send,{Blind}{Down}
return
*k::
Send,{Blind}{Up}
return
*l::
Send,{Blind}{Right}
return
*`::
return
*z::
return
*x::
Send,{Blind}{BS}
return
*c::
return
*v::
Send,{Blind}{RButton down}
KeyWait,v
Send,{Blind}{RButton up}
return
*b::
return
*n::
return
*m::
Send,{Blind}{SPACE}
return
; *Left::
; Run DisplaySwitch.exe /internal
; return
; *Down::
; Run DisplaySwitch.exe /extend
; return
; *Right::
; ;Run DisplaySwitch.exe /extend
; Run DisplaySwitch.exe /external
; return
#IF
!0::
Run DisplaySwitch.exe /external
return
!9::
Run DisplaySwitch.exe /internal
return
;ウィンドウを透明化する/解除
#W::
WinGet, tp, Transparent, A
If tp =
Winset, Transparent, 200, A
else
Winset, Transparent, OFF, A
return
;透明度を指定する
+#W::
WinGet, itp, Transparent, A
InputBox, itp, 透明度を変更(0～255), , , 200, 110,, , , , %itp%
If ErrorLevel = 1
return
else
WinSet, Transparent, %itp%, A
return
#IF
便利ツール
コメント