vbsの作法

概要

vbsの作法を調べてみた。
ConnectObjectで、イベントを捕らえてみた。

写真

サンプルコード

Dim App6
Dim Appflg
Set App6 = Createobject("OHIcompo6.srv")
WScript.ConnectObject App6, "App6_"
App6.text = "hello"
Sub App6_exit()
    Appflg = 2
End Sub
Sub App6_ok()
    Msgbox App6.text
End Sub
Do
    WScript.Sleep(100)
    App6.ping
Loop until Appflg = 2
Set App6 = Nothing

以上。