vb點(diǎn)虐 如何通過(guò)窗口句柄獲取進(jìn)程名

Imports?System.Runtime.InteropServices

烏蘇網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、APP開(kāi)發(fā)、響應(yīng)式網(wǎng)站設(shè)計(jì)等網(wǎng)站項(xiàng)目制作，到程序開(kāi)發(fā)，運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)自2013年創(chuàng)立以來(lái)到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來(lái)保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。

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

可惡……我不會(huì)vb……臨時(shí)去七拼八湊查了點(diǎn)語(yǔ)法……盡力了

Vb點(diǎn)虐 中已知某程序的進(jìn)程id，如果激活該程序并最大化？

使用ShowWindow函數(shù)，便可輕松控制窗口的顯隱，最小化，最大化。

概述

函數(shù)功能：該函數(shù)設(shè)置指定窗口的顯示狀態(tài)。

函數(shù)原型：BOOL ShowWindow（HWND hWnd, int nCmdShow）；

*/第一個(gè)參數(shù)為句柄，第二個(gè)參數(shù)選下面的值

#define SW_HIDE 0

#define SW_SHOWNORMAL 1

#define SW_NORMAL 1

#define SW_SHOWMINIMIZED 2

#define SW_SHOWMAXIMIZED 3

#define SW_MAXIMIZE 3

#define SW_SHOWNOACTIVATE 4

#define SW_SHOW 5

#define SW_MINIMIZE 6

#define SW_SHOWMINNOACTIVE 7

#define SW_SHOWNA 8

#define SW_RESTORE 9

#define SW_SHOWDEFAULT 10

#define SW_FORCEMINIMIZE 11

#define SW_MAX 11

參數(shù)含義

hWnd:指窗口句柄。

nCmdShow：指定窗口如何顯示。如果發(fā)送應(yīng)用程序的程序提供了STARTUPINFO結(jié)構(gòu)，則應(yīng)用程序第一次調(diào)用ShowWindow時(shí)該參數(shù)被忽略。否則，在第一次調(diào)用ShowWindow函數(shù)時(shí)，該值應(yīng)為在函數(shù)WinMain中nCmdShow參數(shù)。在隨后的調(diào)用中，該參數(shù)可以為下列值之一：

SW_FORCEMINIMIZE：在WindowNT5.0中最小化窗口，即使擁有窗口的線程被掛起也會(huì)最小化。在從其他線程最小化窗口時(shí)才使用這個(gè)參數(shù)。

SW_HIDE：隱藏窗口并激活其他窗口。

SW_MAXIMIZE：最大化指定的窗口。

SW_MINIMIZE：最小化指定的窗口并且激活在Z序中的下一個(gè)頂層窗口。

SW_RESTORE：激活并顯示窗口。如果窗口最小化或最大化，則系統(tǒng)將窗口恢復(fù)到原來(lái)的尺寸和位置。在恢復(fù)最小化窗口時(shí)，應(yīng)用程序應(yīng)該指定這個(gè)標(biāo)志。

SW_SHOW：在窗口原來(lái)的位置以原來(lái)的尺寸激活和顯示窗口。

SW_SHOWDEFAULT：依據(jù)在STARTUPINFO結(jié)構(gòu)中指定的SW_FLAG標(biāo)志設(shè)定顯示狀態(tài)，STARTUPINFO 結(jié)構(gòu)是由啟動(dòng)應(yīng)用程序的程序傳遞給CreateProcess函數(shù)的。

SW_SHOWMAXIMIZED：激活窗口并將其最大化。

SW_SHOWMINIMIZED：激活窗口并將其最小化。

SW_SHOWMINNOACTIVATE：窗口最小化，激活窗口仍然維持激活狀態(tài)。

SW_SHOWNA：以窗口原來(lái)的狀態(tài)顯示窗口。激活窗口仍然維持激活狀態(tài)。

SW_SHOWNOACTIVATE：以窗口最近一次的大小和狀態(tài)顯示窗口。激活窗口仍然維持激活狀態(tài)。

SW_SHOWNORMAL：激活并顯示一個(gè)窗口。如果窗口被最小化或最大化，系統(tǒng)將其恢復(fù)到原來(lái)的尺寸和大小。應(yīng)用程序在第一次顯示窗口的時(shí)候應(yīng)該指定此標(biāo)志。

不過(guò)順便說(shuō)一句，SendKeys會(huì)偶爾造成指令丟失，不可避免。不管你激活窗口還是最大化窗口或者鎖定都沒(méi)辦法完全避免。

VB如何修改進(jìn)程名?

1，任務(wù)管理器里面的進(jìn)程名要改。只需在你生成EXE時(shí)。把文件名修改就行了。

2，如果任務(wù)管理器里面的應(yīng)用程序的名要改，只需在生成EXE時(shí)，點(diǎn)選項(xiàng)按鈕，進(jìn)入里面把標(biāo)題改了就行了。

如果你改了文件名，那么你的程序在桌面上顯示的名字和你的進(jìn)程名是一樣的。

通常的軟件或游戲都是任務(wù)管理器里的應(yīng)用程序名是中文，而進(jìn)程名是英文，所以你可以通過(guò)上面的方法，修改成你要的結(jié)果。

希望這答案能幫到你。

vb點(diǎn)虐 窗口句柄獲取進(jìn)程名

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

說(shuō)明

在窗口列表中尋找與指定條件相符的第一個(gè)子窗口

返回值

Long，找到的窗口的句柄。如未找到相符窗口，則返回零。會(huì)設(shè)置GetLastError

參數(shù)表

參數(shù)

類型及說(shuō)明

hWnd1

Long，在其中查找子的父窗口。如設(shè)為零，表示使用桌面窗口（通常說(shuō)的頂級(jí)窗口都被認(rèn)為是桌面的子窗口，所以也會(huì)對(duì)它們進(jìn)行查找）

hWnd2

Long，從這個(gè)窗口后開(kāi)始查找。這樣便可利用對(duì)FindWindowEx的多次調(diào)用找到符合條件的所有子窗口。如設(shè)為零，表示從第一個(gè)子窗口開(kāi)始搜索

lpsz1

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

lpsz2

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