VB SendMessage 发送多个Edit

1楼Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Const WM_SETTEXT = &HCPrivate Sub Command1_Click()
Dim h1 As Long
Dim h2 As Long
h1 = FindWindow(vbNullString, "YY 3.7")
h2 = FindWindowEx(h1, 0&, "edit", vbNullString)
SendMessage h2, WM_SETTEXT, 1, ByVal CStr("hello")h2 = FindWindowEx(h1, h2, "edit", vbNullString)
SendMessage h2, WM_SETTEXT, 1, ByVal CStr("第二个文本框")
End Sub我用的YY3.7 客户端做的实验,想实现自动输入账号登录效果
YY官网http://www.yy.com/
用Spy++ 账号和密码输入框控件类型都是:Edit
用以上代码能发送信息到登陆框内 可只能发送到密码登陆框.
而账号输入框始终不能传递信息 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了 
在线等啦 求高手帮帮忙了