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

[NIRVANAIII]

怎样比较可靠的转让控制权。
Doevents有点跟不上要求。

举个例子：用VB控制让QQ连续发100个条信息，在网速较快的情况下Doevents还凑合，但只要稍有一些慢，绝对保证不了能发出100条，是吧？
还以这个为例提出设想，当发出一条信息后Hook住QQ，等发送一条记录成功后，在返回。这里又要用AddressOf了，实现器来太麻烦了，而且系统下降。

还有更简单的办法吗？

还有，当让一个模块去执行了，半截想令其停止怎么做？


解决问题，高分相赠（你开价）

[NIRVANAIII]

在系统中已经建立一个消息队列，真出于执行中，怎么能撤消还未执行的消息？
给点代码示例

[Chice_wxg]

我只想到这种办法：

Do While True
If (GetWindowLong(hTextWnd, GWL_STYLE) And ES_READONLY) = ES_READONLY Then
上一条消息发送完毕，可以发送下一条了
End If
DoEvents
Loop



你需要先找到QQ聊天窗口输入框（其实是RichEdit）的句柄，hTextWnd



现在我再赚分也没意义了，2个星星很难再升级 ^_^

[Chice_wxg]

竟然打错了~~~~~


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

[NIRVANAIII]

当让一个模块去执行了，半截想令其停止怎么做？

[Chice_wxg]

自己加控制代码

[limengchen]

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

private sub cmdCancel_Click()0D blnCancel=true
end sub

[fontz]

13

[NIRVANAIII]

UP