如果自己设计的登陆系统，不是更简单吗？
在登陆按钮的后面加上代码：
'原来的代码
RibbonTabs("xxx").Groups("ttt").Items("mmm").Text = _UserName
加好友 
发短信
Post By：2013/6/24 15:05:00 [显示全部帖子]
