VB.NET GetWindowRect() API疑问

goodhermit95

1. Dim r As RECT
   
2.         Dim b As Boolean = GetWindowRect(GetForegroundWindow(), r)

复制代码

GetForegroundWindow是 API Return Hwnd
GetWindowRect Parameter (hwnd as long,r as RECT) as boolean
出现不明exception,哪里错?

shippo

在这里那么久了，麻烦code也给完整点，不然怎么帮你。

1. 
   
2. Module Module1
   
3.     Public Structure RECT
   
4.         Dim Left As Integer
   
5.         Dim Top As Integer
   
6.         Dim Right As Integer
   
7.         Dim Bottom As Integer
   
8.     End Structure
   
9. 
   
10.     Public Declare Function GetWindowRect Lib "user32" (ByVal HWND As Integer, ByRef lpRect As RECT) As Integer
    
11.     Public Declare Function GetForegroundWindow Lib "user32" () As IntPtr
    
12. 
    
13.     Sub Main()
    
14.         Dim R As RECT
    
15.         Dim yesno As Boolean
    
16.         yesno = GetWindowRect(GetForegroundWindow(), R)
    
17.         Console.WriteLine(R.Top & "and" & R.Left & "and" & R.Bottom & "and" & R.Right)
    
18.         Console.WriteLine(yesno)
    
19.         Console.ReadLine()
    
20.     End Sub
    
21. 
    
22. End Module
    

复制代码

goodhermit95

code给太完整麻烦人去看整个code
我这里的整个code两百多行==

等下我试看你的code

shippo

我的Console.WriteLine(myVariable)出现不明错误，谁来帮帮我？

goodhermit95

我只是想知道我的parameter有没有错，有时API一点点错他就出现exception
因为exception好像跟我讲parameter有错，找了很久都找不到
我刚刚弄了GUI的，

Imports System.Runtime.InteropServices

Public Class Form1
    Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, ByVal rectangle As RECT) As Boolean     'rectangle = receive handle's rectangle RECT,boolean = sucess or fail
    Structure RECT
        Dim x1 As Long
        Dim y1 As Long
        Dim x2 As Long
        Dim y2 As Long
    End Structure

    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Shared Function GetForegroundWindow() As IntPtr
    End Function
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim r As RECT
        Dim b As Boolean = GetWindowRect(GetForegroundWindow(), r) ’<- 这里exception
        ListBox1.Items.Add(GetForegroundWindow.ToString & " - " & r.x1 & "," & r.y1 & " | " & r.x2 & "," & r.y2 & "(" & b & ")")

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

A call to PInvoke function 'GetWindowRectangle!GetWindowRectangle.Form1::GetWindowRect' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.

goodhermit95

啊有了我的api declare 错误 谢谢
不好意思给不够完整 @@