首页
社区
课程
招聘
[旧帖] 帮我解释VB应用中的一个错误 0.00雪花
发表于: 2010-10-16 23:40 1097

[旧帖] 帮我解释VB应用中的一个错误 0.00雪花

2010-10-16 23:40
1097
看了一个VB API的应用,原文中的程序是
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
Dim hwnd As
Long' 储存 FindWindow 函数返回的句柄
hwnd = FindWindow(vbNullString, 计算器)' 取得进程标识符
If hwnd = 0 Then
Label1.Caption = "程序未运行"
Else
Label1.Caption = "程序已运行"
End If
End Sub
我把hwnd改成了a,但由于一时手误,if语句中的没改,如下
Private Sub Form_Load()
Dim a As Long
a = FindWindow(vbNullString, "计算器")
If hwnd = 0 Then
Label1.Caption = "程序未运行"
Else
Label1.Caption = "程序已运行"
End If
End Sub
结果不管计算器开没开,都是“程序已运行”,后来我又把if语句中的hwnd换成了b,结果老是“程序未运行”,与预期一样,为什么换成hwnd就会出错呢?是不是hwnd还有什么特殊意义?

[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

收藏
免费 0
支持
分享
最新回复 (2)
雪    币: 52
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
没有定义时的hwnd其实是me.hwnd,也就是当前窗体的hwnd.当然就不为0,所以始终显示程序已运行
2010-12-25 16:49
0
雪    币: 16
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3

a = FindWindow(vbNullString, "计算器")
If hwnd = 0 Then
语句中的hwnd改为a
a = FindWindow(vbNullString, "计算器")
返回句柄赋值给a,
hwnd的值为当前窗口的句柄值,不满足hwnd=0的条件
改为b,则b的值为空值,满足b=0条件
2010-12-25 20:04
0
游客
登录 | 注册 方可回帖
返回
//