Re: Usare una sessione aperta di Internet explorer

Article View: free.it.visual-basic

Article #312

Back to free.it.visual-basic Previous Next

#312

From: Davide
Date: Wed, 26 Jul 2006 13:04

35 lines
2127 bytes

Ho trovato una soluzione al mio problema,
se qualcuno mi dice se sto facendo una cazzata mi fate un favore:

Private Sub OpenWeb(strURL as string)

    Dim objIE As SHDocVw.InternetExplorer
    Dim objSW As SHDocVw.ShellWindows

    Set objSW = New SHDocVw.ShellWindows

    'Check if there is a IE instance open
    If objSW.Count > 0 Then   ' new
        For Each objIE In objSW
            If InStr(1, objIE.FullName, "iexplore.exe") Then
                Set objIE = objSW.Item
                fAppRunning = True
                Exit For
            End If
        Next objIE
    End If

    'Create a new IE instance if not exist
    If objIE Is Nothing Then
        Set objIE = CreateObject("InternetExplorer.Application")
    End If


    'Open a web page in the IE instance
    objIE.Visible = True
    objIE.navigate strURL 
end sub



ciao e grazie

Technical Details

Message-ID: <1153919063.594255.268820@b28g2000cwb.googlegroups.com>

Path: arc1-ca.pugleaf.net!g2news2.google.com!postnews.google.com!b28g2000cwb.googlegroups.com!not-for-mail

References: <1153827888.764410.143980@s13g2000cwa.googlegroups.com>

Show Full Headers

Complete Article Headers

X-Google-Thread: f94ee,191827c07eb83eab
X-Google-Attributes: gidf94ee,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news2.google.com!postnews.google.com!b28g2000cwb.googlegroups.com!not-for-mail
From: "Davide" <dbrev@tin.it>
Newsgroups: free.it.visual-basic
Subject: Re: Usare una sessione aperta di Internet explorer
Date: 26 Jul 2006 06:04:23 -0700
Organization: http://groups.google.com
Lines: 36
Message-ID: <1153919063.594255.268820@b28g2000cwb.googlegroups.com>
References: <1153827888.764410.143980@s13g2000cwa.googlegroups.com>
NNTP-Posting-Host: 83.103.75.230
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
X-Trace: posting.google.com 1153919068 21582 127.0.0.1 (26 Jul 2006 13:04:28 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Wed, 26 Jul 2006 13:04:28 +0000 (UTC)
In-Reply-To: <1153827888.764410.143980@s13g2000cwa.googlegroups.com>
User-Agent: G2/0.2
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727),gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: b28g2000cwb.googlegroups.com; posting-host=83.103.75.230;
   posting-account=-tCWyQ0AAACuLP_hUD7jBIzs-fUyiaeZ

Reply to Parent Message