如果长度不等，那么将下面的代码:
idx = CInt(max.Substring(2,3)) + 1
改为：
idx = CInt(max.Substring(max.Length -3,3)) + 1
加好友 
发短信
Post By：2014/1/8 17:16:00 [只看该作者]
