vb open or hiden web
来源:互联网 发布:宜家值得买的东西 知乎 编辑:程序博客网 时间:2024/06/04 23:26
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, 0, 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, 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, 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
- vb open or hiden web
- Visual studio cannot create or open the application because the Web server on this computer is...
- Managed C++: Another VB, or VB.NET, or Whatever
- VB.NET OR 和 ORELSE
- Open Source Web Design
- SharePoint Open Web Services
- VB调用WEB服务
- VB call Web Service
- vb使用open方法读写文件
- vb使用open方法读写文件
- VB数据库连接recordset open的语法
- vb使用open方法读写文件
- VB ADODB中的RecordSet.Open的参数
- Tags or Semantic Web
- between..and-->open bound or close bound?
- how to Open email or sms sendui
- how to Open email or sms sendui
- 提交到新窗口submit-OR-window.open
- yumen
- 什么叫动态网页?什么叫静态网页设计?
- 如何编写Linux设备驱动程序
- grep
- Java泛型_ArrayList
- vb open or hiden web
- 总体设计说明书
- Ogre源码在VS2008(VC9)中的配置方式
- 关于java反射的一些理解
- Topcoder_1
- 中文搜索:公正性是实现准确性的根本—中国搜索行业应当立即行动起来、正视搜索公正性
- 为什么?
- Filter在web.xml中的配置顺序
- 下载???