【WEB WSH】 SHIFT キーの状態を知る

  isShift



  
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
  



  実行コードサンプル





isShift.wsf
  
<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>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