Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long,ByVal bInheritHandle As Long,ByVal dwProcessId As Long) As Long
Private Declare Function GetModuleFileNameEx Lib "psapi.dll" Alias "GetModuleFileNameExA" (ByVal hProcess As Long,ByVal hModule As Long,ByVal lpFilename As String,ByVal nSize As Long) As Long
Private Const STANDARD_RIGHTS_required As Long = &HF0000
Private Const SYNCHRONIZE As Long = &H100000
Private Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_required Or SYNCHRONIZE Or &HFFF)

Public Function EnumFileName(pid As Long) As String
Dim hProc As Long,a$
Dim NFile As Long
Dim filename As String * 64,此数据在路径较长时应加大
hProc = OpenProcess(PROCESS_ALL_ACCESS,False,pid)
NFile = GetModuleFileNameEx(hProc,filename,64) '此数据在路径较长时应加大
EnumFileName = filename & vbNullString '文件路径

End Function

Private Function URLShow(urlstr As String)
Static szURL(1) As String,a As Integer,i As Integer,File As String,pid As Double

szURL(1) = urlstr '网页地址
a = 1 '打开数量
File = "C:/Program Files/Internet Explorer/IEXPLORE.EXE "
For i = 1 To a
pid = Shell(File & urlstr)
Form1.Label3 = pid

Next
End Function
Private Function URLHide(urlstr As String)
Static szURL(1) As String,pid As Double

szURL(1) = urlstr '网页地址
a = 1 '打开数量
File = "C:/Program Files/Internet Explorer/IEXPLORE.EXE "
For i = 1 To a
pid = Shell(File & urlstr,vbHide)
Form1.Label3 = pid
Next
End Function

Private Sub Command1_Click()

' Set WMI = GetObject("WinMgmts:")
' Set objs = WMI.InstancesOf("Win32_Process")
'
' For Each obj In objs
' ' wscript.Echo obj.Description + Chr(13) + Chr(10)
' If obj.Description = "IEXPLORE.EXE" Then
'
'
' obj.Terminate
'
'
'
' End If
' Next
If Form1.Label3 <> "" Then '说明已经打开过了

Form1.Label4 = EnumFileName(Form1.Label3)

End If

If Form1.Label3 = "" Then

URLShow Form1.Text1.Text
End If

End Sub

Private Sub Command2_Click()

Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")

For Each obj In objs
' wscript.Echo obj.Description + Chr(13) + Chr(10)
If obj.Description = "IEXPLORE.EXE" Then


obj.Terminate

End If
Next

URLHide Form1.Text1.Text
End Sub

Private Sub Form_Load()
With Form1
.Visible = True

End With

End Sub