〜 ネットワーク 〜
サーバー上のリソースの日付を取得 (要WININET.DLL, KERNEL32.DLL) 
サーバー上のページや画像等のリソースサイズ取得に使うＡＰＩ関数HttpQueryInfoで、
リソースの更新日付も取得するやり方を紹介します。
ＡＰＩ関数HttpQueryInfoは第１引数から順に「ＨＴＴＰリクエストハンドル」
「リクエスト値」「受取先変数ポインタ」「変数サイズ」「ヘッダインデクス」を指定します。
ＨＴＴＰリクエストハンドルとは、作成したＨＴＴＰ要求の識別ハンドルのことですが、
同じものなのかＡＰＩ関数InternetOpenUrlで取得したハンドルを渡すことでもいけるようです。
リクエスト値とはサーバーに要求するコードのことで以下のいずれかの定数を指定することが出来ます。



HTTP_QUERY_MIME_VERSION0x0000ＭＩＭＥプロトコルのバージョン


HTTP_QUERY_CONTENT_TYPE0x0001リソースタイプ


HTTP_QUERY_CONTENT_TRANSFER_ENCODING0x0002リソースに適用されるエンコーディング法


HTTP_QUERY_CONTENT_ID0x0003コンテンツの識別子


HTTP_QUERY_CONTENT_DESCRIPTION0x0004(レガシーアプリケーション互換性のために存在)


HTTP_QUERY_CONTENT_LENGTH0x0005リソースサイズ


HTTP_QUERY_CONTENT_LANGUAGE0x0006Receives the language that the content is in.


HTTP_QUERY_ALLOW0x0007サーバがサポートしている動詞


HTTP_QUERY_PUBLIC0x0008サーバに対して有効な動詞


HTTP_QUERY_DATE0x0009メッセージの作成時刻


HTTP_QUERY_EXPIRES0x000Aリソースの有効期限


HTTP_QUERY_LAST_MODIFIED0x000B最終更新時刻


HTTP_QUERY_MESSAGE_ID0x000C(現在サポートされていない)


HTTP_QUERY_URI0x000Dリソースを特定できるＵＲＩ


HTTP_QUERY_DERIVED_FROM0x000E(現在サポートされていない)


HTTP_QUERY_COST0x000F(現在サポートされていない)


HTTP_QUERY_LINK0x0010(レガシーアプリケーション互換性のために存在)


HTTP_QUERY_PRAGMA0x0011実装依存のデータ


HTTP_QUERY_VERSION0x0012サーバに最後に返された応答コード


HTTP_QUERY_STATUS_CODE0x0013サーバから返された状態コード


HTTP_QUERY_STATUS_TEXT0x0014サーバから返された補足テキスト


HTTP_QUERY_RAW_HEADERS0x0015ＮＵＬＬ文字で区切られた全てのヘッダ


HTTP_QUERY_RAW_HEADERS_CRLF0x0016改行(ＣＲ／ＬＦ)で区切られた全てのヘッダ


HTTP_QUERY_CONNECTION0x0017接続状態


HTTP_QUERY_ACCEPT0x0018Retrieves the acceptable media types for the response.


HTTP_QUERY_ACCEPT_CHARSET0x0019Retrieves the acceptable character sets for the response.


HTTP_QUERY_ACCEPT_ENCODING0x001ARetrieves the acceptable content-coding values for the response.


HTTP_QUERY_ACCEPT_LANGUAGE0x001BRetrieves the acceptable natural languages for the response.


HTTP_QUERY_AUTHORIZATION0x001CRetrieves the authorization credentials used for a request.


HTTP_QUERY_CONTENT_ENCODING0x001DReceives any additional content codings that have been applied to the entire resource.


HTTP_QUERY_FORWARDED0x001E(レガシーアプリケーション互換性のために存在)


HTTP_QUERY_FROM0x001FRetrieves the e-mail address for the human user 
who controls the requesting user agent if the From header is given.


HTTP_QUERY_IF_MODIFIED_SINCE0x0020Retrieves the contents of the If-Modified-Since header.


HTTP_QUERY_LOCATION0x0021Retrieves the absolute URI used in a Location response-header.


