杨一 - 2007-4-10 23:03:00
1.在桌面上空白处点鼠标右键新建一个文本文档，然后把下面代码复制到里面！
t1="[" & "ftc=#"
t2="[" & "/ft]"
t=InputBox ("★═════════════════☆"& vbCr _
& "║鸽子提示你：有关于空间的事请进： ║" & vbcr _
& "║ 334885086空间！鸽子会让你找到快乐 ║" & vbcr _
& "║ 请输入字符 ║" &vbCr _
& "║ 以空格开头则用随机颜色 ║" & vbcr _
& "☆═════════════════★","鸽子做彩字1.0--魔法之城一切皆有可能")
tlen=Len(t) '得到字体的长度
If tlen>0 Then
Randomize
ti="" '输出的字体
n=16777215/tlen '得到颜色的增加量
n1=100+INT(RND*1000) '颜色的开始值
'MsgBox tlen
For i = 1 To tlen
If Left(t,1)=" " Then n1=Int(16767215*rnd)+10000 '当输入的字符以" "开头则用随机颜色
'ti=t1 & CInt("&H" & cR) & CInt("&H" & cG)& CInt("&H" & cB) & "]" Mid(t,i,1) & t2
ti=ti & t1 & Hex(n1) & "]" & Mid(t,i,1) & t2
n1=n1+n
Next
t=InputBox("★══════════════☆"& vbCr & "║ ║" & vbcr & "║魔法之城：334885086 ║" &vbCr & "║ 将下面文字复制 ║ " &vbCr & "║ ║" & vbcr & "☆══════════════★","鸽子祝你快乐输出",ti)
Else
MsgBox "鸽子请您正确输入文字"
End If
2.点"文件","另存为",另存一个文件，先在"保存类型"里选择"所有文件",文件名称为: qq.vbs 这样随机颜色编辑器就做好了。
3.打开随机颜色编辑器，然后输入你要变色的字,点击确定。（字体之间不要有空格，每次大约能变五十字左右。）
4.效果如下图所示：在空白处输入要变的字！点确定！然后出来代码！复制代码就可以！！
将结果复制-->粘贴到QQ空间的日志或留言板就可以看到随机的变色字体了!
t1="[" & "ftc=#"
t2="[" & "/ft]"
t=InputBox ("★═════════════════☆"& vbCr _
& "║鸽子提示你：有关于空间的事请进： ║" & vbcr _
& "║ 334885086空间！鸽子会让你找到快乐 ║" & vbcr _
& "║ 请输入字符 ║" &vbCr _
& "║ 以空格开头则用随机颜色 ║" & vbcr _
& "☆═════════════════★","鸽子做彩字1.0--魔法之城一切皆有可能")
tlen=Len(t) '得到字体的长度
If tlen>0 Then
Randomize
ti="" '输出的字体
n=16777215/tlen '得到颜色的增加量
n1=100+INT(RND*1000) '颜色的开始值
'MsgBox tlen
For i = 1 To tlen
If Left(t,1)=" " Then n1=Int(16767215*rnd)+10000 '当输入的字符以" "开头则用随机颜色
'ti=t1 & CInt("&H" & cR) & CInt("&H" & cG)& CInt("&H" & cB) & "]" Mid(t,i,1) & t2
ti=ti & t1 & Hex(n1) & "]" & Mid(t,i,1) & t2
n1=n1+n
Next
t=InputBox("★══════════════☆"& vbCr & "║ ║" & vbcr & "║魔法之城：334885086 ║" &vbCr & "║ 将下面文字复制 ║ " &vbCr & "║ ║" & vbcr & "☆══════════════★","鸽子祝你快乐输出",ti)
Else
MsgBox "鸽子请您正确输入文字"
End If
2.点"文件","另存为",另存一个文件，先在"保存类型"里选择"所有文件",文件名称为: qq.vbs 这样随机颜色编辑器就做好了。
3.打开随机颜色编辑器，然后输入你要变色的字,点击确定。（字体之间不要有空格，每次大约能变五十字左右。）
4.效果如下图所示：在空白处输入要变的字！点确定！然后出来代码！复制代码就可以！！
将结果复制-->粘贴到QQ空间的日志或留言板就可以看到随机的变色字体了!