获取控件窗口的句柄的标题并执行输入
PrivateSubCommandButton1_Click()DimretAsLongDimhwndAsLongDimstrAsString*256ret=GetDesktopWindow()hwnd=GetWindow(ret,GW_CHILD)DoWhilehwnd0GetWindowTexthwnd,str,Len(str)hwnd=GetWindow(hwnd,GW_HWNDNEXT)IfLeft$(str,1)vbNullCharThenUserForm1.ListBox1.AddItems
下载地址
用户评论