HTTP_QUERY_ORIG_URI0x0022(レガシーアプリケーション互換性のために存在)


HTTP_QUERY_REFERER0x0023Receives the URI of the resource where the requested URI was obtained.


HTTP_QUERY_RETRY_AFTER0x0024Retrieves the amount of time the service is expected to be unavailable.


HTTP_QUERY_SERVER0x0025Retrieves information about the software used by the origin server to handle the request.


HTTP_QUERY_TITLE0x0026(レガシーアプリケーション互換性のために存在)


HTTP_QUERY_USER_AGENT0x0027Retrieves information about the user agent that made the request.


HTTP_QUERY_WWW_AUTHENTICATE0x0028Retrieves the authentication scheme and realm returned by the server.


HTTP_QUERY_PROXY_AUTHENTICATE0x0029Retrieves the authentication scheme and realm returned by the proxy.


HTTP_QUERY_ACCEPT_RANGES0x002ARetrieves the types of range requests that are accepted for a resource.


HTTP_QUERY_SET_COOKIE0x002BReceives the value of the cookie set for the request.


HTTP_QUERY_COOKIE0x002CRetrieves any cookies associated with the request.


HTTP_QUERY_REQUEST_METHOD0x002Dリクエストで使用された動詞


HTTP_QUERY_REFRESH0x002E(レガシーアプリケーション互換性のために存在)


HTTP_QUERY_CONTENT_DISPOSITION0x002F(レガシーアプリケーション互換性のために存在)


HTTP_QUERY_AGE0x0030Retrieves the Age response-header field, 
which contains the sender's estimate of the amount of time since 
the response was generated at the origin server.


HTTP_QUERY_CACHE_CONTROL0x0031Retrieves the cache control directives.


HTTP_QUERY_CONTENT_BASE0x0032Retrieves the base URI for resolving relative URLs within the entity.


HTTP_QUERY_CONTENT_LOCATION0x0033Retrieves the resource location for the entity enclosed in the message.


HTTP_QUERY_CONTENT_MD50x0034Retrieves a MD5 digest of the entity-body for the purpose of providing 
an end-to-end message integrity check (MIC) for the entity-body.


HTTP_QUERY_CONTENT_RANGE0x0035Retrieves the location in the full entity-body where the partial entity-body 
should be inserted and the total size of the full entity-body.


HTTP_QUERY_ETAG0x0036Retrieves the entity tag for the associated entity.


HTTP_QUERY_HOST0x0037Retrieves the Internet host and port number of the resource being requested.


HTTP_QUERY_IF_MATCH0x0038Retrieves the contents of the If-Match request-header field.


HTTP_QUERY_IF_NONE_MATCH0x0039Retrieves the contents of the If-None-Match request-header field.


HTTP_QUERY_IF_RANGE0x003ARetrieves the contents of the If-Range request-header field.


HTTP_QUERY_IF_UNMODIFIED_SINCE0x003BRetrieves the contents of the If-Unmodified-Since request-header field.


HTTP_QUERY_MAX_FORWARDS0x003CRetrieves the number of proxies or gateways 
that can forward the request to the next inbound server.


HTTP_QUERY_PROXY_AUTHORIZATION0x003DRetrieves the header that is used to identify the user to a proxy 
that requires authentication.


HTTP_QUERY_RANGE0x003ERetrieves the byte range of an entity.


HTTP_QUERY_TRANSFER_ENCODING0x003FRetrieves the type of transformation that has been applied to the message body 
so it can be safely transferred between the sender and recipient.


HTTP_QUERY_UPGRADE0x0040Retrieves the additional communication protocols that are supported by the server.


HTTP_QUERY_VARY0x0041Retrieves the header that 
indicates that the entity was selected from a number of available representations 
of the response using server-driven negotiation.


HTTP_QUERY_VIA0x0042Retrieves the intermediate protocols and 
recipients between the user agent and the server on requests, and 
between the origin server and the client on responses.


HTTP_QUERY_WARNING0x0043Retrieves additional information about the status of a response that 
may not be reflected by the response status code.


HTTP_QUERY_EXPECT0x0044Retrieves the Expect header, 
which indicates whether the client application should expect 100 series responses.


