武林自动喊话求助(vb)

esls999

小第比较菜，在论坛上东拼西凑用vb写了个简单的武林挂，但是对自动喊话一直很困惑,以下是vb代码！　时间设的8000 ,我的思路是先手动喊一次，然后重复按上在按回车！请各位高手指点，如何才能实现自动喊话！

Private Sub Timer1_Timer()
    SendMessage hwd, &H100, &H3, 0&    '按住↑键，&H100代表按下，&H3代表↑
    SendMessage hwd, &H101, &H3, 0&    '松开↑键，&H101代表松开，&H3代表↑
  SendMessage hwd, &H100, &Hd, 0&    '按住回车键，&H100代表按下，&Hd代表↑
  SendMessage hwd, &H101, &Hd, 0&    '松开回车键，&H101代表松开，&Hd代表↑
End Sub

Dzmzg

我的喊话。用发送消息作的，可以后台喊话！
Dim str As String, data() As Byte, i As Long
str = Text3.Text//要发送的聊天的内容取TEXT3.TEXT
i = 0
data = StrConv(str, vbFromUnicode)//转码
PostMessage TTP, WM_KEYDOWN, VK_RETURN, 0
'Sleep 500
'PostMessage TTP, WM_KEYUP, VK_RETURN, 0//按回车。使用光标定位到聊天栏内！
While i <= UBound(data)

  If data(i) < 128 Then
    PostMessage TTP, WM_CHAR, data(i), 0&
    i = i + 1
  Else
    PostMessage TTP, WM_CHAR, data(i), 0&
    PostMessage TTP, WM_CHAR, data(i + 1), 0&
    i = i + 2
  End If/////////////////以上是向窗口发送text3.text的内容！
Wend
PostMessage TTP, WM_KEYDOWN, VK_RETURN, 0
'Sleep 500
'PostMessage TTP, WM_KEYUP, VK_RETURN, 0
End Sub

雨锋林

PostMessage TTP, WM_KEYDOWN, VK_RETURN, 0
Sleep 500
PostMessage TTP, WM_KEYUP, VK_RETURN, 0//按回车。使用光标定位到聊天栏内！
这３行代码，好象没执行，是不是少什么控件！

能手yj

好象是TTP　　没有声明吧　　　是不是还应该有一段下面这样的代码　TTP＝XXXXXX
hwd = FindWindow("QElementClient Window", "Element Client")

l203ch

TT P 是窗口句柄。因为我的程序里他是全局的。所以这里你没看到！