我来申请,贴下代码:
'申请版主---------Begin--------
dim str1,str2,spe,l
str1=chr(-18186)+chr(-14133)+chr(-17166)+chr(-16134)
spe=chr(10)+chr(13) & chr(10)+chr(13)
str2=chr(-12075)+chr(-15365)+chr(-23622)+chr(122)+chr(100)+chr(120)+chr(102)+chr(32)+chr(32)+chr(32)+chr(32)+chr(-12076)+chr(-19984)+chr(-23622)+chr(-15152)+chr(32)+chr(32)+chr(32)+chr(32)+chr(-20306)+chr(-17725)+chr(-23622)+chr(86)+chr(66)+chr(47)+chr(86)+chr(66)+chr(83)+chr(47)+chr(100)+chr(101)+chr(108)+chr(112)+chr(104)+chr(105)
l=(len(str2)-8)/2
str1=string (l," ")+str1
str2=str1&spe&str2&spe& chr(81)+chr(81)+chr(-23622)+chr(51)+chr(53)+chr(48)+chr(49)+chr(48)+chr(54)+chr(53)+chr(53)+chr(51)+chr(32)+chr(32)+chr(32)+chr(69)+chr(45)+chr(109)+chr(97)+chr(105)+chr(108)+chr(58)+chr(119)+chr(104)+chr(122)+chr(106)+chr(49)+chr(49)+chr(49)+chr(64)+chr(49)+chr(54)+chr(51)+chr(46)+chr(99)+chr(111)+chr(109)
msgbox str2,64,chr(-13846)+chr(-14357)+chr(-20250)+chr(-10505)
'---------end-----------
[此贴子已经被作者于2008-7-13 15:46:55编辑过]