如何关闭使用ShellExecute VB6打开的网站_Vb6

如何关闭使用ShellExecute VB6打开的网站

vb6

如何关闭使用ShellExecute VB6打开的网站,vb6,Vb6,我用这个代码打开网站 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

我用这个代码打开网站

  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

现在，我想关闭后，该网站的时间限制自动

或web浏览器中的加载项，该加载项将在一段时间后自动关闭当前选项卡（例如30秒）

有什么想法或建议吗？

使用

ShellExecuteEx

（）更改

SHELLEXECUTEINFO.hProcess

中启动的进程的句柄。然后，当达到超时时，使用

TerminateProcess

api调用（）