« バッチファイルで、CSVファイルをHTMLファイルの<table>に変換する。 | トップページ | document.write()のセキュリティゾーン »

2007年2月28日 (水)

スクリプトからWin32APIをCALLして、ウィンドウを最前面に表示する。

もし、Excelがあれば、スクリプトからWin32APIをCALLすることができます。

以下は、ウィンドウタイトル「電卓」を最前面に表示します。

'Const HWND_TOPMOST = -1
'Const SWP_NOSIZE = 1
'Const SWP_NOMOVE = 2

Set Application=CreateObject("Excel.Application")
hwnd=Application.ExecuteExcel4Macro("CALL(""user32"",""FindWindowA"",""JJC"",0,""電卓"")")
RC=Application.ExecuteExcel4Macro("CALL(""user32"",""SetWindowPos"",""JJJJJJJJ""," & hwnd & ",-1,0,0,0,0,3)")
If RC=0 Then MsgBox "ウィンドウが見つかりません。"

« バッチファイルで、CSVファイルをHTMLファイルの<table>に変換する。 | トップページ | document.write()のセキュリティゾーン »