In einer Anwendung verwende ich mshtml.IHTMLElement.getAttribute(mimetype)
, um den Mimetype innerhalb einer mshtml.HTMLDocument
zu extrahieren.mshtml.IHTMLElement getAttribute erratisches Verhalten
Beispiel:
www.mywebsite.com/index.html. Diese Webseite hat 1 Mimetype und es ist eine Excel-Arbeitsmappe.
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
Das Problem: ich diese Anwendung leite in Lage-1 (Asia Pacific) sitzen, wenn ich, dass die Homepage zuzugreifen, erhalte ich ein Pop-up MsgBox
Anzeigen MIMETYPE
Mein Kollege diese Anwendung in läuft sitzen location-2 (Asia), wenn er auf diese Webseite zugreift, erhält er ein Pop-up MsgBox
, das NONE FOUND
anzeigt. Der Zugriff auf die Webseite ist nicht das Problem, und wir greifen ungefähr gleichzeitig auf die Webseite zu und es ist eine statische Seite, mit anderen Worten, es dient nicht MIMETYPE
basierend auf Geo-Standorten. Er kann auf die Excel-Arbeitsmappe zugreifen, indem er manuell in den Browser wechselt und auf den Link klickt.