
求代码vb屏蔽软件的标题栏
我要的代码是:用VB6.0编写出来的代码,要求:但他运行的时候,可以把标题栏屏蔽,如:打开QQ登陆窗口,他的标题是QQ2009,现在就把QQ2009标题屏蔽,使用户不能登...
我要的代码是:用VB6.0编写出来的代码,要求:
但他运行的时候,可以把标题栏屏蔽,如:打开QQ登陆窗口,他的标题是QQ2009 ,现在就把QQ2009标题屏蔽,使用户不能登陆QQ 展开
但他运行的时候,可以把标题栏屏蔽,如:打开QQ登陆窗口,他的标题是QQ2009 ,现在就把QQ2009标题屏蔽,使用户不能登陆QQ 展开
2个回答
展开全部
'只是隐藏窗体用下列代码
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下可以使用组策略等来阻止启动程序
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下可以使用组策略等来阻止启动程序

2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询