'新增 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 註冊該視窗類名 ...