■プロフィール

mimizuno

Author:mimizuno

■最近の記事
■最近のコメント
■最近のトラックバック
■月別アーカイブ
■カテゴリー
■ブロとも申請フォーム
■ブログ内検索

■RSSフィード
■リンク
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


スポンサー広告 | --:--:--
UWSCからVBScriptやJScriptを実行
とりあえずメモとして。
WindowsScriptControlを使う。XPなら標準で入っている模様。
なかったらここからインストール出来る。

CreateOLEObjにはMSScriptControl.ScriptControlもしくはScriptControlを指定する。


dim WSC = CreateOLEObj("ScriptControl")
textblock Code
Function Test(code)
msgbox(code)
End Function
endtextblock

WSC.Language = "VBScript"
WSC.AddCode(Code)
WSC.Run("Test", "DialogText")

WSC.Run("Test", "DialogText")の代わりに
WSC.CodeObject.Test("DialogText")も使える。


スポンサーサイト
UWSC | 19:55:53 | Trackback(0) | Comments(0)

FC2Ad

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。