参考
Dim sdt As Date = Date.NowWhile Date.Now < sdt.AddSeconds(10) '等到10秒 Application.DoEventsEnd Whilemsgbox(3)
加好友 
发短信
Post By：2016/8/10 15:53:00 [显示全部帖子]
