作業効率を上げるかもしれない簡単スクリプトを見てほしい(AutoHotkey)

by neokix

ほとんどは以前Webで公開したものですが，あまりアクセスがないのでこちらでも公開することにしました．悲しいけれど役に立つ，そんなスクリプトたちです．

全角殺し

全角で記入されてしまうキーボード上部の数字をNumpadに置き換えて，全部とにかく半角で入力されるようにするもの．

killing_full_caps

1::Numpad1
2::Numpad2
3::Numpad3
4::Numpad4
5::Numpad5
6::Numpad6
7::Numpad7
8::Numpad8
9::Numpad9
0::Numpad0
\::NumpadSub

ファーストスクロールベイビー

シフトを押しながらスクロールを回すと，10回分スクロールされるだけのスクリプト．しかし時々役に立つ．

fast_scroll_baby

+WheelDown::
    Send, {WheelDown 10}
    return

+WheelUp::
    Send, {WheelUp 10}
    return

一覧表示

AppsKeyを押すと展開中のプログラムをいっぺんに表示，続けて押すと順に選択していく．

view_all

AppsKey::
    If (A_PriorKey = "AppsKey")
        {
        Send, {Right}
        }
    else
        {
        Send, #{Tab}
        }
    return

登録YouTubeでBGM再生

あらかじめ登録したYouTubeのURLを流すだけのスクリプト．

YouTube_jukebox

!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キーが十字キーにかわる．エクセル入力に便利かもしれない．もう一度押すと解除される．

wasd_mode

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日)

駄スクリプト失礼しました．
もしなにか改造とか面白いものが見つかったらぜひコメントでおしえてください．
皆さんのスクリプトももっと見てみたいです．

では．