Reputation: 13
Can someone help me? I am new to VB.net and try to write a very simple code to manipulate a website. However, i keep getting
"An unhandled exception of type 'System.InvalidCastException' occurred in Defer All.exe .... Unable to cast COM object of type 'System.__ComObject' to interface type 'mshtml.HTMLDocument'. This operation failed because the QueryInterface call on the COM component for the interface with IID '....)."
Dim IE As InternetExplorer
Dim HTMLDoc As HtmlDocument
Dim oHTML_Element As mshtml.IHTMLElement
IE = new InternetExplorer
IE.Navigate("http://www.mediafire.com/")
Do Until IE.ReadyState = 4
Loop
Loop Until Not IE.Busy
' ERROR on the following line
HTMLDoc = IE.Document
' I tried making HTMLDoc as object. It passed the above line, but failed the next line due to no GetElementsByTagName method
For Each oHTML_Element In HTMLDoc.GetElementsByTagName("input")
'....................
Next
Upvotes: 1
Views: 1511
Reputation: 3629
change...
Dim IE As InternetExplorer
Dim HTMLDoc As HtmlDocument
' ^---------------------------this thing to,
mshtml.IHTMLDocument
Dim oHTML_Element As mshtml.IHTMLElement
Upvotes: 1