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

好的 老师 我试试看

麻烦老师帮忙写个如何取值的例子   比如  我点击图片中 程序1 窗口获取    程序2 窗口1两个lable标签的值  来个提示框弹窗显示即可

图片
此主题相关图片如下：1.png

全局代码

 

<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

谢谢老师

11

 

如果所有项目都是这样，那，请升级到最新版foxtable测试。

11

那安装另一个版本，比如

 

https://pan.baidu.com/s/1j2u9oqgxa1_UM1xRXpqJFg

 

老师这个版本也不行   加密够最高支持2017-8-22