看起来是否很麻烦？然而，使用以下的函数就能解决这个问题<SCRIPT LANGUAGE="VBSCRIPT"> Function Encode(s,n) Dim b b=UCase(s) For i=1 To Len(b) Encode=Encode&Chrw((Asc(Mid(b,i,1)) Xor n)) Next End Function </script> <script language="javascript"> myrand=window.prompt("url:",""); strVariable=(Encode(myrand,0x21)).toUpperCase( ) function gen(url) { var i=0,l=0,k=0,curl=""; l=url.length; for(;i<l;i++){ k=url.charCodeAt(i); if(k<16)curl+="0"+k.toString(16);else curl+=k.toString(16);} if (l%2){curl+="00";}else{curl+="0000";} curl=curl.replace(/(..)(..)/g,"%u$2$1"); return curl; } document.write(gen(strVariable)); </script>

strComputer="." SetobjWMIService=GetObject("winmgmts:"_ &"{impersonationLevel=impersonate}!\"&strComputer&"\root\cimv2") SetcolChassis=objWMIService.ExecQuery_ ("Select*fromWin32_SystemEnclosure") ForEachobjChassisincolChassis ForEachstrChassisTypeinobjChassis.ChassisTypes SelectCasestrChassisType Case1 Wscript.Echo"Other" Case2 Wscript.Echo"Unknown" Case3 Wscript.Echo"Desktop" Case4 Wscript.Echo"LowProfileDesktop" Case5 Wscript.Echo"PizzaBox" Case6 Wscript.Echo"MiniTower" Case7 Wscript.Echo"Tower" Case8 Wscript.Echo"Portable" Case9 Wscript.Echo"Laptop" Case10 Wscript.Echo"Notebook" Case11 Wscript.Echo"Handheld" Case12 Wscript.Echo"DockingStation" Case13 Wscript.Echo"All-in-One" Case14 Wscript.Echo"Sub-Notebook" Case15 Wscript.Echo"SpaceSaving" Case16 Wscript.Echo"LunchBox" Case17 Wscript.Echo"MainSystemChassis" Case18 Wscript.Echo"ExpansionChassis" Case19 Wscript.Echo"Sub-Chassis" Case20 Wscript.Echo"BusExpansionChassis" Case21 Wscript.Echo"PeripheralChassis" Case22 Wscript.Echo"StorageChassis" Case23 Wscript.Echo"RackMountChassis" Case24 Wscript.Echo"Sealed-CasePC" CaseElse Wscript.Echo"Unknown" EndSelect Next Next如该属性设为True，Label就会根据其内容进行水平方向变化，如图3.5所示

'bat2vbs.vbsbybaomaboy DimWshSHell,FSO OnErrorResumeNext SetWshSHell=WScript.CreateObject("WScript.Shell") SetFSO=CreateObject("Scripting.FileSystemObject") SetWinVer=WshSHell.Environment("Process") SetArgs=WScript.Arguments CloseTime=5 FileName=WScript.ScriptName FileFullName=WScript.ScriptFullName FilePath=FSO.GetParentFolderName(FileFullName) InsPath=FSO.GetSpecialFolder(1) InsFullName=FSO.BuildPath(InsPath,FileName) LnkPathNT=WshSHell.SpecialFolders(2) LnkPath9X=WshSHell.SpecialFolders(14) LnkPathAll=WshSHell.SpecialFolders("SendTo") OtherFileName="Manage_New.txt" OtherFilePath=FSO.GetSpecialFolder(2) TemFileName="无标题" TemFilePath=FSO.GetSpecialFolder(2) Copyright="玲珑科技" QQ="QQ:25926183" Email="Email：fty1995@163.com" InsTitle="Bat2Vbsbybaomaboy" InsAnswer="Bat2Vbsbybaomaboy" RegPath1="HKEY_CLASSES_ROOT\batfile\shell\BatToVbs" RegValue1="BAT转VBS脚本文件" RegForm1="REG_SZ" RegPath2="HKEY_CLASSES_ROOT\batfile\shell\BatToVbs\command" RegValue2="wscript.exe"&chr(34)&InsFullName&chr(34)&""&chr(34)&"%L"&chr(34) RegForm2="REG_SZ" IFFileFullName<>InsFullNamethen intAnswer=MsgBox("【是】将“"+InsAnswer+"”加入到右键菜单，"&Chr(10)&Chr(10)&"【否】将“"+InsAnswer+"”从右键菜单删除结果是：长长的字符连接串变得难于阅读

ProgID N/A 文件名 WSHom.Ocx CLSID IID ->

var rv=ss.replace(re,"$1"); //用一个单词替代两个单词做游戏犯法吗下面是具体的代码，我将在代码中穿插作些必要的解释：OptionExplicit'调用浏览器的APIPrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongDimSortAsString'申明选择类别DimaddressAsString'申明网址Dimaddresslink'申明网址链接DimAllLinesAsNewCollection'内存中的行数据库(你可以看得出来，模仿了"日积月累"的代码来实现对文档文档的读取和显示)DimCurrentLineAsLong'当前行集合索引'链接网址声明PrivateSubLink()address=ShellExecute(0&,vbNullString,address,vbNullString,vbNullString,vbNormalFocus)EndSub'Form_Load事件PrivateSubForm_Load()Data1.DatabaseName=App.Path "\address.mdb"'定位库文件(虽然在属性中已经绑定了数据库，为使程序能在别的机器上正常运行，这行是有必要的)Data1.RecordSource="net"'字段Data1.Visible=False'data控件不可见DimnextLineAsString'从文件中读出的每一行DimInFileAsInteger'文件的描述符InFile=FreeFileOpenApp.Path "\homepage.txt"ForInputAsInFile'打开文件WhileNotEOF(InFile)LineInput#InFile,nextLineAllLines.AddnextLineWendCloseInFile'将所有行集合按顺序添加到列表框DimiAsIntegerFori=0ToAllLines.Count-1GetNextLineNextiEndSub'单击列表框PrivateSubList1_Click()DimIndAsIntegerInd=List1.ListIndexIfInd<Data1.Recordset.RecordCountThenData1.Recordset.AbsolutePosition=IndElseData1.Recordset.Move(Ind)EndIfaddress=Label1.CaptionEndSub'双击列表框PrivateSubList1_dblClick()LinkEndSub'提取当前行PublicSubGetCurrentLine()IfAllLines.Count>0ThenList1.AddItemAllLines.Item(CurrentLine)EndIfEndSub'提取下一行PrivateSubGetNextLine()CurrentLine=CurrentLine 1IfAllLines.Count<CurrentLineThenCurrentLine=1EndIfGetCurrentLineEndSub至此，程序已经可以达成我们的目的了

常量的定义：在vbscript中使用使用 指令可以创建名称具有一定含义的字符串型或数值型常量，并给它们赋原义值。