tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^5: Webページのタイムスタンプ取得につきまして
投稿日: 2017/09/02(Sat) 11:47
投稿者susu
魔界の仮面弁士 さん

早速の返信ありがとうございました。

>ブックマークレット (bookmarklet) を使ってみてください。

アドレス欄にjavascript:alert(document.lastModified)を
VB6でアドレス欄に貼り付けていましたが(IE11)では
貼り付けできませんでしたのでブックマークレット (bookmarklet)
を使っては更新日時が表示できました。それと同じことをVB6で
行うと効率が良くないと思いVB6(objIE.navigate "javascript:alert(document.lastModified)")
で行いました。

本来、ボックス表示ではなくVB6フォーム内のテキストボックスに表示したかったのですが
方法が分りませんでした。下記の方法ですとデータが取り出せ編集ができますので
Mid 関数で切り出して自前での変換にしたいと思います。案1〜3の案2にします。
希望していたものができると思います。

>Dim XHR As Object
>Set XHR = CreateObject("WinHttp.WinHttpRequest.5.1")
>XHR.Open "HEAD", "hhttps://www.goo.ne.jp/", False
>'XHR.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
>XHR.Send
>MsgBox XHR.GetResponseHeader("Date")
>'MsgBox XHR.GetAllResponseHeaders()

上記の方法を使わせてもらいます。
結果がでましたら、ご報告をさせてもらいます。

いつも、ありがとうございました。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。