Windows PCで手軽にVBSプログラミングをはじめよー - 楓プログラミングスタジオたっきーBlog

こんばんわ、たかあきです。
今日は、VBScriptによるプログラミングをご紹介します。
先週プログラミング教室の生徒が自己流で、VBScriptを作って先生に見せてくれました。

まだスクラッチしか教えていなかったので、彼の意欲にスゴイと驚きました。
先生、VBScriptの経験がなかったので、生徒にインスパイアされ現在勉強中。

みなさん、VBScriptは、聞いたことありますか?
VBScriptはマイクロソフトによるVisual Basic 風のスクリプト言語です。
Microsoft Windows 上で動作させることができ、VBA(Visual Basic for Applications)ととても構文が似ています。

そのため、VBScriptを覚えることで、Excel VBAでマクロを組むことができるようになりますよ！
Excelでマクロ使いこなせたら、仕事が効率的になって、かっこいいーですよね！

今日は、その生徒が作った偽ウィルスに対抗して、秘密のパスワードを入力するまでパスワードを聞いてくるプログラムを作ってみましたー。
実際には…、無限ループも困るので10回パスワードを入力したら抜けるように作っています。ご安心を！
(秘密のパスワードはstrSecretpwにセットしている"password"の文字列です)

VBScriptによるプログラミングは、簡単です。
メモ帳でプログラムを作成して、ファイル名を".txt" ではなく、".vbs"に変更します。
できたらダブルクリックすれば実行できます。コンパイラも特別な開発環境も必要ありません。

Option Explicit

Dim intCount
Dim strSecretpw, strYourpw

strSecretpw = "password"
intCount = 0

Do
intCount = intCount + 1
strYourpw = InputBox("パスワードを入力してください",intCount)
If intCount = 10 Then
strYourpw = strSecretpw
End If
Loop While strYourpw <> strSecretpw