求救,代码问题.我快疯了!!!!

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
Private Const WM_SETTEXT = &HCPrivate Sub Command1_Click()
   Dim Name As String
   Name = Text1.Text
   Dim dHwnd As Long
   Dim tHwnd As Long
  dHwnd = FindWindow("#32770", "热血江湖")
  tHwnd = FindWindowEx(dHwnd, 0, "#32770", "登陆")
  tHwnd = FindWindowEx(tHwnd, 0, "ComboBox", vbNullString)
   tHwnd = FindWindowEx(tHwnd, 0, "Edit", vbNullString)
   SendMessage tHwnd, WM_SETTEXT, 0, ByVal CStr(Name)
End Sub通过程序,将Text1里的文本传输到热血江湖的登陆框中的帐号里.
前天测试还是可以的,为什么现在不可以,哪里出错了吗?我找不到哪错,我快要疯了,谁来帮帮我?