livedoor
google
mixiHSPからVBScriptのInputBoxを使う
2009.05.08 02:46
// 不等号がタグと認識されるのを回避するため全角文字に置き換えてます。
newcom objVBS,"ScriptControl": objVBS("Language")="VBScript"
objVBS-＞"AddCode" "Dim retstr: Function vbcmd(prompt,title,default): retstr=InputBox(prompt,title,default): End Function"
objVBS-＞"Run" "vbcmd","prompt","title","default"
comres retstr: objVBS-＞"Eval" "retstr"
delcom objVBS
dialog ""+Str(retstr)
stop
//[HSPのスクリプト内からVBScriptを実行させる] http://hspnext.com/hspkura/hspkura11.htm#contents29
//[HSP3掲示板 ＣＯＭについて] http://hsp.tv/play/pforum.php?mode=pastwch&num=13826
newcom objVBS,"ScriptControl": objVBS("Language")="VBScript"
objVBS-＞"AddCode" "Dim retstr: Function vbcmd(prompt,title,default): retstr=InputBox(prompt,title,default): End Function"
objVBS-＞"Run" "vbcmd","prompt","title","default"
comres retstr: objVBS-＞"Eval" "retstr"
delcom objVBS
dialog ""+Str(retstr)
stop
//[HSPのスクリプト内からVBScriptを実行させる] http://hspnext.com/hspkura/hspkura11.htm#contents29
//[HSP3掲示板 ＣＯＭについて] http://hsp.tv/play/pforum.php?mode=pastwch&num=13826
posted by qd_flare
http://quill.to/qd_flare/500faf3518