HSPTV!掲示板

こんばんは。
今、プロンプト（アドレスバーに「JavaScript:void(prompt("",""))」と打ち込むと出るやつ）
を表示したいと思い、調べています。
Windows APIで実現できないかと思い、MessageBox関数を調べてみましたが、
さすがに違うようでした。どうすれば表示できるでしょうか。
お願いします。

WindowオブジェクトにexecScriptという任意の文字列をスクリプトとして実行させる
メソッド(eval?)があるようです。

	axobj ie, "Shell.Explorer.2", 0, 0
	ie->"Navigate" "about:blank"
	pDoc = ie("Document")
	parntWin = pDoc("parentWindow")
	parntWin->"execScript" "alert();"
	stop

上記のサンプルの動作保証はしませんが。

すみません。質問の仕方が悪かったみたいです。
IEのスクリプトを実行したいのではなく、
プログラム本体でプロンプトを表示したいということです。

>プログラム本体でプロンプトを表示したいということです。
それだと、自分でwindowから作らないといけないと思います。

*prompt
	moji2=""
	;ウィンドウを作る
	screen 1,300,100,4
	;文字表示
	pos 10,10
	font "",12
	mes moji
	;オブジェクトのサイズ
	objsize 100
	;入力
	pos 10,24
	input moji2,250,20
	;OK,キャンセルを作る。
	pos 10,50
	button "OK(&O)"
	pos 110,50
	button "CANSEL(&C)",
	stop

原型までをちょっと作ってみました。あとはがんばってください。

> IEのスクリプトを実行したいのではなく、
> プログラム本体でプロンプトを表示したいということです。

えっと、JavaScript(JScript)のpromptならこれでできると思います。

	axobj ie, "Shell.Explorer.2", 0, 0
	ie->"Navigate" "about:blank"
	pDoc = ie("Document")
	parntWin = pDoc("parentWindow")
	parntWin->"execScript" "prompt('メッセージ', '入力文字');"
	stop

ただ、値の取得とかどうするんでしょう。(^^ゞ
あれはコモンダイアログではなくIEに内蔵されているダイアログリソースだと思うので
探してみたのですがダイアログリソースの入っているDLLは見つかりませんでした。

皆さん、ありがとうございます。
プログラム本体だけでやるには、やはり原型から作るしかないんですね。
ということで、関数化してみました。どうでしょうか。
一応、期待した動作通りに動いたので、解決にしておきます。

#module
#define global ctype prompt(%1,%2=0) _prompt(%1,%2)
#defcfunc _prompt str message,int strmode,local mpos,local mid	;prompt(p1[,p2])	p1:表示するメッセージメッセージ	p2:モード（０なら数値、１なら文字列、省略：０）
	mysel=0		;mysel 0なら未選択、1ならＯＫ、２ならＣＡＮＳＥＬ
	mid=ginfo(2)	;現在アクティブのウィンドウＩＤ（後で元に戻すため）
	screen 26,400,150
	if strmode:myvar=""
	pos 10,10
	color
	mes message
	pos 10,ginfo(23)+10
	objsize 300
	input myvar
	mpos = ginfo(23)+10
	pos 10,mpos
	objsize 100
	button gosub "OK(&O)",*_prompt_ok
	pos 120,mpos
	button gosub "CANSEL(&C)",*_prompt_cansel
	repeat
		gsel 26,1
		wait 5
		if mysel{
			mref stt,64
			if mysel=1:stt=0
			if mysel=2:stt=1
			break
		}
	loop
	gsel 26,-1
	if mid>0:gsel mid,1
	return str(myvar)

*_prompt_ok
	mysel=1
	return
*_prompt_cansel
	mysel=2
	return
#global