开发者技术变现资源聚集地
https://www.baiydu.com
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
Const LVM_FIRST = &H1000
Const LVM_GETITEMCOUNT = LVM_FIRST + 4
Private Const WM_SETTEXT As Long = &HC Private Sub Form_Load() End Sub Private Sub win32list_Click_Click()
Dim RootH As Long
Dim SonListH As Long
Dim listRowCount As Integer
Dim listCloumeCount As Integer
RootH = FindWindow("WTWindow", "巅峰批量卡iPhone新版 V1.9")
SonListH = FindWindowEx(RootH, 0, "SysListView32", vbNullString)
listRowCount = SendMessage(SonListH, LB_GETCOUNT, 0, 0)
MsgBox listRowCount
End Sub