主题：[求助]请问这段代码怎么转到狐表里面？

Public Class Form1
    Private Declare Auto Function GetWindowRect Lib "user32" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Long
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Public Structure RECT
        Public left As Int32
        Public top As Int32
        Public right As Int32
        Public bottom As Int32
    End Structure
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p1 As RECT
        Dim hwnd As IntPtr = FindWindow(Nothing, "无标题 - 记事本")
        If hwnd <> IntPtr.Zero Then
            GetWindowRect(Me.Handle, p1)
            MsgBox(p1.right)  '获取到left ，top ，right ，bottom
        Else
            MsgBox("未找到窗口")
        End If

    End Sub
End Class

Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Long
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Public Structure RECT
        Public left As Int32
        Public top As Int32
        Public right As Int32
        Public bottom As Int32
    End Structure
    Public Sub Button1_Click()
        Dim p1 As RECT
        Dim hwnd As IntPtr = FindWindow(Nothing, "无标题 - 记事本")
        If hwnd <> IntPtr.Zero Then
            GetWindowRect(Me.Handle, p1)
            MsgBox(p1.right)  '获取到left ，top ，right ，bottom
        Else
            MsgBox("未找到窗口")
        End If

    End Sub

GetWindowRect(Me.Handle, p1)

说明您贴出的代码不全

vb能获取到
此主题相关图片如下：qq图片20191114085239.png

GetWindowRect(Me.Handle, p1)