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

元のコードに戻り、インスタンス化の行を次のように変更するだけです。

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

IE アプリケーション オブジェクトの 32 ビット インスタンスを強制するには、これで十分です。

それでもシェル ルートを使用する場合は、 Programs (x86)フォルダーから iEXPLORE.EXE を起動することを忘れないでください。

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