HSPTV!掲示板

初めまして。kn24です。
ダイアログボックスの「はい」「いいえ」のボタンを2つから3つに増やす方法や、
ボタン名を変更する方法がわからないので誰かアドバイスなどをください。

>ダイアログボックスの「はい」「いいえ」のボタンを2つから3つに増やす方法
http://hspnext.com/hspkura/hspkura06.htm#contents06を参照
>ボタン名を変更する方法がわからないので誰かアドバイスなどをください。
Windowsの機能を使っているのでボタン表記の変更は無理

自分で小さいスクリーン作ってonkey命令とか使って消せないようにすればいいと思う。（初心者の俺が
言えることじゃないが）

GOMEKIT!さん、ありがとうございます。
>ダイアログボックスの「はい」「いいえ」のボタンを2つから3つに増やす方法
http://hspnext.com/hspkura/hspkura06.htm#contents06を参照
のコードを実行してみたのですが、制限時間なのか、数秒後に消えてしまい役に立ちません。
どのようにすればよいのか教えてもらえると幸いです。

本来はそのウェブページの管理者に聞くのが一番ですよ？
パッと見で末恐ろしいコードが書かれてますが・・・。

呼ばれているのはWScript.ShellのPopupメソッドですので、それに関する情報を調べるとこんなのがでるはず。
http://msdn.microsoft.com/ja-jp/library/cc364428.aspx
マイクロソフトのページですね。

この解説の項を見ると、特定の値を送ってやれば、
メッセージ ボックスはユーザーがウィンドウを閉じるまでずっと表示されるように書いてあります。

WScript.ShellのPopupメソッドはダイアログがでてる時点で成功しているはずです。
送る値は思い描いている動作に見合ったものになっていますか？

>コードを実行してみたのですが、制限時間なのか、数秒後に消えてしまい役に立ちません。
http://chokuto.ifdef.jp/advanced/msgbox.htmlのコードでも出来る。
因みにこのコードは数秒後には消えない。

掘木さん、ありがとうございます。
さっそくやってみたのですが、エラーが発生してしまい、使えません。
どのようにしたらよいのか教えてもらえると幸いです。

・・・一体どうやったらエラーが出でるんだろう。

>>制限時間なのか、数秒後に消えてしまい役に立ちません。
NO.63686にて参照したコードの部分で実際にダイアログを出す部分である箇所にて

ret = WshShell("Popup",p1,p2,p3,p4)

p2の部分の値はいくらですか？
ここに指定する値は、タイムアウトまでの時間(秒)です。0を入れた場合無制限になると書いてある。
サンプルのソースではnStyle、つまり2になっています。だから2秒後に消える。

・・・一体何を説明したらいいのだ。

堀木さん、すみません見落としていました。
ダイアログボックスの「はい」「いいえ」のボタンを2つから3つに増やす方法はわかりましたが、
何度もすみませんがボタン名を変更する方法ってどうやるのでしょうか？
また、ボタンを４つに増やす方法ありますか？

無茶言ってすみません。

>ダイアログボックスの「はい」「いいえ」のボタンを2つから3つに増やす方法はわかりましたが、
>何度もすみませんがボタン名を変更する方法ってどうやるのでしょうか？
>また、ボタンを４つに増やす方法ありますか？
それは無茶です。少なくともWScript.ShellのPopupメソッドを使う限りかなり厳しいかと。
(hspで出せるdialogも実体はコイツだろうし・・・。)
なお、NO.63689のGOMEKIT!さんの方法も、呼び方が異なるだけで元は同じだと思われます。

結局のところ、MDN26さんの回答そのまま、ダイアログボックスもどきを自作した方が早いです。
(kn24が浮かべる「ダイアログボックス」ってどんななんだろう。４択？横に長いってこと・・・？)

さっき書いた奴ミスりました。すみません。　「onkey命令とか使って〜」は「onexit命令とか使って〜」でした。

ボタンを4つにする方法は聞いたことがありません。
モーダルダイアログ(?)だったかを設置するのが良いでしょう。
ボタンの文字列変更については無理やりできました。

// 注意：システム言語が日本語の環境でのみ動作します。
	#uselib "user32.dll"
		#cfunc GetWindowThreadProcessId "GetWindowThreadProcessId" int, int
		#func FindWindowEx "FindWindowExA" sptr, sptr, sptr, sptr
		#func SendMessage "SendMessageA" int, int, int, int
		#func SetTimer "SetTimer" int, int, int, int
		#func KillTimer "KillTimer" int, int
	#define WM_TIMER $00000113
	#define WM_SETTEXT $0000000C
	BTN_YES = "Hi."
	BTN_NO = "Bye."
	
	oncmd gosub *ON_TIMER, WM_TIMER
	
	SetTimer hwnd, 1, 1, 0
	dialog "文字列を変更する。", 2, "HSP"
	
	dialog "元の状態に戻る。", 2, "HSP"
	
	SetTimer hwnd, 1, 1, 0
	dialog "もう一回変更するにはSetTimerを。", 3, "HSP"
	
stop

/*
	仕組み
	まずクラス名やプロセスIDなどから自分の持つダイアログを調べます。
	そして発見次第変更を適応します。
	ボタンを調べる際に、そのボタンのタイトルを使用しているので日本語
	環境でのみ使用可能となります。
*/
*ON_TIMER
	ret1_ = GetWindowThreadProcessId( hwnd, 0 )
	hwnd_ = 0
	repeat
		FindWindowEx 0, hwnd_, "#32770", 0
		hwnd_ = stat
		if hwnd_ = 0 { break }
		if GetWindowThreadProcessId( hwnd_, 0) = ret1_ {
			; はい　について変更
			FindWindowEx hwnd_, 0, "Button", "はい(&Y)"
			SendMessage stat, WM_SETTEXT, strlen(BTN_YES), varptr(BTN_YES)
			; いいえ　について変更
			FindWindowEx hwnd_, 0, "Button", "いいえ(&N)"
			SendMessage stat, WM_SETTEXT, strlen(BTN_NO), varptr(BTN_NO)
			; 今回のみ変更させたい
			KillTimer hwnd, 1
			break
		}
	loop
return

もっと簡単で確実な方法があるんだろうなあ。