求代码vb屏蔽软件的标题栏

来源:百度知道 编辑:UC知道 时间:2024/05/29 13:52:26
我要的代码是:用VB6.0编写出来的代码,要求:
但他运行的时候,可以把标题栏屏蔽,如:打开QQ登陆窗口,他的标题是QQ2009 ,现在就把QQ2009标题屏蔽,使用户不能登陆QQ

'只是隐藏窗体用下列代码
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const SW_HIDE = 0
Private Const SW_NORMAL = 1
'传入窗体标题名
Private Function HideForm(byval strTitle as String)
Dim WinWnd As Long
WinWnd = FindWindow(vbNullString, strTitle)
If WinWnd <> 0 Then
'隐藏窗体
ShowWindow WinWnd, SW_HIDE
'显示窗体使用ShowWindow WinWnd, SW_NORMAL
End If
End Function

但是以上方法,需要这个VB程序时刻运行,以便时刻检查内存
WindowXp下可以使用组策略等来阻止启动程序

是把该含有该标题的窗体屏蔽吧~~~不是屏蔽标题。。