【VB】监视进程
—— 发布于 2016-11-08 18:37:00
> **程序代码** ``` Private Sub Timer1_Timer() Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colPr...
【VB】获取北京时间
> **程序代码** ```vb Private Sub Command1_Click() Me.Caption = 获取北京时间() End Sub...
【VB】计算某文件MD5值
> **程序代码** ``` Private Sub Form_Load()'调用方法 Me.Caption = HashFile("C:\windows...
【VB】关机代码
> **程序代码** ``` Private Sub Command1_Click() Shell "shutdown -l" ...
【VB】文件框过滤字符
> **程序代码** ``` Private Sub Text1_KeyPress(KeyAscii As Integer) '键盘输入事件 Dim a...
【VB】关闭显示器
> **程序代码** ``` Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey...
【VB】关闭某窗口
> **程序代码** ``` '以下代码放在模块里 Public Declare Function PostMessage Lib "user32" Alias...
【VB】根据子句柄取得主窗体句柄
> **程序代码** ``` Private Declare Function GetParent Lib "user32" (ByVal hwnd As Lon...
【VB】根据句柄取进程路径
> **程序代码** ```vb Private Declare Function GetWindowThreadProcessId Lib "user32" (...
【VB】根据进程名取进程路径
> **程序代码** ``` Private Sub Command1_Click() Set objWMIService = GetObject("winmg...