vbslib

(for Internet Explorer)

テストが失敗したことを、ユーザーやテストスクリプトに知らせて、プログラムを終了します。
エラーが発生したときと同じ動きをします。つまり、Fail の後は実行しません。

→ T_SomeTests.vbs # T_TestReport

テストが実行できる状況ではないことを、テストスクリプトに知らせて、プログラムを終了します。
エラーが発生したときと同じ動きをします。つまり、Skip の後は実行しないで、次のテストを実行します。

→ T_SomeTests.vbs # T_TestReport

デバッグなどの理由で、テストの一部を一時的にスキップしたことを、テストスクリプトに
知らせます。 Skipped を呼んだテスト項目は、Pass を呼び出しても Fail します。
このときのエラーメッセージは、次のようになります。

Pass But Skipped. Cut calling "Skipped" function.

Sub ManualTest( TestSymbol as string )

テストが手動テストであることを、テストスクリプトに知らせます。

ManualTest tests.Symbol

手動テストは最低限にしてください。

ManualTest "T_Sample1"

Sub Assert( Condition as boolean )

条件が満たされているかをチェックします。

満たされていなければ、Fail を呼び出します。
If not Condition Then Fail とほぼ同じですが（違いは下記）、正しい条件文を記述する
ことになるので、ソースの可読性があがります。
また、If 文を使わないので、マルチステートメント（１行に複数の文）が記述できます。
g_debug の設定にかかわらず常にチェックします。

Public Property Let VarA(x) : Assert x >= 0 : VarA = x : End Property

If Condition と If not Condition は、完全に反対の関係ではありません。
たとえば、If 4 と If not 4 は、どちらも真です。
完全に反対の関係は次のように複数行になります。
If Condition Then
Else
***
End If
よって、正しい条件文を記述することは If Then Fail より Assert の方が簡単になります。

テストが失敗したことを、ユーザーやテストスクリプトに知らせます。

新規にエラーを発生させます。

Sub AssertExist( Path as string )

ファイルまたはフォルダが存在するかどうかをチェックします。

AssertExist "settings.txt"

→ vbslib.vbs# [AssertExist]

存在しなければ、エラーメッセージの中にファイルのパスが含まれます。
このため、デバッガを起動しなくてもユーザーが対応できる可能性が高まります。
エラーコードは、E_PathNotFound になります。
逆に、AssertExist では、存在するときにエラーにすることはできません。

エラーメッセージのサンプル

→ T_File.vbs # [T_AssertExist]

Test.vbs で共通のファイルの存在チェック

Sub AssertFC( Path1 as string, Path2 as string )

2つのテキストファイルを比較して、異なれば diff ツールを開きます。

テキストファイルの文字コードが自動判定できるなら、文字コードが異なっても
テキストが同じであれば、同じと判定します。

文字コードが異なれば必ず異なると判定するときは、

Path2 のファイルの内容に、% を使った文字列変換関数を使うことができます。

を使ってください。

→ T_Value.vbs # [T_AssertValue]

テキストファイルの中の相対パスを絶対パスに変換します。

Visual Studio のソリューションをビルドします

Visual Studio のソリューションをクリーンします

Visual Studio のソリューションをリビルドします

→ T_devenv フォルダ

Visual Studio 2005～2010 を操作します。

Sub devenv_rebuild( SlnPath as string, ConfigName as string )

Dim ds_:Set ds_= new CurDirStack
pushd "src"
devenv_rebuild "sample.sln", "Release"
popd

→ コマンドライン・コンパイル

モジュール・シンボル：

devenv_rebuild "src\sample_%devenv_ver_name%.sln", "Debug"

Visual Studio のソリューションをリビルドします。

ソリューション・ファイルのパス(.sln)

設定名（"Release"など）

ソリューション・ファイルに書かれたバージョン情報を元に、
コンパイラのバージョンを自動的に選択します。

ビルドに失敗したら、E_BuildFail エラーになります。

devenv_rebuild "sample.sln", "Release|x64"

Release|x64 が使えるかどうかは、.sln ファイルをテキストファイル
で開いて、そのコンフィグがあるかどうかで判断してください。

→ T_devenv.vbs # [T_devenv_build]

→ T_devenv.vbs # [T_devenv_build_MultiFolder]

Sub devenv_build( SlnPath as string, ConfigName as string )

