質問: findwindow(vbnullstring, "タイトル") call sendmessage(h, 0, 0, "alt+{f4}") end sub findwindowでハンドルを取得してalt+f4を送ればいいじゃないかと思ってますが alt+f4の送り方がわかりません。どなたか教えてください。 また、ほかに良い方法があれば併せてご提案くださると幸甚です。 よろしくお願いします。 -- エクセル2003
回答: そこまでできているのなら下記のように変更して見て下さい。 vb6.0 用のコードをそのまま転記していますがご理解頂けるかと。 private sub hwndacquire() 'ハンドル取得及び終了処理のサブプロシージャ dim hwnd as long dim ret as long if len(strclassname) then 'クラス名を与えてハンドルを取得 '起動中ならハンドルが返り、起動していなければ 0 が返る hwnd = findwindow(strclassname, vbnullstring) elseif len(strcaptionname) then 'キャプション名を与えてハンドルを取得する場合 'strcaptionname = "microsoft excel - book1" '電卓の場合 "電卓" hwnd = findwindow(vbnullstring, strcaptionname) end if '指定のハンドルに終了のメッセージを送る ret = sendmessage(hwnd, wm_close, 0&, 0&) end sub