スクリプト投稿スレ

1 ：管理人 ★：04/08/12 21:53 ID:???

自作スクリプトの公開、AutoHotkey.ini晒しなどに使ってください。

大きなスクリプトはアップローダーに投稿してそのURLを貼って下さい。
http://lukewarm.s41.xrea.com/AutoHotkey/up/

101 ：unnamed.ahk：05/03/30 03:24 ID:0gYcAgmc

>>100
おぉ！これもAHKで出来るんだ。
4(8)方向にするにはPostMessageでWM_HSCROLLが必要かな…

102 ：unnamed.ahk：05/04/09 01:03 ID:???

clipboardallを試してみようと思い書いてみました。ばっちりファイルも書き戻しされますね
エクスプローラーにて、F2でリネームするとき拡張子を除いて選択します
もう一回押すと、拡張子のみ選択。もう一回押すと全部選択です
左クリックとエンターでカウンターがリセットされます。拡張子がいつも三文字ならシンプルにいけるのにな。

~F2::
ifwinactive ahk_class CabinetWClass
{
count+=1
if count=1
{
oldclip=%clipboardall%
send,^c
sleep,100
splitpath,clipboard, , , Extension
clipboard=%oldclip%
stringLen,Number,Extension
if Number=0
{
count=0
return
}
send,{end}{left %Number%}{left}+{home}
}
if count=2
send,{end}+{left %Number%}
if count=3
{
send,{end}+{home}
count=0
}
}
return

~Return::count=0

~Lbutton::count=0

103 ：unnamed.ahk：05/04/11 22:39 ID:3sWbWrfk

ローカル変数と関数実装のテストをかねて、
文字列に記載された数式を計算する関数を作ってみた。
ttp://lukewarm.s101.xrea.com/up/file/020.zip
数式の評価って結構めんどい。何とか動いてるけど大丈夫かな。

104 ：unnamed.ahk：05/04/17 12:43 ID:QlkU1QDI

オートスクロールスクリプト。上下だけでなく左右にも対応。
ttp://lukewarm.s101.xrea.com/up/file/021.zip

105 ：11=15：05/04/27 22:30 ID:???

投稿スレのほうで15が動かないとのレスがあったので
とりあえず今現在使ってるものを上げときます。
本当は色々と直したいとこあるんだけど、とりあえず1.0.25以降対応版ってことで。

タスクバーとウインドウが重なったら押し戻す+α 暫定版
ttp://lukewarm.s101.xrea.com/up/file/023.zip

106 ：unnamed.ahk：05/05/10 15:46 ID:???

ゲームパッドでマウス操作をするスクリプトです
アナログジョイスティック対応

settimer,getkey,10
return

getkey:
getkeystate,x,JoyX
getkeystate,y,JoyY
x-=50
y-=50
;======遊びの設定。勝手にカーソルが動くのを防止（アナログ用）
if y*y<2
y=0
if x*x<2
x=0
;======カーソルの移動スピード。大きくすると遅くなります
x:=x/5
y:=y/5

mousemove,%x%,%y%,0, R
return

joy1::
send,{Lbutton down}
keywait,joy1
send,{Lbutton up}
return

joy2::
send,{Rbutton down}
keywait,joy2
send,{Rbutton up}
return

esc::exitapp

107 ：unnamed.ahk：05/05/10 20:18 ID:???

.ahkの "Edit" に割付けられてるエディタを変更するスクリプト
コンテクストやタスクトレイメニューから EditScript を選んだ時
メモ帳で開かれるのがうざいので作ってみた。


RegRead, OldData, HKCR, AutoHotkeyScript\Shell\Edit\Command
MsgBox,36,AutoHotkey Scriot Editor Changer,現在ahkのEditに設定されている値`n`n %OldData% `n`n別のエディタを指定しますか？
IfMsgBox,No, ExitApp
SplitPath,OldData,,EditorDir
FileSelectFile,MyEditor,3,%EditorDir%,ahkを編集するエディタを選択,*.exe

