查找指定标题的子窗口

//以下为API声明
FUNCTION Long FindWindow(Long lpClassName,String lpWindowName) LIBRARY 'user32.dll' ALIAS FOR FindWindowA
FUNCTION Long FindWindowEx(Long hWnd1, Long hWnd2,  String lpsz1,  String lpsz2) LIBRARY 'user32.dll' ALIAS FOR FindWindowExA
FUNCTION Long GetWindow(Long hWnd, Long wCmd) LIBRARY 'user32.dll'
FUNCTION Long GetParent(Long hWnd) LIBRARY 'user32.dll'
FUNCTION Long GetClassName(Long hWnd,  REF String lpClassName, Long nMaxCount) LIBRARY "user32.dll" ALIAS FOR "GetClassNameA"
FUNCTION Long GetWindowText(Long hWnd, REF String lpString, Long cch) LIBRARY "user32.dll" ALIAS FOR "GetWindowTextA"


//以下为代码


Long    hMain,hCurrent,hTest
Integer m_iDirection,ix,iy
String  buf = Space(255)
String  sClass, sWinText


CONSTANT String  sTilter = '管理软件'
CONSTANT String  sFindClassName = 'Button';
CONSTANT String  sFindWinText = 'Tab Controllor';
CONSTANT String  sTargetClassName = 'PBNICanvas';

m_iDirection = 1
//遍历窗口
hMain = FindWindow(0,sTilter)
IF hMain = 0 THEN  RETURN 0
hCurrent = GetWindow(hMain, 5) //GW_CHILD=5
IF hCurrent = 0 THEN RETURN 0
DO While (m_iDirection <> -1)