GetWindowText报错求助
我的系统为win7 64位+vs2010
代码如下:
Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hWnd As Long
hWnd = FindWindow("FxMain", vbNullString)
Dim a As String
a = Space(255)
GetWindowText(hWnd, a, 255) '报错
MessageBox.Show(a)
End Sub
