私用AHKメモ

;2Joy1::send,^v
;2Joy2::send,^f
;2Joy3::send,^s

vkF4sc029::Send {Del}

;AHK編集用
;sc03A::Reload

sc03A::
	ifWinActive,ahk_class AcrobatSDIWindow
		Send,^+r
	else
	ifWinActive,ahk_class WindowsForms10.Window.8.app.0.2bf8098_r15_ad1
		Send,^s
	else
		Reload
return

#h::
Run, C:\Programme\TeraPad\TeraPad.exe
WinActivate, ahk_class TTeraPadMainForm
WinWait, ahk_class TTeraPadMainForm
Send, !fo
Clipbackup:=ClipboardAll
Clipboard=D:\Users\L\Documents\macro\Root.ahk
Sleep, 500
Send, ^v
Send, !o
Clipcoard:=Clipbackup
return

;HTML編集
:oc:p::
Clipbackup:=ClipboardAll
Clipboard=<p></p>
Send ^v{Left 4}{Enter}
Clipcoard:=Clipbackup
return

:oc:br::
Clipbackup:=ClipboardAll
Clipboard=<br />
Send ^v{Enter}
Clipcoard:=Clipbackup
return

:oc:cc::
Clipbackup:=ClipboardAll
Clipboard=<h5>柏手返信</h5>
Send ^v{Enter}
Clipboard=<blockquote>
Send ^v{Enter}
Clipboard=<p></p>
Send ^v{Enter}
Clipboard=</blockquote>
Send ^v{Enter}
Clipboard=<p></p>
Send ^v{Enter}
Clipcoard:=Clipbackup
return

;ディスプレイ関連
RCtrl::#+Right
F10::#+Right

;割当変更
Ins::
Send,+{Del}
return

Appskey::Run, C:\Program Files (x86)\Opera\opera.exe /notrayicon

XButton2::MButton

#a::
	WinActivate, ahk_class iTunes
	Send, ^m
return

$Esc::
  KeyWait, Esc, T0.8
  if ErrorLevel
  {
    	WinActivate, ahk_class iTunes
	Send, ^m
  }
  else
  {
    send,{Esc}
  }
  keywait, Esc
return


;AA編集;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
^q::
Run, C:\Programme\TeraPad\TeraPad.exe
WinActivate, ahk_class TTeraPadMainForm
WinWait, ahk_class TTeraPadMainForm
Send, ^v
Send, ^{Home}
Send, !sr
WinWait, 置換
Send, {\}n{TAB}<br />{\}n
Send, !a
WinWait, 確認
Send, a
WinWait, ahk_class TTeraPadMainForm
Send, ^a
Send, ^x
Send, ^a
Send, ^c
WinWait, ahk_class TTeraPadMainForm
WinKill
Winwait,,内容が変更
Send, n
return

;IME;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#Include IME_Func.ahk
vk1Csc079::
ret := IME_CHECK("A")
if( !ret ){
IME_ON("A")
IME_SetConvMode( "A", 25 ) ; R漢
}
return
vk1Dsc07B::IME_OFF("A")
return

;マウスジェスチャ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RButton::
ifWinNotActive,ahk_class OperaWindowClass ;Operaがアクティブなときは無効
ifWinNotActive,ahk_class ahk_class MozillaWindowClass
ifWinNotActive,ahk_class TFormMain
ifWinNotActive,ahk_class SideBar_HTMLHostWindow
ifWinNotActive,ahk_class IMWindowClass
ifWinNotActive,ahk_class sfl_window_class
ifWinNotActive,ahk_class Chrome_WidgetWin_0
ifWinNotActive,ahk_class tn01tnmse
{
 mg_active=1
 mg_executed=0
 mg_rheld=0
 mg_str=
 mg_dir1=
 mg_idletime=0
 MouseGetPos,px,py
 px2=%px%
 py2=%py%
 loop
 {
  GetKeyState,st,RButton,P ;マウス右ボタンを押し下げている場合
  if st=U
  {
   if mg_rheld=0
   {
    mg_active=0
    if mg_executed=0      ;movement action(s)
    if mg_str=L ;マウスを左に動かすと
    {
     Send,!{Left} ;Alt+Leftを送る
    }
    else
    if mg_str=R ;マウスを右に
    {
     Send,!{Right} ;Alt+Right
    }
    else
    if mg_str=U ;マウスを上
     Send,!{Space}{n}
    else
    if mg_str=D ;マウスを下
     {
     ;Send,!{F4} ;Alt+F4（閉じる）
MouseGetPos, , , id,
PostMessage, 0x112, 0xF060,,, ahk_id %id%, ; 0x112 = WM_SYSCOMMAND, 0xF060 = SC_CLOSE
     }     
    else
     MouseClick,R
   }
   else
    MouseClick,R,,,,,U
   return
  }
  else
  if mg_idletime<30      ;timeout
  {
   MouseGetPos,dx,dy
   dx-=%px2%
   dy-=%py2%
   powx=%dx%
   powx*=%dx%
   powy=%dy%
   powy*=%dy%
   pow=%powx%
   pow+=%powy%
   if pow>3600       ;sensitivity
   {
    if powx>%powy%
     if dx>0
      mg_dir2=R
     else
      mg_dir2=L
    else
     if dy>0
      mg_dir2=D
     else
      mg_dir2=U
    if mg_dir2<>%mg_dir1%
    {
     mg_str=%mg_str%%mg_dir2%
     mg_dir1=%mg_dir2%
    }
    MouseGetPos,px2,py2
    mg_idletime=0
   }
   else
    mg_idletime++
  }
  else
  if mg_rheld=0
  if mg_executed=0
  {
   MouseGetPos,px2,py2
   if px2<>%px%
   if py2<>%py%
   {
    MouseClick,R,%px%,%py%,,,D
    MouseMove,%px2%,%py2%
    mg_rheld=1
    mg_active=0
   }
  }
  Sleep,10
 }
}
MouseClick,R,,,,,D
loop
{
 GetKeyState,st,RButton,P
 if st=U
  break
 Sleep,10
}
MouseClick,R,,,,,U
return