开发者技术变现资源聚集地
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