タイトル : Re^4: withEventsで生成したInternetExplorerが捕捉できない 投稿日 : 2015/04/10(Fri) 15:31 投稿者 : はなまるき
すみません。おっしゃるとおりきちんとコードを提示できていませんでした。 Private WithEvents objIE as InternetExplorer Private sub Command1_Click Dim strURL as string strURL=List1.Text Dim objShell As Object Dim objShellWindows As Object Dim objIE As Object Set objShell = CreateObject("Shell.Application") Set objShellWindows = objShell.Windows For Each objIE In objShellWindows If InStr(objIE.LocationURL, strURL) <> 0 Then Call ShowWindow(objIE.hWnd, SW_MAXIMIZE) goto Exit_Sub End If Next set objIE=OpenIE(strURL) Esit_Sub: End Sub Public Function OpenIE(strURL As String) As Object Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") With objIE .Visible = True Call CloseWindow(.hWnd) .navigate (strURL) Do While .Busy = True Or .readyState <> 4 DoEvents Loop End With Set OpenIE = objIE End Function Private Sub objIE_OnQuit() Set objIE = Nothing End Sub 既に開いていたらそれを、なければNavigateとしたいのですが、上の方法で起動した IEはいずれもキャッチできませんでした。 |