2

如果我使用

Set ie = CreateObject("InternetExplorer.Application")

要打开一个 URL，我可以使用以下

ie.Navigate "http://google.com"

但我不能选择这个选项，因为“InternetExplorer.Application”会打开 64 位 IE 浏览器。我需要 32 位 IE 浏览器才能工作。所以我使用了以下

set Objshell=CreateObject("WScript.shell")  
return=Objshell.run ("""C:\Program Files\Internet Explorer\iexplore.exe""" & "www.google.com")

所以在这种情况下，我不知道如何导航或使用getElements()打开的浏览器窗口。

请让我知道如何处理这个！

4

3 回答 3

1 
  Option Explicit 

 Main() 

 Sub Main() 
     Force32bit() 
     Dim objExplorer : Set objExplorer = CreateObject("InternetExplorer.Application") 
     Dim i 

i = true 
do while i = true 
     objExplorer.Navigate "www.google.com" 
     objExplorer.ToolBar = 1 
     objExplorer.StatusBar = 1 
     objExplorer.Width = 800 
     objExplorer.Height = 800 
     objExplorer.Left = 1 
     objExplorer.Top = 1 
     objExplorer.Visible = 1 
     WScript.Sleep 6000 
     objExplorer.Navigate "www.yahoo.com" 
wscript.sleep 6000 
loop 

 End Sub 

 Sub Force32bit() 
     If InStr(UCase(WScript.FullName), "SYSTEM32") > 0 and CreateObject("Scripting.FileSystemObject").FolderExists("C:\Windows\SysWOW64") Then 
         Dim objShell : Set objShell = CreateObject("WScript.Shell") 
         objShell.CurrentDirectory = "C:\Windows\SysWOW64" 
         objShell.Run "wscript.exe " & Chr(34) & WScript.ScriptFullName & Chr(34), 1, False 
     End If 
 End Sub

在这里找到解决方案

于 2013-01-24T05:43:00.423 回答
0 
Dim Shell
Set Shell = CreateObject("WScript.Shell")
Shell.Run "iexplore.exe www.google.com"
于 2015-05-13T15:06:45.563 回答
0

如果您返回原始代码并简单地将实例化行修改为以下内容：

Set ie = CreateObject("InternetExplorer.Application.1")

这应该足以强制 IE 应用程序对象的 32 位实例。

如果您仍想使用 shell 路由，请记住您要从Programs (x86)文件夹中启动 iEXPLORE.EXE。

"C:\Program Files (x86)\Internet Explorer\iexplore.exe"
于 2015-05-13T22:59:54.540 回答