做一个等待，如
vars("标志") = False
Dim sdt As Date = Date.NowWhile Date.Now < sdt.AddSeconds(5) AndAlso vars("标志") = False Application.DoEventsEnd While
msgbox("5秒后执行,或者vars变量为true执行")
send代码之后，执行上面代码，然后，你好友接收到信息以后，回发一个信息，然后你接收到信息后，设置vars("标志") = True
加好友 
发短信
Post By：2018/4/18 18:03:00 [显示全部帖子]