HTTP_QUERY_PROXY_CONNECTION0x0045Retrieves the Proxy-Connection header.


HTTP_QUERY_UNLESS_MODIFIED_SINCE0x0046Retrieves the Unless-Modified-Since header.


HTTP_QUERY_ECHO_REQUEST0x0047(現在サポートされていない)


HTTP_QUERY_ECHO_REPLY0x0048(現在サポートされていない)


HTTP_QUERY_ECHO_HEADERS0x0049(現在サポートされていない)


HTTP_QUERY_ECHO_HEADERS_CRLF0x004A(現在サポートされていない)



受取先変数ポインタには取得した値を格納する変数のアドレスを指定し、
変数サイズも数値で直接指定するのではなく、変数に入れて、その変数のアドレスを渡します。
ヘッダインデクスは同一のヘッダが存在する場合にどのヘッダかを識別するためのインデックスを指定します。

上記のリクエストのうち、更新日付を取得するのはHTTP_QUERY_LAST_MODIFIEDになりますが、
返される日時は「Fri, 13 Jan 2006 23:59:59 GMT」といったまとまったテキストになります。



HTTP_QUERY_FLAG_SYSTEMTIME0x40000000日時をSYSTEMTIMEで返す



上記の修飾フラグを加算すると、年・月・日・時・分・秒等がわかれた形で受け取ることできますが、
SYSTEMTIME構造体に返される日時情報は日本標準時(ＪＳＴ)ではなく協定世界時(ＵＴＣ)なので、
タイムゾーンが＋９時間である日本時間に変換しなくてはなりません。
単純にSYSTEMTIME構造体の時間部分に９を足しても良いのですが、
どうせならパソコンで設定されているタイムゾーンの時間に直しておきたいので、
コチラで紹介した協定世界時を日本標準時に変換するモジュールを利用しましょう。

utctojst 変換前日時, 変換後日時
変換前日時変換前の日時が入った配列変数を指定する。
変換後日時変換後の日時を入れる配列変数を指定する。

inetinit
[パラメータなし]インターネットサービスを開始するだけである為、パラメータは必要ない。

inetend
[パラメータなし]インターネットハンドルを解放するだけの為、パラメータは必要ない。
尚、終了時に自動的に呼び出されるので命令を実行する必要はない。

inetgettime ＵＲＬ
ＵＲＬ取得するデータのアドレスを指定する。
尚、取得した日時は「y/m/d h:m:s」形式でrefstrにセットされる。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73

	ll_libload wininet, "wininet.dll"
	ll_getproc InternetOpen, "InternetOpenA", wininet
	ll_getproc InternetOpenUrl, "InternetOpenUrlA", wininet
	ll_getproc InternetCloseHandle, "InternetCloseHandle", wininet
	ll_getproc HttpQueryInfo "HttpQueryInfoA", wininet
	ll_libload kernel, "kernel32.dll"
	ll_getproc SystemTimeToFileTime, "SystemTimeToFileTime", kernel
	ll_getproc FileTimeToLocalFileTime, "FileTimeToLocalFileTime", kernel
	ll_getproc FileTimeToSystemTime, "FileTimeToSystemTime", kernel

#module
#deffunc utctojst val, val
	mref after, 16 : mref before, 17
	ll_getptr before : ll_ret j.0
	ll_getptr tmp : ll_ret j.1
	ll_getptr after : ll_ret j.2
	prm = j.0, j.1
	ll_callfunc prm, 2, SystemTimeToFileTime@
	prm = j.1, j.1
	ll_callfunc prm, 2, FileTimeToLocalFileTime@
	prm = j.1, j.2
	ll_callfunc prm, 2, FileTimeToSystemTime@
	return

#deffunc inetinit
	mref stt, 64
	prm = 0, 0, 0, 0, 0
	agent = "hspbc"
	ll_getptr agent : ll_ret prm
	ll_callfunc prm, 5, InternetOpen@
	ll_ret hinet : stt = hinet
	return

#deffunc inetend onexit
	if hinet : ll_callfunc hinet, 1, InternetCloseHandle@
	return

#deffunc inetgettime str
	mref url, 32
	mref rstr, 65
	prm = hinet, 0, 0, 0, 0x80000000, 0
	ll_getptr url : ll_ret prm.1
	ll_callfunc prm, 6, InternetOpenUrl@
	ll_ret hfile
	i = 16
	prm = hfile, 0x4000000B, 0, 0, 0 // HTTP_QUERY_LAST_MODIFIED | HTTP_QUERY_FLAG_SYSTEMTIME
	ll_getptr i.1 : ll_ret prm.2
	ll_getptr i.0 : ll_ret prm.3
	ll_callfunc prm, 5, HttpQueryInfo@
	ll_callfunc hfile, 1, InternetCloseHandle@
	utctojst i.0, i.1
	j = i.0 >>  0 & 0xFFFF : rstr  = ""  + j
	j = i.0 >> 16 & 0xFFFF : rstr += "/" + j
	j = i.1 >> 16 & 0xFFFF : rstr += "/" + j
	j = i.2 >>  0 & 0xFFFF : rstr += " " + j
	j = i.2 >> 16 & 0xFFFF : rstr += ":" + j
	j = i.3 >>  0 & 0xFFFF : rstr += ":" + j
	return
#global

	sdim url, 1024
	url = "http://www.rinku.zaq.ne.jp/ultimate/img/banner.jpg"
	objsize 100, 20
	pos  10, 10 : input url, 420
	pos 440, 10 : button "更新日取得", *getdate
	inetinit
	stop

*getdate
	getpath name, url, 8
	inetgettime url
	dialog name + "の更新日は" + refstr
	stop

utctojst 変換前日時, 変換後日時
変換前日時変換前の日時が入った配列変数を指定する。
変換後日時変換後の日時を入れる配列変数を指定する。

inetinit
[パラメータなし]インターネットサービスを開始するだけである為、パラメータは必要ない。

inetend
[パラメータなし]インターネットハンドルを解放するだけの為、パラメータは必要ない。
尚、終了時に自動的に呼び出されるので命令を実行する必要はない。

日時 = inetgettime(ＵＲＬ)
日時取得した「y/m/d h:m:s」形式の日時の受取先を指定する。
ＵＲＬ取得するデータのアドレスを指定する。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

#uselib "wininet.dll"
#cfunc	global InternetOpen "InternetOpenA" sptr, int, int, int, int
#cfunc	global InternetOpenUrl "InternetOpenUrlA" int, sptr, int, int, int, int
#func	global InternetCloseHandle "InternetCloseHandle" int
#func	global HttpQueryInfo "HttpQueryInfoA" int, int, var, var, int
#uselib "kernel32.dll"
#func	global SystemTimeToFileTime "SystemTimeToFileTime" var, var
#func	global FileTimeToLocalFileTime "FileTimeToLocalFileTime" var, var
#func	global FileTimeToSystemTime "FileTimeToSystemTime" var, var

#module
#deffunc utctojst var after, var before, local i
	SystemTimeToFileTime before, i
	FileTimeToLocalFileTime i, i
	FileTimeToSystemTime i, after
	return

#deffunc inetinit
	hinet = InternetOpen("hspbc")
	return hinet

#deffunc inetend onexit
	if hinet : InternetCloseHandle hinet
	return

#defcfunc inetgettime str url, local i, local s
	hfile = InternetOpenUrl(hinet, url, , , 0x80000000, 0)
	dim i, 5
	i = 16
	HttpQueryInfo hfile, 0x4000000B, i.1, i // HTTP_QUERY_LAST_MODIFIED | HTTP_QUERY_FLAG_SYSTEMTIME
	InternetCloseHandle hfile
	utctojst i.0, i.1
	return "" + (i & 0xFFFF) + "/" + (i.0 >> 16) + "/" + (i.1 >> 16) + " " + (i.2 & 0xFFFF) + ":" + (i.2 >> 16) + ":" + (i.3 & 0xFFFF)
#global

	sdim url, 1024
	url = "http://www.rinku.zaq.ne.jp/ultimate/img/banner.jpg"
	objsize 100, 20
	pos  10, 10 : input url, 420
	pos 440, 10 : button gosub "更新日取得", *getdate
	inetinit
	stop

*getdate
	dialog getpath(url, 8) + "の更新日は" + inetgettime(url)
	return