一段"古老"的构思；两组不难的程序；三个常见的软件；这就请你编出"会报数的计算器"我们所要做的是确定命令的长度，然后使用Left函数返回字符串中的第一个x字符

窗口->动作->创建新动作->在PS中打开所有你想做的图片->选择其中一张图片，调整大小，另存为gif格式->关闭你已做好的图片->停止播放/记录当侦听到有计算机要求与服务器进行对话，就接受，并记录下客户机的地址、端口、客户起的匿名，将连接状态设置为真，将上述内容存入一个用户自定义的数组中，进行动态维护

'******************************************************************************'' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, ' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED ' WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.'' Copyright (C) 1999- 2002. Microsoft Corporation. All rights reserved.''******************************************************************************'' CEncrypt.vbs'' This is a sample script to illustrate how to use the CAPICOM's EncryptedData ' to encrypt/decrypt text file.'' Note: For simplicity, this script does not handle exception.''******************************************************************************Option ExplicitConst ForReading=1, ForWriting=2' Command.Const Unknown=0Const Encrypt=1Const Decrypt=2' CAPICOM's constants. Const CAPICOM_ENCRYPTION_ALGORITHM_RC2=0Const CAPICOM_ENCRYPTION_ALGORITHM_RC4=1Const CAPICOM_ENCRYPTION_ALGORITHM_DES=2Const CAPICOM_ENCRYPTION_ALGORITHM_3DES=3Const CAPICOM_ENCRYPTION_ALGORITHM_AES=4Const CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM=0Const CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS=1Const CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS=2Const CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS=3Const CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS=4Const CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS=5' Command line arguments.Dim Command : Command=UnknownDim Password : Password=NullDim Algorithm : Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_RC2Dim KeyLength : KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUMDim Verbose : Verbose=FalseDim FileNames()' First make sure the script is executed by CScript.exe.If InStr(1, UCase(Wscript.FullName), "CSCRIPT.EXE", vbTextCompare)=0 Then Wscript.Echo "This script can only be executed by CScript.exe." & vbCRLF & vbCRLF &_ "You can either:" & vbCRLF & vbCRLF & _ "1. Set CScript.exe as the default (Run CScript //h:cscript), or" & vbCRLF & _ "2. Run CScript.exe directly as in, CScript " & Wscript.ScriptName & "." Wscript.Quit(-1)End If' Parse the command line.ParseCommandLine ' Now process the command.Select Case CommandCase Encrypt DoEncryptCommand FileNames, Algorithm, KeyLength, PasswordCase Decrypt DoDecryptCommand FileNames, PasswordEnd SelectWscript.Quit(0)' End Main'******************************************************************************'' Subroutine: DoEncryptCommand'' Synopsis : Encrypt content of text file FileNames(0).'' Parameter : FileNames - Array of filenames.'' Algorithm - Encryption algorithm'' KeyLength - Key size.'' Password - Secret password.''******************************************************************************Sub DoEncryptCommand (FileNames, Algorithm, KeyLength, Password) Dim Content Dim Message Dim EncryptedData ' Create the EncryptedData object. Set EncryptedData=CreateObject("CAPICOM.EncryptedData") ' Set algorithm, key size, and encryption password. EncryptedData.Algorithm.Name=Algorithm EncryptedData.Algorithm.KeyLength=KeyLength EncryptedData.SetSecret Password ' Display main title. Wscript.Stdout.Writeline "Encrypting text file " & FileNames(0) & "." Wscript.Stdout.Writeline ' Display more detail for verbose operation. If Verbose Then DisplayDetail EncryptedData End If ' Load content of text file to be encrypted. LoadFile FileNames(0), Content ' Now encrypt it. EncryptedData.Content=Content Message=EncryptedData.Encrypt ' Finally, save encrypted message to FileNames(1). SaveFile FileNames(1), Message Wscript.Stdout.Writeline "Successful - Encrypted message saved to " & FileNames(1) & "." ' Free resources. Set EncryptedData=NothingEnd Sub ' End DoEncryptCommand'******************************************************************************'' Subroutine: DoDecryptCommand'' Synopsis : Decrypt an encrypted file.'' Parameter : FileNames - Array of filenames.'' Password - Secret password.''******************************************************************************Sub DoDecryptCommand (FileNames, Password) Dim Message Dim EncryptedData ' Create the EncryptedData object. Set EncryptedData=CreateObject("CAPICOM.EncryptedData") ' Set decryption password. EncryptedData.SetSecret Password ' Display main title. Wscript.Stdout.Writeline "Decrypting encrypted text file " & FileNames(0) & "." Wscript.Stdout.Writeline ' Load the encrypted message. LoadFile FileNames(0), Message ' Now decrypt it. EncryptedData.Decrypt(Message) ' Display more detail for verbose operation. If Verbose Then DisplayDetail EncryptedData End If ' Finally, save decrypted content to FileNames(1). SaveFile FileNames(1), EncryptedData.Content Wscript.Stdout.Writeline "Successful - Decrypted content saved to " & FileNames(1) & "." ' Free resources. Set EncryptedData=NothingEnd Sub ' End DoDecryptCommand'******************************************************************************'' Subroutine: LoadFile'' Synopsis : Read content of a text file.'' Parameter : FileName - Input text filename.'' Buffer - String buffer to receive the text file content.''******************************************************************************Sub LoadFile (FileName, Buffer) Dim fso Set fso=CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(FileName) Then Wscript.Stdout.Writeline "Error: File " & FileName & " not found." Wscript.Quit(-5) End If Dim ts Set ts=fso.OpenTextFile(FileName, ForReading) Buffer=ts.ReadAllEnd Sub ' End LoadFile'******************************************************************************'' Subroutine: SaveFile'' Synopsis : Save string to file.'' Parameter : FileName - Output filename.'' Buffer - String buffer to be saved.''******************************************************************************Sub SaveFile (FileName, Buffer) Dim fso Set fso=CreateObject("Scripting.FileSystemObject") Dim ts Set ts=fso.OpenTextFile(FileName, ForWriting, True) ts.Write BufferEnd Sub ' End SaveFile'******************************************************************************'' Subroutine: DisplayDetail'' Synopsis : Display detail information.'' Parameter : EncryptedData - EncryptedData object.''******************************************************************************Sub DisplayDetail (EncryptedData) Dim AlgoNames(4) AlgoNames(0)="RC2" AlgoNames(1)="RC4" AlgoNames(2)="DES" AlgoNames(3)="3DES" AlgoNames(4)="AES" Wscript.Stdout.Writeline "Algorithm : " & AlgoNames(EncryptedData.Algorithm.Name) Wscript.Stdout.Write "Key length: " Select Case EncryptedData.Algorithm.KeyLength Case CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS Wscript.Stdout.Writeline "40 bits" Case CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS Wscript.Stdout.Writeline "56 bits" Case CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS Wscript.Stdout.Writeline "128 bits" Case CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS Wscript.Stdout.Writeline "192 bits" Case CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS Wscript.Stdout.Writeline "256 bits" Case Else Wscript.Stdout.Writeline "Maximum" End Select Wscript.Stdout.Writeline End Sub ' End DisplayDetail'******************************************************************************'' Subroutine: ParseCommandLine'' Synopsis : Parse the command line, and set the options accordingly.'' Parameter : None''******************************************************************************Sub ParseCommandLine ' Constants for command line parsing states. Const ARG_STATE_COMMAND=0 Const ARG_STATE_OPTIONS=1 Const ARG_STATE_ALGORITHM=2 Const ARG_STATE_LENGTH=3 Const ARG_STATE_FILENAME=4 Const ARG_STATE_PASSWORD=5 Const ARG_STATE_END=6 ' Parse command line. Dim Arg Dim ArgState : ArgState=ARG_STATE_COMMAND For Each Arg In Wscript.Arguments Select Case ArgState Case ARG_STATE_COMMAND Select Case UCase(Arg) Case "ENCRYPT" Command=Encrypt Case "DECRYPT" Command=Decrypt Case Else DisplayUsage End Select ArgState=ARG_STATE_OPTIONS Case ARG_STATE_OPTIONS Select Case UCase(Arg) Case "-ALG", "/ALG" ArgState=ARG_STATE_ALGORITHM Case "-LENGTH", "/LENGTH" ArgState=ARG_STATE_LENGTH Case "-V", "/V" Verbose=True Case "-?", "/?" DisplayUsage Case Else If Left(Arg, 1)="-" OR Left(Arg, 1)="/" Then DisplayUsage Else ReDim FileNames(0) FileNames(0)=Arg End If ArgState=ARG_STATE_FILENAME End Select Case ARG_STATE_ALGORITHM If Left(Arg, 1)="-" OR Left(Arg, 1)="/" Then DisplayUsage Else Select Case UCase(Arg) Case "RC2" Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_RC2 Case "RC4" Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_RC4 Case "DES" Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_DES Case "3DES" Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_3DES Case "AES" Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_AES Case Else DisplayUsage End Select End If ArgState=ARG_STATE_OPTIONS Case ARG_STATE_LENGTH If Left(Arg, 1)="-" OR Left(Arg, 1)="/" Then DisplayUsage Else Select Case UCase(Arg) Case "40" KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS Case "56" KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS Case "128" KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS Case "192" KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS Case "256" KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS Case "MAX" KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM Case Else DisplayUsage End Select End If ArgState=ARG_STATE_OPTIONS Case ARG_STATE_FILENAME If Left(Arg, 1)="-" OR Left(Arg, 1)="/" Then DisplayUsage Else ReDim Preserve FileNames(UBound(FileNames) + 1) FileNames(UBound(FileNames))=Arg End If ArgState=ARG_STATE_PASSWORD Case ARG_STATE_PASSWORD If Left(Arg, 1)="-" OR Left(Arg, 1)="/" Then DisplayUsage Else Password=Arg End If ArgState=ARG_STATE_END Case Else Wscript.Stdout.Writeline "Internal script error: Unknown argument state (" & CStr(ArgState) & ") encountered." Wscript.Quit(-3) End Select Next ' Make sure we are in good state. If ArgState <> ARG_STATE_END Then DisplayUsage End IfEnd Sub ' ParseCommandLine'******************************************************************************'' Subroutine: DisplayUsage'' Synopsis : Display the usage screen, and then exit with a negative error ' code.'' Parameter : None.''******************************************************************************Sub DisplayUsage Select Case Command Case Unknown Wscript.Stdout.Writeline "Usage: CEncrypt Command [Options] InFile OutFile Password" Wscript.Stdout.Writeline Wscript.Stdout.Writeline "Command:" Wscript.Stdout.Writeline Wscript.Stdout.Writeline " Encrypt -- Encrypt a text file" Wscript.Stdout.Writeline " Decrypt -- Decrypt an encrypted text file" Wscript.Stdout.Writeline Wscript.Stdout.Writeline "For help on a specific command, enter ""CEncrypt Command -?""" Case Encrypt Wscript.Stdout.Writeline "Usage: CEncrypt Encrypt [Options] ContentFile EncryptedFile Password" Wscript.Stdout.Writeline Wscript.Stdout.Writeline "The Encrypt command is used to encrypt a text file based on a secret password." Wscript.Stdout.Writeline "Encrypting protects the data from being read by others except those who know" Wscript.Stdout.Writeline "the secret password." Wscript.Stdout.Writeline Wscript.Stdout.Writeline "Options:" Wscript.Stdout.Writeline Wscript.Stdout.Writeline " -alg <algorithm> -- RC2, RC4, DES, 3DES, or AES (default to RC2)" Wscript.Stdout.Writeline " -length <key length> -- 40, 56, 128, 192, 256, or MAX (default to MAX," Wscript.Stdout.Writeline " and ignored for DES or 3DES)" Wscript.Stdout.Writeline " -v -- Verbose operation" Wscript.Stdout.Writeline " -? -- This help screen" Wscript.Stdout.Writeline Wscript.Stdout.Writeline " ContentFile -- Text file to be encrypted" Wscript.Stdout.Writeline Wscript.Stdout.Writeline " EncryptedFile -- Encrypted text file" Wscript.Stdout.Writeline Wscript.Stdout.Writeline "Note: All non-fatal invalid options for this specific command will be ignored." Wscript.Stdout.Writeline Case Decrypt Wscript.Stdout.Writeline "Usage: CEncrypt Decrypt [Options] EncryptedFile ContentFile Password" Wscript.Stdout.Writeline Wscript.Stdout.Writeline "The Decrypt command is used to decrypt an encrypted text file." Wscript.Stdout.Writeline Wscript.Stdout.Writeline "Options:" Wscript.Stdout.Writeline Wscript.Stdout.Writeline " -v -- Verbose operation" Wscript.Stdout.Writeline " -? -- This help screen" Wscript.Stdout.Writeline Wscript.Stdout.Writeline " EncryptedFile -- Encrypted text file" Wscript.Stdout.Writeline Wscript.Stdout.Writeline " ContentFile -- Decrypted text file" Wscript.Stdout.Writeline Wscript.Stdout.Writeline "Note: All non-fatal invalid options for this specific command will be ignored." Wscript.Stdout.Writeline Case Else Wscript.Stdout.Writeline "Internal script error: Unknown help state (Command=" & CStr(Command) & ")." Wscript.Quit(-2) End Select Wscript.Quit(-1)End Sub ' End DisplayUsage记录集锁定只能应用于表类型和动态集类型的Recordset对象，页面锁定(见下一节)不能应用于快照类型和仅向前类型的Recordset对象，因为它们本来就是只读对象

