为Google Chrome创建对象

Question

我想为Google Chrome代替IE使用下面的代码。 公用Sub GetValueFromBrowser（） 昏暗即作为对象 昏暗URL作为字符串 昏暗myPoints作为字符串

url = "http://localhost:8080/xyz" 
Set ie = CreateObject("InternetExplorer.Application") 

With ie 
    .Visible = 0 
    .navigate url 
    While .Busy Or .readyState <> 4 
    DoEvents 
    Wend 
End With 

Dim Doc As HTMLDocument 
Set Doc = ie.document 

myPoints = Trim(Doc.getElementsByName("points")(0).Value) 
Range("A1").Value = myPoints 

结束子

Answer 1

尝试此

CreateObject("ChromeTab.ChromeFrame");