发送的信息，加上项目的名称
Dim msg As String = p & dt.Name & "#" & r("_Identify") & "#" & ApplicationTitle
接收到信息以后，判断发过来的信息和自己的ApplicationTitle是否相同即可。
加好友 
发短信
Post By：2017/6/29 9:49:00 [显示全部帖子]
