Function 获取当前页码()
Dim hwnd As Long
Dim hwnd1 As Long
Dim hwnd2 As Long
Dim hwnd3 As Long
hwnd = FindWindow("AcrobatSDIWindow", "无废话XML.pdf - Adobe Acrobat Pro")
If hwnd > 0 Then
hwnd1 = FindWindowEx(hwnd, 0, "AVL_AVView", "AVToolBarHostView")
If hwnd1 > 0 Then
hwnd2 = FindWindowEx(hwnd1, 0, "AVL_AVView", "AVToolBarView")
If hwnd2 > 0 Then
hwnd3 = FindWindowEx(hwnd2, 0, "Edit", "61.4%")
If hwnd3 > 0 Then
Else
MsgBox "hwnd3=0"
End If
Else
MsgBox "hwnd2=0"
End If
Else
MsgBox "hwnd1=0"
End If
Else
MsgBox "hwnd=0"
End If
End Function不知道为什么hwnd3获取结果为0,其它句柄正常,61.4%这个值是正确的,是从spy++中复制过来的
Dim hwnd As Long
Dim hwnd1 As Long
Dim hwnd2 As Long
Dim hwnd3 As Long
hwnd = FindWindow("AcrobatSDIWindow", "无废话XML.pdf - Adobe Acrobat Pro")
If hwnd > 0 Then
hwnd1 = FindWindowEx(hwnd, 0, "AVL_AVView", "AVToolBarHostView")
If hwnd1 > 0 Then
hwnd2 = FindWindowEx(hwnd1, 0, "AVL_AVView", "AVToolBarView")
If hwnd2 > 0 Then
hwnd3 = FindWindowEx(hwnd2, 0, "Edit", "61.4%")
If hwnd3 > 0 Then
Else
MsgBox "hwnd3=0"
End If
Else
MsgBox "hwnd2=0"
End If
Else
MsgBox "hwnd1=0"
End If
Else
MsgBox "hwnd=0"
End If
End Function不知道为什么hwnd3获取结果为0,其它句柄正常,61.4%这个值是正确的,是从spy++中复制过来的
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货