REM ******************************************************
REM SHIFT キーの状態
REM baseFunction が必要です
REM ******************************************************
Function isShift( )

	Call GetObj( "IEDocument", "InternetExplorer.Application" )
	IEDocument.Navigate( "about:blank" )
	IEDocument.document.getElementsByTagName("BODY")(0).innerHTML = _
		"<INPUT id=ret><INPUT id=bt type=button " & _
		" onClick='document.getElementById(""ret"").value=window.event.shiftKey'>"
	IEDocument.document.getElementById("bt").click

	if Ucase(IEDocument.document.getElementById("ret").value) = "TRUE" then
		isShift = True
	else
		isShift = False
	end if

	IEDocument.Quit
	Set IEDocument = Nothing

End Function

<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
	language="VBScript"
	src="http://homepage2.nifty.com/lightbox/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "toolFunction.vbs" )

Crun

if isShift then
	Wscript.Echo "押している"
end if


</SCRIPT>
</JOB>