Как закрыть сайт открыт с помощью ShellExecute VB6

Question

Я использую этот код, чтобы открыть веб-сайт,

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 

    ShellExecute Me.hwnd, "open", webURL, vbNullString, webBrowser, vbNormal 

Теперь я хочу, чтобы автоматически закрыть сайт после срока.

Или Addonn в веб-браузере, который автоматически закроет текущую вкладку по прошествии некоторого времени (напр., 30 секунд)

любая идея или предложения?

Answer 1

Изменить ShellExecute с ShellExecuteEx (here is a sample), который возвращает вам дескриптор начального процесса в SHELLEXECUTEINFO.hProcess. Затем, когда время ожидания достигнуто, используйте TerminateProcess api call (another sample)