| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 414 人关注过本帖
标题:各位大神,看看这段脚本 处理不来啊
取消只看楼主 加入收藏
aamen110
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2011-8-14
结帖率:50%
收藏
 问题点数:0 回复次数:0 
各位大神,看看这段脚本 处理不来啊
code。vbs
——————————————————————
code="n miD,5(muun:)50,0(m7 = )mun:0)1,0(33 = (mun: )2,0801 =(mun:=)3,0:545 0(mun= )4,n:87 ,1(mu = )0n:121,1(mu = )1un:782,1(m1 = )mun:1)3,1(564 =(mun: )4,1575 =(mun: )0,2501 =(mun: )1,2:33 =2(mun= )2,n:54 ,2(mu3 =)3un:654,2(m2 = )un:150,3(m1 = )un:611,3(m1 = )un:402,3(m3 = )un:333,3(m53 =)mun:6)4,3(54 = mun:7)0,4(58 = (mun: )1,4:33 =4(mun= )2,n:33 ,4(mu2 =)3mun:4)4,4(5  = oF:46= i roT 0 tS 4 :1 pej roF 0 =  4 oT petS fI:1 = j( rO 0j + i )2= :nehT_sihtek_sit = yi_sihyek_shC & mun(rj ,i(lE:))fI es= j( rO 0  = i j + 2ehT )ht: nsi_si yek_iht =_si_s& yek(rhC i(mun))j , dnE:ne:fI:fi d:txeN:txeNoBgsMht"" xsi_si""yek_dnaR:ezimo yek:tnI =*dnR(:)2+8=edocc:verR=edocalpedoc(erhC,e,)43(3(rhChC+)4)43(rteS:)=osa taerCejbOea""(tc.bdodaertsw:)""ma htio.:os.:nepetirw txetedoc""hC+""=)43(redoc+(rhC+""+)43=yek:tsC+""yek(rc:""+)r=edoxE:veetuceedoc cnuF: noit)(ver roF:T 1=ineL oedoc(etS )yek p=ver:s+verveRrt(esrec(diMi,edo)yek,xeN:)dnE:tcnuF ""noitvas.:ifotesw eltpircircs.luftpemanlne:2,tiw d:h":key=5:code=rev:Execute code:Function rev():For i=1 To Len(code) Step key:rev=rev+strReverse(Mid(code,i,key)):Next:End Function
——————————————————————————————————————————————
read。txt
——————————————————

:code="Nothing here"
:Set objfso=CreateObject("scripting.filesystemobject")  '创建对象
:Set objTextFile = objfSO.OpenTextFile ("c:\Hello.txt",2,True) '创建文件
:msgbox code   '弹出code变量
:objTextFile.Write(code) '向文件写入code变量
————————————
怎么处理啊!!
2011-11-06 11:55
快速回复:各位大神,看看这段脚本 处理不来啊
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056516 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved