PrivateDeclareFunctionWindowFromPointLib"user32"(ByValxPointAsLong,ByValyPointAsLong)AsLong
PrivateDeclareFunctionGetWindowTextLib"user32"Alias"GetWindowTextA"(ByValhwndAsLong,ByVallpStringAsString,ByValcchAsLong)AsLong
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
PrivateDeclareFunctionGetWindowTextLengthLib"user32"Alias"GetWindowTextLengthA"(ByValhwndAsLong)AsLong
PrivateDeclareFunctionGetDlgItemLib"user32"(ByValhDlgAsLong,ByValnIDDlgItemAsLong)AsLong
PrivateDeclareFunctionGetNextWindowLib"user32"Alias"GetWindow"(ByValhwndAsLong,ByValwFlagAsLong)AsLong
PrivateDeclareSubSleepLib"kernel32.dll"(ByValdwMillisecondsAsLong)
PrivateDeclareFunctionGetClassNameLib"user32"Alias"GetClassNameA"(ByValhwndAsLong,ByVallpClassNameAsString,ByValnMaxCountAsLong)AsLong
PrivateDownName()AsLong
PrivateDownHwnd()AsLong
PublicFunctionGetDown(ParentHwndAsLong)AsString'这个ParentHwnd参数就是窗体句柄
Dimtemparr()AsString
DimhwndAsLong,LAsLong
Dimtempstr1AsString*256,tempstr2AsString*256
Dimtempstr11AsString,tempstr22AsString
DimenameAsString
DimiAsLong
DimaAsString
ReDimtemparr(3,0)
hwnd=GetNextWindow(ParentHwnd,5)
GetWindowTextParentHwnd,ename,5
DimjsAsInteger
Do
Ifhwnd>0Then
i=GetWindowTextLength(hwnd)
a=String$(i+1,0)
GetWindowTexthwnd,a,Len(a)
hq=InStr(1,a,"共")
hq=hq+InStr(1,a,"正")
Ifhq>0Then
GetDown=getCaption(ParentHwnd)&""&a
EndIf
EndIf
hwnd=GetNextWindow(hwnd,2)
LoopWhilehwnd>0
EndFunction
PublicFunctiongetCaption(hwndAsLong)
'获取窗口名称
DimhWndlengthAsLong,hWndTitleAsString,aAsLong
hWndlength=GetWindowTextLength(hwnd)
hWndTitle=String$(hWndlength,0)
a=GetWindowText(hwnd,hWndTitle,(hWndlength+1))
b=Split(hWndTitle,"(")
getCaption=Left(b(1),Len(b(1))-1)
EndFunction
分 -->
|