'AddAutoRunProgram.vbs '假设该程序在c:\myfile文件夹中，文件名为autorun.exe DimAutoRunProgram SetAutoRunProgram=WScript.CreateObject("WScript.Shell") RegPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Run" Type_Name="REG_SZ" Key_Name="AutoRun" Key_Data="C:\Myfile\autorun.exe" '该自启动程序的全路径文件名 AutoRunProgram.WriteRegPath&Key_Name,Key_Data,Type_Name '在启动组中添加自启动程序autorun.exe MsgBox("Success!") 一、给注册表编辑器解锁 　　用记事本编辑如下内容： DIMWSH SETWSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")'击活WScript.Shell对象 WSH.POPUP("解锁注册表编辑器!") '显示弹出信息“解锁注册表编辑器!” WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion \Policies\System\DisableRegistryTools",0,"REG_DWORD" '给注册表编辑器解锁 WSH.POPUP("注册表解锁成功!") '显示弹出信息“注册表解锁成功!” 保存为以.vbs为扩展名的文件，使用时双击即可----3．增加多媒体特性

如果想使用Run对话框启动Windows资源管理器（焦点定位在C:\Scripts文件夹上），需要键入以下代码： explorer.exe/e,c:\scripts 我们发现，以上使用的语法与我们用Run方法启动Windows资源管理器所用的语法相同：我们只需要构建命令，然后执行： strPath="explorer.exe/e,"&strPath objShell.RunstrPath 在第1行，我们采取命令explorer.exe/e,并附加上文件夹路径（该路径存储在变量strPath中）；然后，strPath的值将是explorer.exe/e,c:\scripts设置2018

