タイトル : Re^6: Webページのタイムスタンプ取得につきまして 投稿日 : 2017/09/02(Sat) 14:29 投稿者 : susu
魔界の仮面弁士 さん お世話になります。 訂正 勘違いにより、案3) JScript の Date オブジェクト経由で変換を採用させて頂きます。 "https://www.goo.ne.jp/"では更新日付が今日になりますので。 今日以外のwebページを探しましたら"http://www.edotatemono.com/"がありましたので テスト用webページとしました。 Command1 2017/09/02 14:10:06 Command2 02/20/2009 12:27:57 質問 同じ"http://www.edotatemono.com/"に於いて Command1とCommand2の更新日付が異なる違いにつきまして、ご教示願えますと幸いであります。 ※Command1内の一部変更、追加しました。誤りがありましたら、大変申し訳ありませんでした。 ' ''''''''''''''''''''''''''''''''''''''''''''''' ' Option Explicit Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long Private Sub Command1_Click() Dim XHR As Object Set XHR = CreateObject("WinHttp.WinHttpRequest.5.1") XHR.Open "HEAD", "http://www.edotatemono.com/", False 'XHR.Open "HEAD", "https://www.goo.ne.jp/", False 'XHR.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" XHR.Send 'MsgBox XHR.GetAllResponseHeaders() Call ToVBDate(XHR.GetResponseHeader("Date")) 'Call ToVBDate("Thu, 31 Aug 2017 23:45:01 GMT") End Sub Function ToVBDate(ByVal rfc1123Date As String) As Variant On Error GoTo Catch Dim sc As Object Set sc = CreateObject("MSScriptControl.ScriptControl") sc.Language = "JScript" ToVBDate = sc.Eval("new Date('" & rfc1123Date & "').getVarDate()") Text1.Text = ToVBDate '追加 Exit Function Catch: ToVBDate = Null End Function Private Sub Command2_Click() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = False objIE.navigate "http://www.edotatemono.com/" 'objIE.navigate "https://www.goo.ne.jp/" SetForegroundWindow (objIE.hWnd) Do While objIE.Busy = True DoEvents Loop objIE.navigate "javascript:alert(document.lastModified)" End Sub ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' |