タイトル : 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() 上記の方法を使わせてもらいます。 結果がでましたら、ご報告をさせてもらいます。 いつも、ありがとうございました。 |