if(句柄==0)
句柄=窗口获取自我句柄()
end
var strProgram="Function MsgboxTip(Text,TextStyle,TextTitle): MsgboxTip = MsgBox(Text, TextStyle, TextTitle): End Function"
var sc = com("ScriptControl")
sc.language = "VBScript"
sc.SitehWnd=句柄
sc.addcode(strProgram)
返回 sc.run("MsgboxTip",文本,提示类型,标题)
end