原创 VB獲取執行程序圖標

一個CommonDialog，一個CommandButton，一個PictureBOX   Option Explicit Private Declare Function DrawIcon Lib "user32" (ByVal hdc

2020-06-28 03:06:44 3

原创 結束指定窗口名的進程

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Priv

2020-06-28 03:06:34

原创 VB過濾中文字符串源碼

添加 兩個TEXT(multiline=true) 一個按鈕   Private Function isChinese(ByVal asciiv) As Boolean a = AscW(asciiv) If Len(Hex$(a)) >

2020-06-28 03:06:33

原创 VB設置進程優先級

http://topic.csdn.net/t/20060401/19/4656391.html Private Declare Function

2020-06-28 03:06:33

原创 阻止windows關機

http://topic.csdn.net/t/20050528/12/4041955.html http://download.csdn.net/down/2021631/huleidong   Attribute VB_Name =

2020-06-10 18:08:23 3

原创 項目安裝dllexport之後，編譯時出現錯誤

項目安裝NUGET的dllexport之後，編譯時出現錯誤   嚴重性    代碼    說明    項目    文件    行    禁止顯示狀態 錯誤        arning : Non-virtual, non-abstract

2020-05-12 15:38:58

原创 解決Win10桌面Explorer.exe佔用CPU過高的問題。

  explorer.exe 桌面 Start Address ntdll.dll!RtlInitializeResource+0x410 shcore.dll!Ordinal172+0x30 FrameCommon64.dll!Net

2020-04-28 06:47:31 2

原创 VB模擬按鍵

  http://www.winu.cn/ask/response.php?aid=19336   待解決問題 vb WM_KEYDOWN 參數設置？？？？   (離問題結束還有0天0小時) id="question_conten

2020-02-20 18:14:23

原创 VB複製文件夾的方法(非FSO)

http://www.webuc.net/ddf3/archive/2005/08/25/6142.aspx     不用FSO的複製文件夾得方法？用API函數 SHFileOperation以下是使用SHFileOperation刪除複

2020-02-20 18:14:23

原创 vb利用FindWindow，GetWindowText，SendMessage查找程序併發送最小化消息

' 查找運行的窗體 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWi

2020-02-20 18:14:23

原创 VB根據窗口標題獲取應用程序完整路徑(來自網絡)

VB根據窗口標題獲取應用程序完整路徑(來自網絡) Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lp

2020-02-20 18:14:23

原创 用VB枚舉系統進程PID及路徑

http://blog.csdn.net/cw198624/archive/2009/02/19/3911759.aspx   添加一個ListBox和一個按鈕   Option Explicit Private Declare Func

2020-02-20 18:14:23

原创 VB實現全窗體移動

Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias

2020-02-20 18:14:23

原创 【VB界面】子類化重繪仿QQ2009漸變按鈕(模塊)

'************************************************************************* ''-----------------------------------------

2020-02-20 18:14:23

原创 VB中播放WAV文件

http://zhidao.baidu.com/question/33440250.html   在模塊中輸入以下代碼 Public Declare Function sndPlaySound Lib "winmm" Alias _ "

2020-02-20 18:14:23