Windows Scripting Host
いまちょっとWSHで自動化システムを作っていました。
WSHはウィンドウズならばほぼ全てに最初からついている
簡易プログラム作成ツールみたいなものでウィンドウズのパソコンを
持っている方なら誰でもプログラムを作ることができます。
例えばデスクトップに「test.vbs」ファイルを作成し、
そのファイルの中に「WScript.Echo "go"」と書き込んで上書きします。
(※間違えて.txtファイルを作ってしまったときは保存時に「"test.vbs"」
と""で囲んで下さい。)
すると

というようなファイルができますのでクリックします。
結果

このようなメセージが表示されます。
他にも
---------------------------------
Dim Shell, notepad
Set Shell = CreateObject("WScript.Shell")
Set notepad = Shell.Exec ("Notepad.exe")
Shell.AppActivate("Notepad.exe")
WScript.sleep(2000)
Shell.SendKeys "^a{DEL}"
Shell.SendKeys "konbanha"
---------------------------------
で、メモ帳を起動した後文字を入力したり
---------------------------------
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://google.co.jp/"
---------------------------------
で、インターネットエクスプローラーを起動後にグーグルにアクセスしたり
できます。
もっと色々複雑なことができますが、コンピューター関係の仕事でない限りは
あまり使い道がないのかもしれません。
でもプログラムの入門としては面白いかもしれませんね。
WSHはウィンドウズならばほぼ全てに最初からついている
簡易プログラム作成ツールみたいなものでウィンドウズのパソコンを
持っている方なら誰でもプログラムを作ることができます。
例えばデスクトップに「test.vbs」ファイルを作成し、
そのファイルの中に「WScript.Echo "go"」と書き込んで上書きします。
(※間違えて.txtファイルを作ってしまったときは保存時に「"test.vbs"」
と""で囲んで下さい。)
すると

というようなファイルができますのでクリックします。
結果

このようなメセージが表示されます。
他にも
---------------------------------
Dim Shell, notepad
Set Shell = CreateObject("WScript.Shell")
Set notepad = Shell.Exec ("Notepad.exe")
Shell.AppActivate("Notepad.exe")
WScript.sleep(2000)
Shell.SendKeys "^a{DEL}"
Shell.SendKeys "konbanha"
---------------------------------
で、メモ帳を起動した後文字を入力したり
---------------------------------
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://google.co.jp/"
---------------------------------
で、インターネットエクスプローラーを起動後にグーグルにアクセスしたり
できます。
もっと色々複雑なことができますが、コンピューター関係の仕事でない限りは
あまり使い道がないのかもしれません。
でもプログラムの入門としては面白いかもしれませんね。