用vbs寫(xiě)的短小精悍的字典生成器
更新時(shí)間：2008年05月05日 12:33:12 作者：
'code by lcx ,很好,很強(qiáng)大,很黃很暴力,很傻很天真,很zd很cnn
'這個(gè)程序是算不同數(shù)字與字母的所有排列組合,當(dāng)然可以做為字典生成器來(lái)用.如需不同組合,只需改本程序a和b的變量即可以.
使用方法'use:cscript this.vbs > dic.txt
把下面的代碼保存為this.vbs
復(fù)制代碼 代碼如下:
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
相關(guān)文章
Stream、WshShell、WshUrlShortcut對(duì)象及Shell.Application的參數(shù)與使用
Stream、WshShell、WshUrlShortcut對(duì)象及Shell.Application的參數(shù)與使用...2007-03-03
Ｎ年前，那時(shí)估計(jì)知道%5c暴庫(kù)的人還很少。這個(gè)vbs腳本應(yīng)當(dāng)是Lilo寫(xiě)的,應(yīng)當(dāng)深深表達(dá)一下敬意……2008-02-02
Windows系統(tǒng)中通過(guò)vbs實(shí)現(xiàn)循環(huán)運(yùn)行.bat/.exe等文件
有時(shí)候我們需要在電腦上循環(huán)運(yùn)行一些命令,例如每5分鐘執(zhí)行一次,如果不結(jié)合別的計(jì)劃軟件就可以通過(guò)vbs來(lái)實(shí)現(xiàn)2024-04-04
我們?cè)谟醚咐谆騠lashget時(shí)間長(zhǎng)了后，下載過(guò)的文件地址都保存在已下載分類(lèi)中，我們可以把這些珍貴的地址列表都導(dǎo)出，保存到一個(gè)txt文件中。2010-11-11
VBS教程：屬性-ParentFolder 屬性...2006-11-11
返回基于0的一維數(shù)組,其中包含指定樹(shù)木的子字符串.下面的例子,將字符串以&為標(biāo)記分割開(kāi)來(lái)2006-11-11
文件夾定時(shí)自動(dòng)備份 AutoBackUpFolder.vbs
定時(shí)自動(dòng)備份文件夾到一個(gè)以時(shí)間命名的新目錄，設(shè)置好后加到啟動(dòng)項(xiàng)里，只要一啟動(dòng)機(jī)器程序就會(huì)自動(dòng)運(yùn)行，占系統(tǒng)資源可以不計(jì)。2009-07-07
VBS教程：函數(shù)-Exp 函數(shù)...2006-11-11
右鍵發(fā)送(sendto)，創(chuàng)建快捷方式到自定義的位置
右鍵發(fā)送(sendto)，創(chuàng)建快捷方式到自定義的位置...2007-03-03
VBS教程：VBScript 語(yǔ)句-Sub 語(yǔ)句
VBS教程：VBScript 語(yǔ)句-Sub 語(yǔ)句...2006-11-11