RegWrite, REG_SZ, HKCR, AutoHotkeyScript\Shell\Edit\Command,,%MyEditor% `%1
RegRead, NewData, HKCR, AutoHotkeyScript\Shell\Edit\Command
MsgBox,64,AutoHotkey Scriot Editor Changer, %OldData% を`n`n %NewData% `n`n へ変更しました。

108 ：107：05/05/10 20:27 ID:FL0XegSM

ダイアログキャンセルの処理が抜けてた orz

RegRead, OldData, HKCR, AutoHotkeyScript\Shell\Edit\Command
MsgBox,36,AutoHotkey Scriot Editor Changer,現在ahkのEditに設定されている値`n`n %OldData% `n`n別のエディタを指定しますか？
IfMsgBox,No, ExitApp
SplitPath,OldData,,EditorDir
FileSelectFile,MyEditor,3,%EditorDir%,ahkを編集するエディタを選択,*.exe
IfNotExist, %MyEditor%, ExitApp

RegWrite, REG_SZ, HKCR, AutoHotkeyScript\Shell\Edit\Command,,%MyEditor% `%1
RegRead, NewData, HKCR, AutoHotkeyScript\Shell\Edit\Command
MsgBox,64,AutoHotkey Scriot Editor Changer, %OldData% を`n`n%NewData% `n`n へ変更しました。

109 ：11：05/05/11 20:13 ID:6/NbPVJU

>105 で上げた スクリプトを書き直しました。ぐちゃぐちゃのソースを書き直し、
#include元から呼び出して使いやすいようにしたつもりです。

タスクバーとウインドウが重なったら押し戻す 改
ttp://lukewarm.s101.xrea.com/up/file/026.zip

変更点とか
　・関数使えるようになったので実行部をFunctionに変更した。
　・設定をini / 起動オプションへ追い出した。
　・押戻し監視方向を上下左右それぞれ別々に指定可能にした
　・メニュー系のタイトルのないウィンドウを対象外に。
　・単体・組込み両対応、(単体起動時は非常駐動作も可)
　・NT/98系両対応
　・マルチモニタは横方向連結のみ対応

110 ：質問スレ102：05/05/18 01:44 ID:???

;--- MDI子ウィンドウのハンドル一覧を返す関数(改行区切り)
getMdiChildWhdList(hParent)
{
    wndList := GetControlWndList(hParent)
    Loop,Parse,wndList,`n
    {
        WinGet,ExStyle,ExStyle,ahk_id %A_LoopField%
        if (ExStyle & 0x40 = 0x40)     ;WS_EX_MDICHILD
            mdiChildList = %mdiChildList%`n%A_LoopField%
    }
    StringTrimLeft,mdiChildList,mdiChildList,1
    return mdiChildList
}
;--- ウィンドウ内のコントロールのハンドル一覧を返す
getControlWndList(hParent)
{
    hwndChildAfter = 0
    Loop
    {
        hwndChildAfter := DllCall("FindWindowEx","UInt",hParent,"Uint",hwndChildAfter,"Int",0,"Int",0,"UInt")
        ifEqual, hwndChildAfter,0, break
        hList = %hList%`n%hwndChildAfter%
        cList := GetControlWndList(hwndChildAfter)
        ifNotEqual,cList,, SetEnv,hList,%hList%`n%cList%
    }
    StringTrimLeft,hList,hList,1
    return hList
}

111 ：unnamed.ahk：05/05/18 08:39 ID:esLlrLQY

どうでもよさげだが一応つづき
取り出したハンドルは ahk_id でウィンドウ制御できる模様

#a::
    WinGet,hParent,ID,A
    cList := getMdiChildWhdList(hParent)
    List=
    Loop,Parse,cList,`n
    {
        WinGetClass,cls,ahk_id %A_LoopField%
        WinGetTitle,title,ahk_id %A_LoopField%
        List = %List%`n wnd:%A_LoopField% (%cls%) "%Title%"
    }
    msgbox, %List%
