タイトル : Re^3: Webページのタイムスタンプ取得につきまして 投稿日 : 2017/09/02(Sat) 09:54 投稿者 : susu
魔界の仮面弁士 さん 度々、返答をして頂きまして心より感謝申し上げます。 IE6アドレス欄にjavascript:alert(document.lastModified) でしたが、IEのバージョン(IE11)によては、javascriptが受け付けませんでした。 (詳しくは分りませんがソーシャルエンジニアリングを防止する対策の為とありました) [j]を除くavascript:alert(document.lastModified)はアドレス欄に貼り付けできました。 [j]は手入力してWebページの更新日時が表示できました。 そこで、以上のことから下記の方法で行っています。 Option Explicit Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long Private Sub Command1_Click() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = False objIE.navigate "hhttps://www.goo.ne.jp/" SetForegroundWindow (objIE.hWnd) Do While objIE.Busy = True DoEvents Loop objIE.navigate "javascript:alert(document.lastModified)" End Sub >一応 VB6 コードで取得する方法についても紹介しておきます。 >知りたいのは最終更新日だけであり、Web ページの本体データは不要なので、 >GET リクエストではなく HEAD リクエストを投げるようにしてみました。 魔界の仮面弁士 さんが、紹介して頂きました方法でこれから確かめてみます。 少し、時間がかかると思いますが、ご報告させてもらいます。また、 ご質問につきましては、宜しくお願い致します。 |