HSPTV!掲示板

スタートメニューが開いているかどうかHSPで調べる方法はありませんか？
もしくは強制的にスタートメニューを閉じる方法はありませんか？
（明日の文化祭に間に合わせたいので）迅速な回答お待ちしております。

スタートメニューが開いているかどうか調べる方法です。
ウィンドウやボタンなど、基本的にハンドルで管理されています。
それを見つけてから、ハンドルを用いて色々操作したりします。

#include "user32.as"

FindWindow "DV2ControlHost", 0
startmenu = stat

repeat
	wait 10
	color 255,255,255
	boxf
	color
	pos 0,0
	IsWindowVisible startmenu
	if(stat==0) {
		mes "開いていません。"
	}else {
		mes "開いています。"
	}
loop

なたでさんのサンプルが私の環境で動かなかったので、別の方法でやってみました。
スタートメニューの開閉を１秒おきにします。
メッセージはSpy++で捕まえたものをそのまま張り付けてあります。

#include "user32.as"

#define WM_SYSCOMMAND 0x0112
#define WM_USER 0x0400

	FindWindow "shell_traywnd", 0
	hTraywnd = stat

	repeat
		// 開く
		sendmsg hTraywnd, WM_SYSCOMMAND, 0xF130
	
		wait 100	// １秒待つ
	
		// 閉じる
		sendmsg hTraywnd, WM_USER+12,0,0

		wait 100	// １秒待つ
	loop

「スタートメニュー　クラス」でググった結果、「BaseBar」というのが見つかったので、
それをなたでさんのスクリに入れてみました。

#include "user32.as"

FindWindow "BaseBar", 0
startmenu = stat

repeat
	wait 10
	color 255,255,255
	boxf
	color
	pos 0,0
	IsWindowVisible startmenu
	if(stat==0) {
		mes "開いていません。"
	}else {
		mes "開いています。"
	}
loop

これで私の環境では動きました。

あたしの環境では
なたでさんとinoviaさんのが動作しましたが、
Cookiesさんのは動作しませんでした。

Windows7 Home Premium SP1, HSP3.3RC1

そうですか。
私はWinVistaなんですよ。
多分スタートメニューのクラス名が変わってるんですね。
OSごとに分岐するしかないのかな。

私はinoviaさんのは動きましたが、なたでさんのは動きませんでした。

"Shell_TrayWnd"はタスクバーのクラス名なんですね。
調べたところ、Win2000では"BaseBar"、XPは"DV2ControlHost"だそうで。
Vistaは2000側なんですかね。。

その二つに分かれているようです。
XPと7は"DV2ControlHost"、
Vista,2000,Me,95のIE4シェル統合,98などは"BaseBar"だそうで。
（95のIE4なしは、ただのポップアップメニューだそうです。）
http://homepage1.nifty.com/kazubon/progdoc/tclock/taskbarhistory.html

両方取得してみて、0でないほうを採用する方法がいいのかな。

repeat

IsWindowVisible startmenu
if stat!0 {
	gsel 0,2
	gsel 0,1
	IsWindowVisible startmenu
	if stat!0 : sendmsg hwnd, $112, $F130 : gsel 0,2 : gsel 0,1
}
await 1
loop

上のプログラムで強制的にスタートボタンを消せました
参考になるプログラムありがとうございました。