Question

如果我使用

Set ie = CreateObject("InternetExplorer.Application")

要打开网址，我可以使用以下

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()来打开浏览器窗口。

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

Answer 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

找到解决方案here

Answer 2

Dim Shell
Set Shell = CreateObject("WScript.Shell")
Shell.Run "iexplore.exe www.google.com"

Answer 3

如果您回到原始代码，只需将实例化行修改为以下内容：

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

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

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

"C:\Program Files (x86)\Internet Explorer\iexplore.exe"

vb脚本 - 如果我通过c：\运行iexplore.exe，我如何进一步浏览浏览器窗口

3 个答案: