码迷,mamicode.com
首页 > 其他好文 > 详细

变量名自动变化

时间:2014-11-28 09:53:27      阅读:154      评论:0      收藏:0      [点我收藏+]

标签:ar   sp   for   ad   amp   file   text   ip   br   

RANDOMIZE
Set PAGT = CreateObject("scripting.filesystemobject") 
FUNF = PAGT.OpenTextFile(wscript.scriptfullname,1).ReadAll
WScript.Echo PAGT.GetFile(wscript.scriptfullname).Name
IKCS = Array("PAGT","FUNF","IKCS","GJHF","AVRR") 
For GJHF = 0To4
    a = Chr(Fix(Rnd*25)+65) & Chr(Fix (Rnd *25)+65) & Chr(Fix (Rnd *25)+65) & Chr( Fix( Rnd*25)+65)
    
    FUNF = Replace(FUNF,IKCS(GJHF),a) 
next
PAGT.opentextfile(wscript.scriptfullname,2,1).write FUNF

变量名自动变化

标签:ar   sp   for   ad   amp   file   text   ip   br   

原文地址:http://www.cnblogs.com/futrueface/p/4127679.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!