return

Jane再起動しても一晩待っても連投規制に引っかかるのでブラウザで会社から書込み
確かに107以降全部自分の書込みなんだけど、日を空けてもだめなのかな

112 ：unnamed.ahk：05/06/24 14:22 ID:???

投稿〜。

http://lukewarm.s101.xrea.com/up/file/030.zip

文字列を選択(反転)して Ctrl+BS で、その文字列をぐぐる。
選択してなかったら、キャレットより前の文字列を選択(Shift+Home)コピーしてぐぐる。
また、コピーした文字列がフォルダのパスならそのフォルダを開き、
webサイトのアドレスっぽかったらブラウザでひらく("ttp://"のみ"http://"に置き換える)

とかそんな感じのです。
問題点はCtrl+cをSendしたときに、クリップボードが更新されるまで
ウェイトをとる方法がわからなかったので、強制0.5秒待機してる点。

今のままだと微妙にストレスだわ、マシンスペックやらに影響されそうだわで･･･
どうすりゃいいんじゃろねぇ？（てか質問スレにいけってハナシか。スンマセン）

113 ：unnamed.ahk：05/06/29 00:08 ID:???

1.0.36のClipboard changeイベントを拾うか、
50msくらいの間隔でクリップボード内容が変化したかどうか
ﾁｪｷするとかかのぉ。
後者の場合は一定時間(1秒くらい？)で監視停止を組み込んだ方が
よさげだけど。

114 ：unnamed.ahk：05/09/23 20:02 ID:???

Janeの AAListを Jane以外のアプリで利用するスクリプト
ttp://lukewarm.s101.xrea.com/up/file/032.zip

　・Viewの階層メニュー形式に対応
　・AAをメニューから選んで貼付け可
　・メニュー選択時、Shift押下でエディタで指定行を開く機能あり
　・常駐/非常駐両対応
　・iniとか起動オプションで動作モードを指定。

ただのメニュー表示ですが、いちおう動作画面
ttp://f.hatena.ne.jp/images/fotolife/e/eamat/20050923/20050923195110.png

115 ：unnamed.ahk：05/10/13 04:49 ID:???

クリップボードの履歴を50件まで記憶。
ファイルのコピーも履歴が取れます。
右ダブルクリックにてメニュー表示。
作ってみて気がついたのですが、メニューの中に同じ項目はつくれませんね。
ということで番号を振って回避してます。

http://lukewarm.s101.xrea.com/up/file/033.zip

116 ：unnamed.ahk：06/01/31 20:31 ID:???

;借りますね。

InputBox, Sample , サンプル数, , , , 110, , , , ,

