#作業効率を上げるかもしれない簡単スクリプトを見てほしい(AutoHotkey)
by neokix
ほとんどは以前Webで公開したものですが,あまりアクセスがないのでこちらでも公開することにしました.悲しいけれど役に立つ,そんなスクリプトたちです.
##全角殺し
全角で記入されてしまうキーボード上部の数字をNumpadに置き換えて,全部とにかく半角で入力されるようにするもの.
1::Numpad1
2::Numpad2
3::Numpad3
4::Numpad4
5::Numpad5
6::Numpad6
7::Numpad7
8::Numpad8
9::Numpad9
0::Numpad0
\::NumpadSub
##ファーストスクロールベイビー
シフトを押しながらスクロールを回すと,10回分スクロールされるだけのスクリプト.しかし時々役に立つ.
+WheelDown::
Send, {WheelDown 10}
return
+WheelUp::
Send, {WheelUp 10}
return
##一覧表示
AppsKeyを押すと展開中のプログラムをいっぺんに表示,続けて押すと順に選択していく.
AppsKey::
If (A_PriorKey = "AppsKey")
{
Send, {Right}
}
else
{
Send, #{Tab}
}
return
##登録YouTubeでBGM再生
あらかじめ登録したYouTubeのURLを流すだけのスクリプト.
!Y:: ;Alt+Yで登録
vyoutubeurl := clipboard
IfNotInString, vyoutubeurl, youtu ;もしクリップボードにyoutuの文字列があれば
{
Msgbox,,お知らせ,登録作業を中断しました, 1
}
else,
{
Filedelete, youtubeurl.txt
FileAppend,%vyoutubeurl%, youtubeurl.txt ;同じディレクトリ内にtext作成
MsgBox,, ,%vyoutubeurl%を登録しました, 1
}
return
!^Y::
runyoutube:
vrunyoutube =
FileReadLine, vrunyoutube, youtubeurl.txt, 1
Run, %vrunyoutube%
WinWait, ahk_class Chrome_WidgetWin_1
sleep, 5000
SoundSetWaveVolume, 0.2 ;音量の設定.お好みで解除されたし.
WinMinimize, A
return
##Wasdを十字キーに変えるスイッチ
Pauseを押すと,WasdモードのGuiが表示され,Wasdキーが十字キーにかわる.エクセル入力に便利かもしれない.もう一度押すと解除される.
Pause::
IfWinNotExist, wasd_mode
{
Progress, b zh0 fs15 x300 y925 ctffffff cw123456, wasd_mode on!, , wasd_mode, Segoe UI Black
}
else
{
Progress, off
}
return
#IfWinExist, wasd_mode
a::Left
s::Down
w::Up
d::Right
#IfWinExist,
※Progressを使うものに修正しました.(2018年02月13日)
駄スクリプト失礼しました.
もしなにか改造とか面白いものが見つかったらぜひコメントでおしえてください.
皆さんのスクリプトももっと見てみたいです.
では.