用vbs写的短小精悍的字典生成器
用vbs写的短小精悍的字典生成器我爱电脑技术论坛" U& o2 |# h3 ~+ B v4 m
'code by lcx ,很好,很强大,很黄很暴力,很傻很天真,很zd很cnn
; y' K4 n5 x/ ~6 a* l. k'这个程序是算不同数字与字母的所有排列组合,当然可以做为字典生成器来用.如需不同组合,只需改本程序a和b的变量即可以.电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站# | \) i5 \% P# r/ y5 P5 D; a
'use:cscript this.vbs > dic.txt
* w8 L: z% i9 d4 @电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站a=Array(1,2,3,4,"a")我爱电脑技术社区--打造最好的电脑技术自学交流平台& h6 I4 X/ o2 f5 R- O
Function js1(n)
% i! `, z* J2 F, w& `打造最好的电脑自学交流论坛for i=1 to n
; z8 a5 J0 ~& m* ^8 R- x3 w我爱电脑技术社区--打造最好的电脑技术自学交流平台f=f&"f"&i&"&"我爱电脑技术论坛+ P1 w! }- ^0 K2 _2 I$ o1 a2 H+ V
s=s&"For Each f"&i &" In a :wscript.echo "& f我爱电脑技术社区--打造最好的电脑技术自学交流平台# k9 a ~( i5 |7 Q1 \" s
s=Mid(S,1,Len(S)-1)&":"打造最好的电脑自学交流论坛4 ~# G/ b; M0 D- j$ D1 [1 C
Next
- F$ t2 ^8 {7 @我爱电脑技术社区--打造最好的电脑技术自学交流平台js1=s& M8 `% y1 |7 i9 D$ C* ?+ [" X$ t
End Function我爱电脑技术论坛. P+ }" X! t. K
我爱电脑技术论坛) \. {# f* Z2 V; a' E2 f3 ^! z
Function js2(n)
: W. B% W- @+ {4 B电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站for i=1 to n打造最好的电脑自学交流论坛- e2 t* _: J7 e6 d8 V |1 o4 ]3 Z a
m=m & "Next" & ":"
; T& V+ k' I" V! `1 ]电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站Next我爱电脑技术论坛4 v% _' ~0 @) T! n
js2=m我爱电脑技术社区--打造最好的电脑技术自学交流平台8 v2 z* q W$ b. @9 W) P' R
End Function电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站# I" O8 v# m9 S4 H, l% m
我爱电脑技术社区--打造最好的电脑技术自学交流平台$ Q/ X5 o5 m0 N
lcx= js1(UBound(a)+1)&js2(UBound(a)+1)打造最好的电脑自学交流论坛) I2 S7 c5 \$ l( Z* }% D& [. m
lcx=Mid(lcx,1,Len(lcx)-1)
5 s$ v+ `* |1 w7 {5 b$ j5 A我爱电脑技术论坛b="a=Array(1,2,3,4,""a""):"&lcxwww.520diannao.com. } E( f+ }( T/ `' d0 ^* Z. Q6 y7 ]
c5 f4 f8 V9 e& y8 _& y, C; H我爱电脑技术论坛Execute b
