!!!!!!!!!!转让控制权的问题（加分中……）!!!!!!!!!!

Question

我只想到这种办法：Do While True
If (GetWindowLong(hTextWnd, GWL_STYLE) And ES_READONLY) = ES_READONLY Then
上一条消息发送完毕，可以发送下一条了
End If
DoEvents
Loop你需要先找到QQ聊天窗口输入框（其实是RichEdit）的句柄，hTextWnd  现在我再赚分也没意义了，2个星星很难再升级  ^_^

Answer 1

竟然打错了~~~~~
Do While True
If (GetWindowLong(hTextWnd, GWL_STYLE) And ES_READONLY) <> ES_READONLY Then
上一条消息发送完毕，可以发送下一条了
End If
DoEvents
Loop

Answer 2

在窗体上放一个控件，Name属性设为cmdCancel,caption属性设为cancel，代码如下
private blnCancel as boolean0Dprivate sub SendMessageByQQ(...)
dim i as integer
for i=1 to 100
   ... '发送一条信息
   doevents
   if blnCancel then exit sub0D
next i
end subprivate sub cmdCancel_Click()0D
blnCancel=true
end sub