タイピングスピード

っていう話を会社のスーパープログラマーとしていたら、
0.2時間くらいで作ってくれたよ！

http://d.hatena.ne.jp/Hamachiya2/20070323/function

おれはvbscriptで0.1時間で作れた！！

↓腕に覚えのある方はチャレンジ！
functionタイピング

0.019出た

ソース公開

Dim objWshShell

Set objWshShell = CreateObject("WScript.Shell")
objWshShell.AppActivate "function - Mozilla Firefox"
objWshShell.SendKeys "f"
objWshShell.SendKeys "u"
objWshShell.SendKeys "n"
objWshShell.SendKeys "c"
objWshShell.SendKeys "t"
objWshShell.SendKeys "i"
objWshShell.SendKeys "o"
objWshShell.SendKeys "n"

ABCの方は0.093