vb点虐 获取进程名 vb获取指定文件路径

VB.NET 如何获取本身的进程名

Process.GetCurrentProcess.ProcessName

在西青等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站制作、成都网站建设 网站设计制作按需搭建网站,公司网站建设,企业网站建设,品牌网站制作,营销型网站建设,成都外贸网站制作,西青网站建设费用合理。

'--------------------

百度VB2010(VB.NET)吧建设发展中,需要你的支持和帮助!!!

快加入我们吧!发表你的疑问,经验,程序,分享..

让我们共同进步!

vb点虐 窗口句柄获取进程名

FindWindowEx

VB声明

Declare Function FindWindowEx Lib "user32" Alias

"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As

String, ByVal lpsz2 As String) As Long

说明

在窗口列表中寻找与指定条件相符的第一个子窗口

返回值

Long，找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError

参数表

参数

类型及说明

hWnd1

Long，在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）

hWnd2

Long，从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索

lpsz1

String，欲搜索的类名。零表示忽略

lpsz2

String，欲搜索的类名。零表示忽略

vb点虐 如何通过窗口句柄获取进程名

Imports System.Runtime.InteropServices

Module winapi

DllImport("User32.dll", CallingConvention:=CallingConvention.StdCall, EntryPoint:="GetWindowThreadProcessId") _

Function GetWindowThreadProcessId(ByVal hwnd As IntPtr, ByRef procId As UInt32) As UInt32

End Function

DllImport("kernel32.dll", CallingConvention:=CallingConvention.StdCall, EntryPoint:="OpenProcess") _

Function OpenProcess(ByVal access As UInt32, ByVal inherit As Boolean, ByVal procid As UInt32) As IntPtr

End Function

DllImport("kernel32.dll", CallingConvention:=CallingConvention.StdCall, EntryPoint:="CloseHandle") _

Function CloseHandle(ByVal handle As IntPtr) As Boolean

End Function

DllImport("psapi.dll", CallingConvention:=CallingConvention.StdCall, EntryPoint:="GetModuleFileNameExW", Charset:=CharSet.Unicode) _

Function GetModuleFileNameExW(ByVal hProc As IntPtr, ByVal hMod As IntPtr, ByVal arrName() As Char, ByVal arrSize As UInt32) As UInt32

End Function

End Module

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim procid As UInt32

GetWindowThreadProcessId(Me.Handle, procid)

Dim handle As IntPtr

handle = OpenProcess(1040, False, procid)

Dim name(65536) As Char

Dim nameSize As UInt32 = GetModuleFileNameExW(handle, IntPtr.Zero, name, 65536)

Dim strName As String = New String(name, 0, nameSize)

CloseHandle(handle)

MsgBox(strName)

End Sub

End Class

可恶……我不会vb……临时去七拼八凑查了点语法……尽力了

求大神指点vb点虐 怎么获取指定进程的状态

Process.GetProcessesByName("进程名")‘不带扩展名

找不到 就是没有在运行，但不知道能不能判断已暂停状态。