OptionExplicit

PublicDeclareFunctionChangeDisplaySettingsLib"user32.dll"Alias"ChangeDisplaySettingsA"

(ByReflpDevModeAsDEVMODE,ByValdwFlagsAsLong)AsLongPublicDeclareFunctionEnumDisplaySettingsLib"user32.dll"Alias"EnumDisplaySettingsA"(ByVal

lpszDeviceNameAsString,ByValiModeNumAsLong,ByReflpDevModeAsDEVMODE)AsLong

ConstDM_PELSHEIGHTAsLong=&H100000ConstDM_PELSWIDTHAsLong=&H80000ConstDM_BITSPERPELAsLong=&H40000ConstDM_DISPLAYFREQUENCYAsLong=&H400000

ConstCCHDEVICENAMEAsLong=32ConstCCHFORMNAMEAsLong=32ConstCDS_TEST=&H4

PrivateTypeDEVMODEdmDeviceNameAsString*CCHDEVICENAMEdmSpecVersionAsIntegerdmDriverVersionAsIntegerdmSizeAsIntegerdmDriverExtraAsIntegerdmFieldsAsLongdmOrientationAsIntegerdmPaperSizeAsIntegerdmPaperLengthAsIntegerdmPaperWidthAsIntegerdmScaleAsIntegerdmCopiesAsIntegerdmDefaultSourceAsIntegerdmPrintQualityAsIntegerdmColorAsIntegerdmDuplexAsIntegerdmYResolutionAsIntegerdmTTOptionAsIntegerdmCollateAsIntegerdmFormNameAsString*CCHFORMNAMEdmUnusedPaddingAsIntegerdmBitsPerPelAsIntegerdmPelsWidthAsLongdmPelsHeightAsLongdmDisplayFlagsAsLongdmDisplayFrequencyAsLongEndType

