20.1.3 オブジェクトの作成方法

アプリケーションからOLEオブジェクトを作成するには、OLEクラス名を指定する方法と、ユーザ名やアイコン名などの動作情報を指定する方法があります。

■CreateObjectを使ったオブジェクトの作成

CreateObjectはOLEクラス名を指定することによって新規にオブジェクトを作成します。
CreateObjectの引数にはOLEクラス名” Wsmgrweb.Application”を指定します。
すでにOLEオブジェクトが起動されている場合でも新規にオブジェクトが作成されます。

例(Visual Basic):

Dim dspemu As Object
Set dspemu = CreateObject("Wsmgrweb.Application")

■GetObjectを使ったオブジェクトの作成

GetObjectはOLEクラス名にWSMGR for Webの動作情報を渡すことで、新規のオブジェクトを作成する方法と、すでに起動しているエミュレータのオブジェクトを取得する方法があります。
GetObjetの引数は以下の形式で指定します。

' OLEクラス名:ユーザ名＋パスワード＋起動アイコン名＋スコープ(“user”または”group”)＋WSMGR for Web起動用URL

例） (Visual Basic):

Dim dspemu As Object
Set dspemu = GetObject("Wsmgrweb.Application:=
             user1+password+session1+user+http://server01/wsmgrweb/")

■Visual Basic(VBA)での使用例

Visual Basicを使ってOLEオートメーションを呼び出す例を示します。
以下にCreatreObject、GetObjectでオブジェクトを取得して、ホストへlogon文字列を送信する例を示します。

例1（Visual Basic）:

' オブジェクトの取得 CreateObjectの場合
Dim dspemu As Object
Set dspemu = CreateObject("Wsmgrweb.Application")

' 起動
dspemu.Open("user1", "password", "session1", "user", "http://server01/wsmgrweb/")

' 接続
dspemu.Connect(1)

' 文字列を送る
dspemu.SendKeys("logon tss[ENTER]")
dspemu.SendKeys("logoff[ENTER]")

' 切断
dspemu.Disconnect

' 終了
dspemu.Close

set dspemu = Nothing

例2（Visual Basic）:

' オブジェクトの取得 GetObjectの場合
Dim dspemu As Object
Set dspemu = GetObject("Wsmgrweb.Application:user1+password+session1+user+http://server01/wsmgrweb/")

' 起動
dspemu.Open

' 接続
dspemu.Connect(1)

' 文字列を送る
dspemu.SendKeys("logon tss[ENTER]")
dspemu.SendKeys("logoff[ENTER]")

' 切断
dspemu.Disconnect

' 終了
dspemu.Close

set dspemu = Nothing