Visual Studio のソリューションをビルドします。

Dim ds_:Set ds_= new CurDirStack
pushd "src"
devenv_clean "sample.sln"
popd

Sub devenv_clean( SlnPath as string )

Visual Studio のソリューションをクリーンします。

ソリューション・ファイルのパス(.sln)

→ T_devenv.vbs # [T_devenv_build_MultiFolder]

Sub devenv_upgrade( SlnPath as string, Opt as Empty )

Dim ds_:Set ds_= new CurDirStack
pushd "src"
devenv_upgrade "sample.sln", Empty
popd

Visual Studio のソリューション・ファイルを新しい Visual Studio 用に変換します。

古い Visual Studio のソリューション・ファイルのパス(.sln)

新しいバージョンとは、現在の PC にインストールされている Visual Studio のうち、
最も新しいバージョンのことです。

Empty または、c.MakeBackup

Opt に、c.MakeBackup を指定すると、変換前のファイルのバックアップを作成します。
ただし、c は、get_VisualStudioConsts の返り値です。

Function get_VisualStudioConsts() as Object

VisualStudio.vbs で使う定数の集合。

Dim c : Set c = get_VisualStudioConsts()
'// c.MakeBackup

devenv_rebuild "src\sample_%devenv_ver_name%.sln", "Release"

devenv_rebuild, devenv_clean などに指定する .sln ファイルのパスには、
%devenv_ver_name% を指定することができます。

インストールされている Visual Studio に応じて、次の文字列に変換されます。

Visual Studio 2010 … "vs2010"
Visual Studio 2008 … "vs2008"
Visual Studio 2005 … "vs2005"

複数の Visual Studio がインストールされているときは、デフォルトでは最新のものが設定されますが、
PC の環境変数や、SetVar で devenv_ver_name を設定することで、バージョンを選択できます。

get_DevEnvObj
echo "Default: " + GetVar( "%devenv_ver_name%" )

GetVar や env で、devenv_ver_name 環境変数の値を取得するときは、その前に
get_DevEnvObj を実行してください。

→ devenv_ver_name 環境変数

Function IsVisualStudioInstalled( VersionNum as integer, IsExpress as boolean ) as boolean

指定したバージョンの Visual Studio がインストールされているかどうかを返します。

バージョン番号

Express 版かどうか

インストールされているかどうか

Function GetVisualStudioVersionNum( VersionString as string ) as integer

Visual Studio のバージョン文字列（例："vs2008"）を数値（例：2008）に変換します。

Sub GetSlnFileVersion( SlnPath as string, out_VersionNum as integer,
out_IsExpress as boolean )

指定のソリューション・ファイルが使える Visual Studio のバージョンを返します。

Visual Studio のソリューション・ファイルのパス(.sln)

（出力）バージョン番号。 2012, 2010, 2008, 2005

（出力） Express 版かどうか

Visual Studio の *.sln ファイルを読み込みます。

→ T_devenv.vbs # [T_devenv_SlnLoad]

にアクセスしてください。

Sub VisualStudioSlnClass::Load( SlnFilePath as string )

Visual Studio の *.sln ファイルを読み込みます。

*.sln ファイルのパス

Dim VisualStudioSlnClass::Projects as ArrayClass of VisualStudioSlnProjectClass

ソリューションの中にあるプロジェクトの一覧。

してからアクセスしてください。

Class VisualStudioSlnProjectClass
Public ProjectName '// as string
Public RelativePath '// as string
Public ProjectGuid '// as string
End Class

Sub DeleteProjectInVisualStudioSln( SlnFilePath as string, ProjectNameh as string )

Visual Studio の *.sln ファイルの中にある１つのプロジェクトを削除します。

*.sln ファイルのパス

削除するプロジェクトの名前

→ T_devenv.vbs # [T_devenv_DeleteProjectsInSln]

プロジェクトの名前は、

から参照できます。

→ レジストリ (VBS)

レジストリのサブキーを列挙します。

指定のレジストリ・キーに入っている値を列挙します。

レジストリ・キーの値を .reg ファイルに出力します。

ファイルをダブルクリックしたときに開くプログラムを設定します。

ファイルの右クリック・メニューの１つの項目を追加します。

レジストリにライトします。

指定のレジストリ・キーか値が存在するかどうかを判定します。

