REM ***********************************************************
REM laylaClass : インターネット用汎用関数セット
REM ***********************************************************
Function laylaGetVersion()

	laylaGetVersion = "2007.04.01"

End Function 

REM ***********************************************************
REM Msxml2.ServerXMLHTTP : プロキシ設定は以下を参照
REM http://support.microsoft.com/default.aspx?scid=kb;ja;289481
REM ***********************************************************
Function LoadMsxmlHTTP( )

	if not IsObject( objSrvHTTP ) then
		Set objSrvHTTP = CreateObject("Msxml2.ServerXMLHTTP.3.0")
	end if 

End Function
Function HTTPGet( strUrl )

	LoadMsxmlHTTP

	on error resume next
	Call objSrvHTTP.Open("GET", strUrl, False )
	if Err.Number <> 0 then
		ErrorMessage = Err.Description
		HTTPGet = Empty
		Exit Function
	end if
	on error goto 0

	objSrvHTTP.Send

	HTTPGet = objSrvHTTP.responseText

End Function
Function laylaFunctionTarget( strUrl )

	laylaFunctionTargetUrl = strUrl

End Function
Function laylaLoadFunction( strUrl )

	Dim str

	if Left( strUrl, 7 )  <> "http://" then
		strUrl = laylaFunctionTargetUrl & strUrl
	end if

	str = HTTPGet( strUrl )
	if not IsEmpty( str ) then
		ExecuteGlobal str
	end if

End Function
Function laylaLoadFunctionPrefix( strUrl, strPrefix, aData )

	Dim str,I

	if Left( strUrl, 7 )  <> "http://" then
		strUrl = laylaFunctionTargetUrl & strUrl
	end if

	str = HTTPGet( strUrl )
	if not IsEmpty( str ) then
		For I = 0 to Ubound( aData )
			str = Replace( str, aData( I ), strPrefix & aData( I ) )
		Next
		ExecuteGlobal str
	end if

End Function

REM ***********************************************************
REM laylaClass : グローバル
REM ***********************************************************
Dim laylaFunctionTargetUrl
Dim ErrorMessage
Dim objSrvHTTP
Dim objRegistry

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002