|
kawataです、おはようございます。
JuJuさん、ありがとうございました。
Sub nomlock_onoff()
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
Set WshShell = Nothing
End Sub
これでNumLockのon/offの切替が出来るようになりました。
(教えていただいたURLからの情報です)
いろいろWshのサイトを検索して調べてみました。
このWshも習得したほうがいいですね、ひとつ気合入れて(^^;。
頑張ってみます、よろしくお願いします。
※ただし、現在の仕様は、上のnomlock_onoffを、一連のsendkeys
を走らせる前に実行して強制的にoffにしてます。で、最後に、
もういとど走らせて復活・・・・という、これも情けないですけど。
nomlock_onoffの状態を取得する方法がわからなかったので(^^;。
とりあえずは望む動作をしております。
ありがとうございました。
また、いい情報ありましたら、よろしくお願いします。
|
|