[VB6] Chiudere il browser con cui è stata aperta una pagina Web

[zanlu88s]

Salve a tutti.
Ho letto su questo forum il metodo per aprire delle pagine internet con il tuo browser predefinito.
Ma mi servirebbe anche chiuderle in modo da non caricare eccessivamente IE in quanto il programma che ho creato apre circa 10 pagine web.
Per aprire il sito web ho usato questa funzione:

Public Sub Naviga(Form As Form, ByVal WebPageURL As String)
Dim hBrowse As Long
On Error Resume Next
hBrowse = ShellExecute(Form.hWnd, "open", WebPageURL, "", "", SW_SHOW)
On Error GoTo 0
End Sub

1) esiste anche la funzione per chiudere la pagina???Esiste anche per caso una funzione che controlli che la pagina sia stata caricata (prima di chiuderla ovviamente)?
2)Cosa impone quale browser usare??in pratica se chi usa il programma gli apre la pagina con IE, come faccio a impostargli ad esempio Mozilla ( sempre che l'utente abbia quel browser)?


Ringrazio anticipatamente
Gianluca

[zanlu88s]

Nessuno può aiutarmi???

[Templare]

Devi usare la TerminateProcess e gli passi l'handle della finestra che hai aperto.

La pagina viene aperta nel browser predefinito settato dall'utente.

[zanlu88s]

Riusciresti solo a dirmi come si usa la Terminal Process? è quello per chiudere la pagina questo giusto??Sapresti la sintassi?


Per l' handle sai la sintassi??
non trovo da nessuna parte come utilizzarla nel mio caso.
Grazie

[Templare]

Forse ti conviene usare la ShellExecuteEx e la TerminateProcess nel modo seguente:

'Dichiarazione delle API e delle strutture che richiedono

Dim si As SHELLEXECUTEINFO

Private Type SHELLEXECUTEINFO
  cbSize As Long
  fMask As Long
  hwnd As Long
  lpVerb As String
  lpFile As String
  lpParameters As String
  lpDirectory As String
  nShow As Long
  hInstApp As Long
  lpIDList As Long
  lpClass As String
  hkeyClass As Long
  dwHotKey As Long
  hIcon As Long
  hProcess As Long
End Type


Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" _
  (si As SHELLEXECUTEINFO) As Long
  
  
Private Declare Function TerminateProcess Lib "kernel32" (ByVal _
   hProcess As Long, ByVal uExitCode As Long) As Long
    
'Apertura  
'Valorizzi si in base alle tue necessità
  ShellExecuteEx(si) 

'Chiusura
    Dim exitCode As Long
    If TerminateProcess(si.hProcess, exitCode) <> 0 Then
        CloseHandle (si.hProcess)
    End If

[zanlu88s]

quindi per si devo mettere l'indirizzo internet che deve aprire??
Per il fatto della compatibilità tra i browser... come funziona?
Nel senso che prima col procedimento scritto, riconosce solo IE e non gli altri.

[zanlu88s]

qlk1 altro sa dirmi qlkosa su queste funzioni?? please
:quote:

[zanlu88s]

Proprio nessuno??

[Templare]

Ma hai implementato l'esempio che ho postato?

[enricoska]

Anche a me servirebbe sapere come va impostata la variabile si...