[休闲]真好玩,冻结QQ登录窗口 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [休闲]真好玩,冻结QQ登录窗口

标题：[休闲]真好玩,冻结QQ登录窗口

取消只看楼主

田里兵蜂

等　级：新手上路
威　望：2
帖　子：604
专家分：0
注　册：2007-1-29

楼主

问题点数：0 回复次数：2

[休闲]真好玩,冻结QQ登录窗口

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim h_qq As Long

Private Sub Command1_Click()

h_qq = FindWindow(vbNullString, "QQ用户登录")

Call EnableWindow(h_qq, False)
End Sub

Private Sub Command2_Click()
Call EnableWindow(h_qq, True)
End Sub
加个timer控件,再把程序隐藏起来,哈哈

搜索更多相关主题的帖子: 窗口　冻结　休闲　登录　

2007-02-12 15:10

田里兵蜂

等　级：新手上路
威　望：2
帖　子：604
专家分：0
注　册：2007-1-29

第 2 楼

得分:0

好的
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim h_qq As Long

Private Sub Command1_Click()

h_qq = FindWindow(vbNullString, "QQ用户登录")

Call EnableWindow(h_qq, False)
End Sub

Private Sub Command2_Click()
Call EnableWindow(h_qq, True)
End Sub

findwindow是用来查找窗口的,如果找到就返回句柄.
enablewindow是用来激活锁定窗口,第二个参数为false窗口就锁定了