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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。