Question

VB SendMessage出错

代码如下：
Private Sub Command1_Click()
a = FindWindow("Notepad", "无标题 - 记事本")
Text1.Text = a
Dim TempStr As String
TempStr = Space(255)
StrLong = Len(TempStr)
Rtn = SendMessage(a, WM_GETTEXT, StrLong, TempStr)
TempStr = Trim(TempStr)
MsgBox TempStr
End Sub
帮我解决下列问题：1.为什么会出错，正确的类型是什么？2.当我把
SendMessage(a, WM_GETTEXT, StrLong, TempStr)

中的a换成具体"2622008"(用FINDWINDOW找出的)，只会弹个空的MSGBOX，没内容...3.请给个正确的通过句柄获取标题内容的例子(SendMessage中的WM_GETTEXT)，好的还可以加分~

Answer 1

1、你的SendMessage应该用的是默认的写法，第四个参数是 as any，传递string变量时会出错，这和VB中字符串的存储方式有关。直接用的话就是byref，传递给api的是string变量本身的地址而不是字符串的起始地址，api函数往string变量的地方写入字符，内存访问违规。将第四个参数的声明改成 byval xxx as string。另外变量记得声明，尤其是往外传递参数的时候，这个例子中虽然没错，但难保别处不错。

2、改过之后能获得窗体标题，我验证过了。
3、如果你是为了练习sendmessage的话无所谓，如果是为了取标题用GetWindowText和GetWindowTextLength更好理解些。

追问

请给下代码，我是菜鸟，谢谢。因为byval xxx as string会出错...

追答

兄弟，我复制的你的代码，改成byval后没错啊……
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const WM_GETTEXT = &HD
Private Sub Form_Load()
Dim a As Long, StrLong As Long, Rtn As Long
a = FindWindow("Notepad", "无标题 - 记事本")
Dim TempStr As String
TempStr = Space(255)
StrLong = Len(TempStr)
Rtn = SendMessage(a, WM_GETTEXT, StrLong, TempStr)
TempStr = Trim(TempStr)
MsgBox TempStr
End
End Sub
上面这几行，我确定没错，如果你还是出错的话……电脑的问题了……