vb以類名或視窗標題查詢控制代碼並關閉

2021-08-27 04:36:57 字數 3831 閱讀 3432

'新增 command1

private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long

private declare function getwindowthreadprocessid lib "user32" (byval hwnd as long, lpdwprocessid as long) as long

private declare function openprocess lib "kernel32" (byval dwdesiredaccess as long, byval binherithandle as long, byval dwprocessid as long) as long

private declare function terminateprocess lib "kernel32" (byval hprocess as long, byval uexitcode as long) as long

private declare sub closehandle lib "kernel32" (byval hpass as long)

const process_terminate = 1 '關閉程序

dim hprocess&, rtn&, proid&

private sub command1_click()

'hprocess = findwindow("scicalc", vbnullstring) '以類名查詢hwnd

hprocess = findwindow(vbnullstring, "計算器") '以視窗標題查詢hwnd

getwindowthreadprocessid hprocess, proid

if proid > 0 then

rtn = msgbox("計算器執行中, 您確定要關閉嗎?", vbyesno, "關閉程序")

if rtn = 6 then call closejc(clng(proid))

else

msgbox "計算器沒執行"

end if

end sub

sub closejc(pid as long) '結束指定程序

dim hwndid&

hwndid = openprocess(process_terminate, false, pid)

terminateprocess hwndid, 1

closehandle hwndid

msgbox "計算器已關閉"

end sub

vb部

分相關文章

推薦:

☆vb6

中善用byref

提公升速度

☆[vb] set 語句

☆vb_format

自定義格式 ☆

用vb如讀取記憶體位址 ☆

vb findwindowex

的用法例項 ☆

進製轉化進

10進製數 ☆

收藏:如何獲取當前已經開啟的

ie物件

(vb6**)

☆dxinput

中鍵碼的轉換

(vb6.0**)

☆如何在vb6.0

裡動態使用具有事件的物件 ☆

[vb]

格式輸出

format函式

☆讀取和寫入

windows

的ini檔案

☆簡述utf-

8編碼原理及其文字檔案的讀寫技術*** ☆

vb中的檔案操作 ☆

vb中的檔案操作文件 ☆

vb 中拷貝檔案 ☆

vb反跟蹤技術點滴 ☆

vb共享軟體防破解設計技術初探(二) ☆

vb共享軟體防破解設計技術初探(三) ☆

vb共享軟體防破解設計技術初探(一) ☆

rtf檔案格式*** ☆

vb壓縮技術 ☆

[vb]fso

物件模型在

vb中的應用 ☆

vb 窗體實現檔案拖拽獲取路徑方法 ☆

vb:登錄檔的讀寫 ☆

vb中空操作(等待)的指令、延時方法 ☆

vb讓控制項可以當標題欄拖動 ☆

fso物件新建、開啟、儲存檔案 ☆

獲取閘道器ip和

mac 的vb

原始碼 ☆vb

檔案關聯 ☆

vb獲得本地和遠端的

mac位址

(網絡卡位址)

☆vb中shellexecute

的應用

☆vb開啟**方法大全 ☆

vb簡單控制音量大小及靜音的方法 ☆

拖動無邊框窗體

(vb6**)

☆vb使用

filesystemobject

物件寫檔案 ☆

vb 從登錄檔中刪除項及其某個值 ☆

vb 字串轉為數字和判斷字串是否是數字字串*** ☆

vb按熱鍵啟動應用程式 ☆

vb的座標系統綜述 ☆

vb利用

api函式來處理檔案 ☆

關於vb

中shell

及shellexecute

的總結與記錄 ☆

[vb]on error goto 0

和on error resume區別

☆[vb]on error 語句

☆記錄一下

:在選單上新增自繪圖形的例子

(vb6**)

☆vb中

findwindow

的疑惑

☆[vb]findwindow

使用方法 ☆

常用檔案類

[轉,無法執行通,待除錯]

☆[vb]url utf-8編碼

☆vb中的unicode

和ansi 格式

☆vb中的format

格式化函式 ☆

vb中字串匹配的多種方式 ☆

vb抓圖 ☆

談vb目錄檔案操作的三種方法-2

☆談vb目錄檔案操作的三種方法-1

☆vb使用open

方法讀寫檔案 ☆

vb的md5加密模組 ☆

vb 超簡單的螢幕截圖** ☆

vb以類名或視窗標題查詢控制代碼並關閉 ☆

vb將配置儲存到

exe本身(生成

exe木馬程式) ☆

vb cameradll.dll ☆

在vb6.0

中怎麼實現

escape

和unescape ☆

vb求任意兩線交點 ☆

vb中呼叫

windows api

的注意事項

[vb知識庫]

☆vb

乙個獲得自己外網

ip 位址的程式** ☆

vb程式中實現

ip位址子網掩碼閘道器

dns的更改[轉

] ☆在

vb 中應用

fso

物件模型介紹(摘自網路) ☆

[轉] vb

中fso

物件的介紹 ☆

vb 畫座標軸 ☆

vb 二進位制檔案的操作 ☆

[vb]bmp

轉jpg ☆

vb中keycode

常數用法 ☆

vb實時曲線的繪製和儲存

>>>

修改視窗類的類名

修改視窗類的類名 相信很多人在vc下開發程式的時候大多都會採用基於對話方塊的開發吧,我也不例外,大多數的小型測試程式沒有必要開發基於文件 檢視的結構來測試,只要使用一些基本的對話方塊程式就可以達到這個目的 但是在開發基於對話方塊的程式時,要使用到一些 spy 的功能檢測的時候,就會出現一些問題。什麼...

MFC 改變視窗類名

mfc 改變視窗類名 1,改變視窗類名 比如 myclassname是自己想設定的類名 方法 開啟資源檢視,右擊外掛程式視窗,屬性改掉classname屬性,若它為灰色,右擊.rc檔案改mfc mode屬性為false,再改 2,改變後在ctestcpp中的initinstance 註冊該視窗類名 ...

MFC 改變視窗類名

mfc 改變視窗類名 1,改變視窗類名 比如 myclassname是自己想設定的類名 方法 開啟資源檢視,右擊外掛程式視窗,屬性改掉classname屬性,若它為灰色,右擊.rc檔案改mfc mode屬性為false,再改 2,改變後在ctestcpp中的initinstance 註冊該視窗類名 ...