アプリケーションではを使用して、mshtml.HTMLDocument
内のmimetypeを抽出しています。mshtml.IHTMLElement getAttribute erratic behavior
例:
www.mywebsite.com/index.html。このWebページには1つのMIMEタイプがあり、Excelワークブックです。
Dim oHTML_Element As mshtml.IHTMLElement
Dim HTMLDoc As mshtml.HTMLDocument
HTMLDoc = CType(oBrowser.Document, mshtml.HTMLDocument)
'//mimtype = "Microsoft Office Excel 97-2003 Worksheet"
For Each oHTML_Element In HTMLDoc.getElementsByTagName("a")
If oHTML_Element.getAttribute("mimetype") is Nothing then
MsgBox ("NONE FOUND")
Else
MsgBox(oHTML_Element.getAttribute("mimetype").ToString())
End If
End For
問題: 私はそのWebページにアクセスしたとき、私はポップアップMsgBox
私の同僚がで座ってこのアプリケーションを実行しているMIMETYPE
表示を取得し、場所-1(アジア太平洋地域)に座ってこのアプリケーションを実行していますlocation-2(アジア)、そのウェブページにアクセスすると、彼はポップアップMsgBox
をNONE FOUND
と表示します。 ウェブページへのアクセスは問題ではなく、同じ時間とその静的なページについてウェブページにアクセスしています。つまり、地理的位置に基づいてMIMETYPE
には対応していません。彼は手動でブラウザに入り、リンクをクリックすることでExcelワークブックにアクセスできます。