WScriptオブジェクト (Wscript)
[概要]
WSHが提供する様々な機能を呼び出すためのオブジェクトです。FileSystemObjectと並んで重要なオブジェクトの一つといえるでしょう。
[機能を提供するファイル]
Wscript.exe
Windows Based Scripting Host
[呼び出し方]
Wscript
もしくは
Wscript.Application
[主なメソッド]
Dim IE Set IE = WScript.CreateObject("InternetExplorer.Application", "Event_") 'IEというオブジェクト変数にInternetExplorerのApplicationクラスのオブジェクトを代入。 'プレフィックスは"Event_"を指定。 IE.Visible = True 'IEを起動。 IE.Navigate ("file:///c:/") 'C:\に移動。 Sub Event_DocumentComplete(pDisp, URL) '「ページが表示されました」と表示されたときに呼び出されるイベント WScript.Echo URL '現在のURLを表示 End Sub
[主なプロパティ]
'まず、標準出力(DOS窓)に説明を書き込みます。 'ただ、WScript.StdOut.Writeの代わりにWScript.Echoを使った方がいいです。 WScript.StdOut.Write "任意の文字を入力してください。改行はEnterです。" & vbCrLf & _ "入力を終わるときはCtrl+Zを押します。" & vbCrLf & vbCrLf Set tsi=WScript.StdIn '標準入力のTextStreamオブジェクトをtsiというオブジェクト変数に入れる。 str=tsi.ReadAll '標準入力の内容(=ユーザーが入力した文字列)をstrという変数に入れる。 line=tsi.Line '標準入力の現在の行数をlineという変数に入れる。 tsi.Close 'TextStreamオブジェクトを閉じる WScript.Sleep 100 'ウェイトを0.1秒入れる。これを省略すると、次の表示がとぎれたりする… Set tso=WScript.StdOut tso.WriteBlankLines 2 '2行空行を挿入 tso.WriteLine "あなたが入力したのは下の文章です。" & " Lines=" & line '標準出力に一行書き込む tso.WriteBlankLines 1 tso.WriteLine str '先ほど入力した文章を表示 tso.WriteBlankLines 1 tso.WriteLine "終了するにはEnterを押してください…" tso.Close str=WScript.StdIn.ReadLine '標準出力を読み、↑の表示がされないまま終了するのを防ぐ。
[オブジェクト]