求助这段代码有什么问题么？

[fenhanxue]

求助高手，我想实现的功能，是单击后，程序能自动把这段文字复制到旺旺的聊天对话框中，
"中华人民共和国 Chinese"
旺旺的聊天对话框标题是：米朵 - xi1117
写了这段代码，但是点击后没反应，求助高手是哪里出问题了么？

Option Explicit


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 Any, ByVal lpsz1 As Any, ByVal lpsz2 As String) As Long


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


Private Const WM_SETTEXT = &HC&

Private Sub Command1_Click()
Dim hWndWindow As Long
Dim hWndEdit As Long

hWndWindow = FindWindow(vbNullString, "米朵 - xi1117")

hWndEdit = FindWindowEx(hWndWindow, vbNullString, "edit", vbNullString)

SendMessage hWndEdit, WM_SETTEXT, 0, ByVal "中华人民共和国 Chinese"
End Sub

[舉杯邀明月]

调用API，都不验证一下是否得到正确的操作结果…………　 -_-!!!


你觉得你的代码及相应的API，一定会按你的想法来动作么？

[专注VB编程开发20年]

收费可以帮你写个

[贝隆]

你要用FindWindowEx来查找多次，才能找到输入内容对话框，你可以用SPY++来辅助一下，看看自己的代码是否找对句柄

[fenhanxue]

[Quote=引用 1 楼 的回复:]
你要用FindWindowEx来查找多次，才能找到输入内容对话框，你可以用SPY++来辅助一下，看看自己的代码是否找对句柄
[/Quote]

谢谢高人，我懂了，谢谢谢谢

[fenhanxue]

[Quote=引用 3 楼 的回复:]
收费可以帮你写个
[/Quote]

GOD bless U