- 注册时间
- 2011-3-10
- 最后登录
- 1970-1-1
该用户从未签到
|
发表于 2011-4-5 10:13:57
|
显示全部楼层
我的喊话。用发送消息作的,可以后台喊话!
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 |
|