vb禁止qq游戏 代码

来源：百度知道 编辑：UC知道 时间：2024/06/04 08:11:02
想要一种vb制作方法来禁止QQ游戏的运行--包括打开，运行自动结束，--而且没有提示的那种！如果谁会的可以贴出代码或者在自己的博客上写一下，然后在下面贴出地址。如果有好的软件可以禁止的话，也可以。（没有提示的那种，注册表，权限，防火墙禁止都试过了没有用）。希望高手可能提示一下！

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WMCLOSE = &H10
Const WMQUIT = &H12
Dim Handle As Long
Public c As Long

Sub CloseWin() '关闭指定窗口
Dim WinText As String
Dim i As Integer
WinText = "QQ游戏"
Handle = FindWindow(vbNullString, WinText)
PostMessage Handle, WMCLOSE, 0, 0
If Handle <> 0 Then
End If
End Sub

Private Sub Form_Load()
Timer1.Index = 5000 '5秒检测一次
App.TaskVisible = False
Me.Visible = False
End Sub

Private Sub Timer1_Timer()
c = c + 1
Timer1.Tag = Val(Timer1.Tag) '把timer1.tag数据化,防止类型不对
If Timer1.Tag < 1 Then
Time