VB代码急救。。。

来源：百度知道 编辑：UC知道 时间：2024/05/25 21:03:48
我用VB制作一个程序 如何使QQ.exe进程运行时 程序的界面自动隐藏

就是当运行该程序时 发现QQ.exe进程 程序的界面将隐藏

注意 是隐藏 不是关闭！！！

这个需要进行进程监控。到网上找到这个控件ListKillProcess.ocx

以下是类似代码，请按照自己的需求修改一下。
Dim MaxNumberOfProcesses As Integer
Dim NewProGramFiles As String
Private Sub Form_Load()
ListKillProcess1.List_Processes = True
ProcessList.Clear
For i = 1 To ListKillProcess1.Number_Of_Processes
ListKillProcess1.Get_Process_Info = i
ProcessList.AddItem Str(i) + " " + ListKillProcess1.Process_Name
Next i
MaxNumberOfProcesses = ListKillProcess1.Number_Of_Processes
End Sub

Private Sub NewProGramFile_click()
ListKillProcess1.Get_Process_Info = MaxNumberOfProcesses
ListKillForm.Caption = ListKillProcess1.Process_Name
If ucase(Left(ListKillProcess1.Process_Name, 5)) = "QQ.EXE" Then
msgbox "QQ程序已经运行！"
me.hide
ListKillProcess1.ID_To_Kill = ListKillProcess1.Process_ID
ListKillProcess1.Kill_Process = True
List