我想使用sendmessage往另一个程序中的编辑框中输入内容
模块中
Public Const WM_SETTEXT = 12
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

窗体中
Dim i As Long
Dim s As String
s = "Hello"
i = SendMessage(asktao_hwnd, WM_SETTEXT, 0, ByVal s)
'asktao_hwnd是在之前获得的游戏窗口的句柄，已经证明有效（使用FlashWindow时能看到效果）
但是执行上述代码时出现错误：

实时错误49
DLL调用约定错误

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


最后面少了AS LONG

果然是这样

恩，看来我猜的没错

[[it] 本帖最后由 flyue 于 2008-7-9 20:54 编辑 [/it]]

少了as long是复制的疏忽，我程序中并没少
建议楼上各位加上as long试试
在微软网站上查到一个帖子，建议各位看看，虽然是极其翻译，但是还是差不多http://support.

字符串实际上是由两部分组成，一个指针和一个Unicode字符数组；最后一个参数是lParam As Any，如果要传递给它一个long型肯定没问题，但是要传递字符串的话，它获得的只能是一个指针（即一个long型的数），所以会发生错误，解决的办法是在前面加一个byval

我测试过了，少了AsLong导致出那个错……