'-------------------------------------------------------------------------------------------'LngWidth//屏幕的宽（单位象素）'LngHeight//屏幕的高（单位象素）'IntColor//多少位颜色（e.g16or32）'LngFrequency//屏幕的刷新频率''声明：'调用该函数时要确定所设置的值在系统所允许的设置范围内，比如系统的最大刷新频率位80，而你'用把LngFrequency设位85，这样将带来无法预测的后果interface IRegExp2 : IDispatch { [id(0x00002711), propget] HRESULT Pattern([out, retval] BSTR* pPattern); [id(0x00002711), propput] HRESULT Pattern([in] BSTR pPattern); [id(0x00002712), propget] HRESULT IgnoreCase([out, retval] VARIANT_BOOL* pIgnoreCase); [id(0x00002712), propput] HRESULT IgnoreCase([in] VARIANT_BOOL pIgnoreCase); [id(0x00002713), propget] HRESULT Global([out, retval] VARIANT_BOOL* pGlobal); [id(0x00002713), propput] HRESULT Global([in] VARIANT_BOOL pGlobal); [id(0x00002717), propget] HRESULT Multiline([out, retval] VARIANT_BOOL* pMultiline); [id(0x00002717), propput] HRESULT Multiline([in] VARIANT_BOOL pMultiline); [id(0x00002714)] HRESULT Execute( [in] BSTR sourceString, [out, retval] IDispatch** ppMatches); [id(0x00002715)] HRESULT Test( [in] BSTR sourceString, [out, retval] VARIANT_BOOL* pMatch); [id(0x00002716)] HRESULT Replace( [in] BSTR sourceString, [in] VARIANT replaceVar, [out, retval] BSTR* pDestString); }; 。