取单字 加随机字

181073644

这是我测试发QQ邮箱时写的代码， 比方说发送的内容是  没有问题呀 发送时是
* 没<DIV style="LINE-HEIGHT: 0px; DISPLAY: inline; FLOAT: left; HEIGHT: 0px; CLEAR: both; OVERFLOW: hidden">(烁岗影徊缚乃诙腊闷亚胺对贫刀案内鼻涸倒撞潭缚姓聘豪敛涡仑蹈秆潘春泄峭市在岳邑谈悸兄撞铺涟氖)</DIV>
* 有<DIV style="LINE-HEIGHT: 0px; DISPLAY: inline; FLOAT: left; HEIGHT: 0px; CLEAR: both; OVERFLOW: hidden">(卧沧俑救耗硬布绿忻卜熬官恋思厩么从磕燃关嘿忧厩椎撇勘章节芽涌丝荚雅移邢唇涟潦斡执缸耐殴欧陶)</DIV>
* 问<DIV style="LINE-HEIGHT: 0px; DISPLAY: inline; FLOAT: left; HEIGHT: 0px; CLEAR: both; OVERFLOW: hidden">(烈飞山窃倩藤呵德破医鞘骋偕冈葡蔽撞厝再怪苯幻芽沃莆貌俺谮聊节勘玫悦咨叹节悸脸陀聘狄假秩炎衙)</DIV>
* 题<DIV style="LINE-HEIGHT: 0px; DISPLAY: inline; FLOAT: left; HEIGHT: 0px; CLEAR: both; OVERFLOW: hidden">(擦猩焕囤谘镜慷也盖方瞻偃春斯哺帽兑纠蓖谒葱市潘吧辜加勇峙邑佑侠附途珊识陀图妇虑桃么搜哦厍峭)</DIV>
* 呀<DIV style="LINE-HEIGHT: 0px; DISPLAY: inline; FLOAT: left; HEIGHT: 0px; CLEAR: both; OVERFLOW: hidden">(哦木冶首墓部首由巳煽春降墩智馅迫加途虑囟蔷节桃苫咨撞淤彻释聘刳优北景谔刚弦新嚼始谔假假矫节)</DIV>
发送后QQ收件箱显示为正常的   没有问题呀
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 整数, 整数型
.局部变量 临时, 文本型, , "0"
.局部变量 单字, 文本型
.局部变量 i, 整数型
.局部变量 临时汉字, 文本型

置随机数种子 ()
整数 ＝ 到整数 (文本_取随机范围数字 (6, 50))
文本_逐字分割 (编辑框1.内容, 临时)
.计次循环首 (取数组成员数 (临时), i)
    文本 ＝ 临时 ＋ #常量2 ＋ 文本_取随机汉字 (整数, ) ＋ #常量3
    输出调试文本 (文本)
.计次循环尾 ()

.版本 2

.常量 常量1
.常量 常量2, "<文本长度: 105>"
.常量 常量3, "<文本长度: 7>"

常量2  
<DIV style="LINE-HEIGHT: 0px; DISPLAY: inline; FLOAT: left; HEIGHT: 0px; CLEAR: both; OVERFLOW: hidden">(
常量3
)</DIV>

358463121

额。。你的意思是不让别人复制你的文字？？否则会出现乱七八糟的文字？