脚本之家 服务器常用软件
快捷导航
您的位置：首页 → 脚本专栏 → vbs → vbs 字典生成器

用vbs写的短小精悍的字典生成器

 更新时间：2008年05月05日 12:33:12   作者：  
'code by lcx ,很好,很强大,很黄很暴力,很傻很天真,很zd很cnn '这个程序是算不同数字与字母的所有排列组合,当然可以做为字典生成器来用.如需不同组合,只需改本程序a和b的变量即可以.

使用方法'use:cscript this.vbs > dic.txt　
把下面的代码保存为this.vbs 

复制代码 代码如下:

a=Array(1,2,3,4,"a") 
Function js1(n) 
for i=1 to n 
f=f&"f"&i&"&" 
s=s&"For Each f"&i &" In a :wscript.echo "& f 
s=Mid(S,1,Len(S)-1)&":" 
Next 
js1=s 
End Function 

Function js2(n) 
for i=1 to n 
m=m & "Next" & ":" 
Next 
js2=m 
End Function 

lcx= js1(UBound(a)+1)&js2(UBound(a)+1) 
lcx=Mid(lcx,1,Len(lcx)-1) 
b="a=Array(1,2,3,4,""a""):"&lcx 

Execute b 

相关文章

最新评论