主题：OpenQQ服务端自启动求助

一层一层循环下去找。比如，先找主窗口，再找子窗口，再找子子窗口......

 

具体软件发一个上来测试，说明要控制那个按钮。

 

http://www.foxtable.com/webhelp/scr/1842.htm

 

 

打开 先启动这个.Table

 

然后打开 再启动这个.Table

 

看懂两个例子的代码即可。看不懂，请具体说明你要做什么，发实例或截图上来说明。

测试了一下，qq的窗口里面的控件，是无法获取的。

Dim lvw As WinForm.ListView =  Forms("窗口名").controls("ListView1")
msgbox(lvw.Current("负责人"))

认认真真看完这个帖子 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=124066&skin=0

 

看全局代码 http://www.foxtable.com/webhelp/scr/1842.htm

 

1、用这个工具，把窗口的信息、控件的信息取出来

 

下载信息  [文件大小：251.9 KB  下载次数：54]

点击浏览该文件:spylite24.zip

 

2、看懂前面帖子的方法，替换成那个窗口的值、控件的值，获取

 

3、你那个监控软件有没有接口可以直接获取数据？或者是，它的数据存放在哪里？能否直接访问？

 

1、用这个工具，把窗口的信息、控件的信息取出来

 

下载信息  [文件大小：251.9 KB  下载次数：54]

点击浏览该文件:spylite24.zip

 

2、看懂前面帖子的方法，替换成那个窗口的值、控件的值，获取

 

 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=124066&skin=0

 

全局代码

 

<DllImport("user32.dll", EntryPoint := "MoveWindow")> _
Public Function MoveWindow(hWnd As Integer, x As Integer, y As Integer, nWidth As Integer, nHeight As Integer, BRePaint As Boolean) As Integer
End Function

<DllImport("user32.dll", EntryPoint := "FindWindow")> _
Public Function FindWindow(lpClassName As String, lpWindowName As String) As Integer
End Function

<DllImport("user32.dll", EntryPoint := "SetParent")> _
Public Function SetParent(hWndChild As Integer, hWndNewParent As Integer) As Integer
End Function

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As Integer) As Integer

Public Declare Function EnumChildWindows Lib "user32" (hWndParent As Integer, ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As Integer) As Integer

Public Delegate Function   EnumWindowsProc(ByVal   hwnd   As   Integer,   ByVal   lParam   As   Integer)   As   Boolean

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer

<DllImport("user32.dll")> _
Public Function GetWindowTextLength(hWnd As Integer) As Integer
End Function

Public Function EnumWindowsProcCallBack(ByVal   hwnd   As   Integer,   ByVal   lParam   As   Integer)   As   Boolean
      Return Functions.Execute("EnumWindowsProcCallBack", hwnd, lparam)
End   Function

<DllImport("User32.dll", EntryPoint := "SendMessage")> _
Public Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As Integer, lParam As Integer) As Integer
End Function

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

 

内部函数 EnumWindowsProcCallBack

 

Dim hwnd As Integer = args(0)

Dim len As Integer = GetWindowTextLength(hWnd) + 1
Dim s As new StringBuilder(len)
If GetWindowText(hwnd, s, len ) > 0 Then
    output.show(s.tostring)
End If
Return True

 

测试代码

 

Dim hwnd As IntPtr = FindWindow(Nothing, "命令窗口")
If hwnd <> IntPtr.Zero Then
    msgbox("找到窗口")
    Dim CallBack As New EnumWindowsProc(AddressOf EnumWindowsProcCallBack)
    EnumChildWindows(hwnd, CallBack, 0)   
End If