tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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はいずれもキャッチできませんでした。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。