Loop, %Sample%
{
Samples = %Samples%%A_Index%`n
}

Origine = %Sample%
RestNum = %Sample%

Sort, Samples, Random

Num = 1

Luckyman = StartSampleNum `= %Sample%`r`n`r`n

Loop
{

If RestNum < 1
{
MsgBox, Less Than 0
ClipBoard = %Luckyman%
ExitApp
}

InputBox, Pick , 抽出数, Start = %Origine% / Rest = %RestNum%, , , 110, , , , ,

If Pick =
{
ClipBoard = %Luckyman%
ExitApp
}

Loop, Parse, Samples, `n
{
If A_Index > %Pick%
{
Rest = %Rest%%A_LoopField%`n
}
Else
{
Lucky = %Lucky%%A_LoopField%`n
}
}

Sort, Lucky

Luckyman = %Luckyman%-----`r`nPick%Num% / %Pick%`r`n%Lucky%-----`r`n

MSgBox, %Luckyman%

Samples = %Rest%

Lucky =
Rest =

EnvSub, RestNum, %Pick%

EnvAdd, Num, 1

}

117 ：unnamed.ahk：06/02/01 01:02 ID:???

http://lukewarm.s101.xrea.com/up/file/039.zip
コンソールプログラムをバックグラウンドで起動して標準入出力で対話

118 ：unnamed.ahk：06/02/01 03:48 ID:???

>>116
これって何するスクリプト？

119 ：unnamed.ahk：06/02/01 05:06 ID:???

そんなの聞く必要あるの?
この程度の簡単なものなら､見ればどういう動作するかはすぐにわかるんだから
自分にとって益があるなら使えばいいし､不要なら構わなければいいじゃん。
>>116を誰が何の用途に使おうとどうでもいいだろ。

120 ：unnamed.ahk：06/02/01 08:13 ID:???

いや別に興味ないけど。
ここ投稿スレだし不特定多数の人に使ってもらうのが前提で上げるとこだろ。
したら何するものなのかくらい書くべきじゃね？

内容見りゃわかるだろーとか、人の参考にならないオナニースクリプトなら
こんなとこに書きこむなと。

121 ：116：06/02/01 17:10 ID:???

配布終了した優秀フリーウェア 8
ttp://pc7.2ch.net/test/read.cgi/software/1116605364/686-
↑
ここ参照してくれろ
ナンカ妙な空気にしてｽﾏﾝ(´･ω･`)

122 ：unnamed.ahk：2006/09/20(水) 19:16:54

指定したクッキーを残して削除
適当なフォルダに、スクリプトファイルとkeepフォルダを作成。
クッキーが作成されるとバルーンメッセージが出て、クッキーがスクリプトのディレクトリにコピーされていきます。
必要なクッキーが作成されたら、keepフォルダに移動。スクリプト終了時にkeepフォルダにないクッキーが削除されます。
初めて使うときはクッキーが全て削除されますのでご注意下さい。バックアップ推奨。
どこでクッキーを食わされてるかわかってちょっと楽しかったり。
1/2
OnExit , Del
StringReplace, Dir,A_AppData,Application Data,Cookies
SetTimer,Check,1000
Return

Check:
Loop,%Dir%\*.txt
{
IfNotExist,keep/%A_LoopFileName%
{
IfNotExist, %A_LoopFileName%
TrayTip, , %A_LoopFileName%, , 16
FileCopy, %Dir%\%A_LoopFileName%, %A_LoopFileName%
}
}
return

123 ：unnamed.ahk：2006/09/20(水) 19:18:43

2/2 続き

Del:
Loop, %Dir%\*.txt
{
IfNotExist, keep/%A_LoopFileName%
FileDelete, %Dir%\%A_LoopFileName%
FileDelete, %A_LoopFileName%
}
ExitApp
Return

+Esc::ExitApp

124 ：Windows：2006/10/21(土) 12:23:47

Rundll32.exeが見つかりません。と表示された場合は、私に、メールを送ってください。
メールで、見つからなかったファイルを送ります。

125 ：unnamed.ahk：2008/02/19(火) 11:05:13

;VistaのExplorerでBackSpaceの挙動を従来風に
#IfWinActive, ahk_class CabinetWClass
BS::
ControlGetFocus, classNN
IfNotInString, classNN, Edit
Send, !{Up}
else
Send, {BS}
return

126 ：unnamed.ahk：2008/11/30(日) 22:52:18

すいませんIME関係のことを調べていて
ここにアップされていた029.zipの中のファイルを使いたいのですが
どうやら削除されてしまっているようで。
バージョンアップして他の番号になっていたりするのでしょうか？
ざっと過去ログ目を通したつもりですがそれらしいことが書いてなくて。

127 ：unnamed.ahk：2008/12/02(火) 15:20:24

2ちゃんのAHKスレでしか報告してなかったですが
IME.AHKの更新版はあぷろだの088 or 099に上げ直してます。

流行らせるあぷろだ、TOPからリンク消えちゃってますが
まだ使えるので時々利用させてもらってます。
ttp://lukewarm.s101.xrea.com/up/

ついでに .chm版リファレンス
（7500kb超サイズなんで ここのあぷろだには入りませんでした。）
ttp://www6.atwiki.jp/eamat/pub/AHK/AhkHelp.zip