以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于QQClient的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117756)
--  作者：ap9709130
--  发布时间：2018/4/18 17:42:00
--  关于QQClient的问题
老师

好友和好友之间不通过QQServer，如何可以实际像SendWait 这样的功能？
--  作者：有点甜
--  发布时间：2018/4/18 18:03:00
--  

做一个等待，如

 

vars("标志") = False

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(5) AndAlso vars("标志") = False
    Application.DoEvents
End While

msgbox("5秒后执行,或者vars变量为true执行")

 

send代码之后，执行上面代码，然后，你好友接收到信息以后，回发一个信息，然后你接收到信息后，设置vars("标志") = True