- This topic has 0 replies, 1 voice, and was last updated 10 years ago by
imFiles.
Viewing 1 post (of 1 total)
-
AuthorPosts
-
January 19, 2013 at 12:18 pm #15219
imFiles
Memberthis code don’t work with pal build 485 ,why?
Private Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As String) As Long Dim strCaption As String Dim lLen As Long Dim syslistview As Long, cwndmembertree As Long Dim dlggroupchatwindowclass As Long, splitterwindowex As Long, classcpanecontainerex As Long Dim atlaae As Long, atlaaed As Long dlggroupchatwindowclass = FindWindow("dlggroupchat window class", Form1.Combo1.Text) splitterwindowex = FindWindowEx(dlggroupchatwindowclass, 0&, "splitterwindowex", vbNullString) splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString) splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString) splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString) splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString) classcpanecontainerex = FindWindowEx(splitterwindowex, 0&, "classcpanecontainerex", vbNullString) classcpanecontainerex = FindWindowEx(splitterwindowex, classcpanecontainerex, "classcpanecontainerex", vbNullString) atlaae = FindWindowEx(classcpanecontainerex, 0&, "atl:00a1ae40", vbNullString) atlaaed = FindWindowEx(atlaae, 0&, "atl:00a1aed0", vbNullString) hWndlvw = FindWindowEx(atlaaed, 0&, "syslistview32", vbNullString) ' If we've found a window with the SysListView32 class ' check to see if parent window caption is the one we are looking for If hWndlvw <> 0 Then lLen = GetWindowTextLength(hwnd) If lLen > 0 Then strCaption = Space(lLen) GetWindowText hwnd, strCaption, lLen + 1 End If End If EnumWindowsProc = (hWndlvw = 0 And strCaption <> lParam) End Function
and
Function NickGet() Dim dlggroupchatwindowclass As Long, splitterwindowex As Long, classcpanecontainerex As Long Dim atlaae As Long, atlaaed As Long, syslistview As Long dlggroupchatwindowclass = FindWindow("dlggroupchat window class", Form1.Combo1.Text) splitterwindowex = FindWindowEx(dlggroupchatwindowclass, 0&, "splitterwindowex", vbNullString) splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString) splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString) splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString) splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString) classcpanecontainerex = FindWindowEx(splitterwindowex, 0&, "classcpanecontainerex", vbNullString) classcpanecontainerex = FindWindowEx(splitterwindowex, classcpanecontainerex, "classcpanecontainerex", vbNullString) atlaae = FindWindowEx(classcpanecontainerex, 0&, "atl:00a1ae40", vbNullString) atlaaed = FindWindowEx(atlaae, 0&, "atl:00a1aed0", vbNullString) atlaaed = GetWindow(atlaaed, GW_CHILD) syslistview = FindWindowEx(atlaaed, 0&, "syslistview32", vbNullString) Call GetListviewItem(syslistview) End Function
-
AuthorPosts
Viewing 1 post (of 1 total)
- You must be logged in to reply to this topic.