PC の電源を切ります。

レジストリからリードします。

Sub Shutdown( Operation as string, CountDownTimeSec as integer )

PC の電源を切ります。

電源の切り方（下記）

電源を切るまでの時間（秒）

SetSuspendState フォルダ

RunProg "cscript main_child.vbs", ""
Shutdown Empty, Empty

Function Setting_getShutdownOperation()
Setting_getShutdownOperation = "PowerOff"
End Function

Function Setting_getShutdownCountDownTimeSec()
Setting_getShutdownCountDownTimeSec = 60
End Function

main_child が終了したらデフォルト設定で電源を切る。

30秒後にスリープする

Shutdown "Sleep", 30

デフォルト設定は、

に下記の関数の定義によって設定します。

関数定義がないときは、"PowerOff", 60 になります。

Shutdown 関数を呼び出すと、カウントダウンを始め、下記のウィンドウが開きます。
ただし、CountDownTimeSec = 0 のときは開きません。

次のいずれかの文字列を指定できます。

"PowerOff", "Reboot", "Hibernate", "Sleep", "Standby"

[OK] を押せば、すぐに電源を切ります。
[キャンセル]を押すか、VBScript の
コンソールを閉じると、電源を切らなく
なります。

→ T_Shutdown_Manually.vbs

スリープするときは、scriptlib\vbslib_XXX\SetSuspendState フォルダが必要です。
Sleep と Standby は同じです。

それぞれの OS のバージョンで行うこと

エラーが発生しても、電源を切るには、

RunProg などで、メイン処理を行う子プロセス

を起動して、子プロセスが終了する（RunProg から戻る）まで待ってから、Shutdown
を実行してください。こうすれば、Ctrl-C や閉じるボタンが押されても電源が切れます。

通常 60秒後にシャットダウンします。

音楽を鳴らしながら、60秒待ち、スリープする

g_CommandPrompt = 1 '// この行だけ SetupVbslibParameters に記述

Sub main()
Play "******.mp3"

Dim e ' as Err2
If TryStart(e) Then On Error Resume Next
Shutdown "Sleep", 60
If TryEnd Then On Error GoTo 0
e.Clear '// ユーザ・キャンセルしてもウィンドウを閉じるため
End Sub

このスクリプトを、Windows のタスクに登録しておくと、１時間ごとにスリープに入ることを
試みるようなことができます。

Windows 7 では、地デジの予約録画などによる、

Shutdown "Sleep" してもスリープ状態になりません。

wakeonlan <電源を入れるPCのMACアドレス>

まず、電源を入れる PC の準備をします。

/usr/bin/net rpc -S <マシン名> -U <アカウント名>%<パスワード> shutdown -t 10

<アカウント名> は、<ユーザ名> または <ドメイン名>\\<ユーザ名>

電源を落とすには、リモート・デスクトップ経由で、コマンドプロンプトから

を実行するか、無停電 Linux サーバー

から下記のコマンドを入力してください。

Windows XP の場合、
[ スタート > マイコンピューター ] を右クリック [ プロパティ > ハードウェア > デバイス
マネージャ ] から、ネットワークアダプタの子ノードの中から該当するアダプタを
右クリック [ プロパティ ]、[ 詳細設定 > Wake Up Capabilities ] を [ Magic Packet ]、
[ 電源の管理 > このデバイスで、コンピュータのスタンバイ状態を解除できるように
する ] にチェックします。
PC の電源を切ってから、再度電源を入れてすぐに BIOS の設定画面を開き（機種
依存です。例：F2を押す）、Wake On LAN を有効にします（例：Power > Automatic
Power On > Wake on LAN = Primary）

『無停電の Linux サーバー』にログインして、wakeonlan コマンドを実行します。
なお、MAC アドレスは、コマンドプロンプトから ipconfig /all を実行すると分かります。

./wakeonlan 11:22:33:44:55:66

を実行するか、

IsScreenSaverRunning

Function IsScreenSaverRunning() as boolean

スクリーンセーバーが動いているかどうかを返します。

→ T_ScreenSaver_Manually.vbs # [T_IsScreenSaverRunning]

Sub RegEnumKeys( Path as string, out_Keys as array of string, Opt as integer )

レジストリのサブキーを列挙します。

レジストリのキーのパス