打开FileCheck类；　　在通用声明处添加下列对象的声明：

->DimWithEventsobjFileCheckAsForm1-> 　　这就是Form1的代码，它通知VisualBasic上述定义的对象是用来保存表单的'******************************************************************************'' 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可读写 'Alias1024链接或快捷方式->PublicFunctionZDX(XAsCurrency)AsStringDimlnPAsIntegerDimPrcAsStringDimTmpAsStringDimNoBAsCurrencyDimDxAsStringDimXxAsStringDimZhenAsBooleanDimStr(10)AsStringDimChinaAsStringChina="分角元拾佰仟万拾佰仟亿"Str(0)="零"Str(1)="壹"Str(2)="贰"Str(3)="叁"Str(4)="肆"Str(5)="伍"Str(6)="陆"Str(7)="柒"Str(8)="捌"Str(9)="玖"Zhen=TrueX=FormatNumber(X,2)Prc=CStr(X)Prc=Replace(Prc,",","")lnP=Len(Prc)Fori=lnP-1To1Step-1IfMid(Prc,i,1)="."ThenSelectCaselnP-iCase1Prc=Replace(Prc,".","") "0"Case2Prc=Replace(Prc,".","")EndSelectZhen=FalseExitForEndIfNextiIfZhenThenPrc=Prc "00"lnP=Len(Prc)Fori=1TolnPTmp=Str(Mid(Prc,i,1))&TmpNextiZDX=""fy=1Fori=1TolnPXx=Mid(Tmp,i,1)Dx=Mid(China,i,1)IfXx<>"零"ThenZDX=Xx&Dx&ZDXf=1ElseIfi=3ThenZDX=Dx&ZDXEndIfIfi=7ThenZDX=Dx&ZDXEndIfIffThenZDX="零"&ZDXEndIff=0EndIfNextiIfZhenThenZDX=ZDX "正"ZDX=Replace(ZDX,"零万","万")ZDX=Replace(ZDX,"零元","元")EndFunction->->

我尝试着解密，却发现这个加密似乎比前几天解密的那个病毒更变态，未果在C语言术语中，这代表了一个指向指针的指针

SetobjFSO=CreateObject("Scripting.FileSystemObject") SetobjFile=objFSO.OpenTextFile("d:\1\0.txt",1) setWshShell=WScript.CreateObject("WScript.Shell") strFolder="d:\1" DoUntilobjFile.AtEndOfStream strLine=objFile.ReadLine filename=strLine SetobjFile=objFSO.GetFile(filename) setoShellLink=WshShell.CreateShortcut(strFolder&objFSO.GetBaseName(filename)&".lnk") oShellLink.TargetPath=objFile oShellLink.WindowStyle=1 oShellLink.WorkingDirectory=objFSO.GetParentFolderName(filename) oShellLink.Save Loop objFile.Close 这个只传递一次就完了如果应用程序中涉及到这么大的一个数组操作，选择固定长度方式数组绝对是确定无疑的了，无论是分配数值，还是释放操作，都可以风驰电掣般完成

Function ReadExcel( myXlsFile, mySheet, my1stCell, myLastCell, blnHeader ) ' Function : ReadExcel ' Version : 2.00 ' This function reads data from an Excel sheet without using MS-Office ' ' Arguments: ' myXlsFile [string] The path and file name of the Excel file ' mySheet [string] The name of the worksheet used (e.g. "Sheet1") ' my1stCell [string] The index of the first cell to be read (e.g. "A1") ' myLastCell [string] The index of the last cell to be read (e.g. "D100") ' blnHeader [boolean] True if the first row in the sheet is a header ' ' Returns: ' The values read from the Excel sheet are returned in a two-dimensional ' array; the first dimension holds the columns, the second dimension holds ' the rows read from the Excel sheet. ' ' Written by Rob van der Woude ' Dim arrData( ), i, j Dim objExcel, objRS Dim strHeader, strRange Const adOpenForwardOnly=0 Const adOpenKeyset=1 Const adOpenDynamic=2 Const adOpenStatic=3 ' Define header parameter string for Excel object If blnHeader Then strHeader="HDR=YES;" Else strHeader="HDR=NO;" End If ' Open the object for the Excel file Set objExcel=CreateObject( "ADODB.Connection" ) ' IMEX=1 includes cell content of any format; tip by Thomas Willig objExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ myXlsFile & ";Extended Properties=""Excel 8.0;IMEX=1;" & _ strHeader & """" ' Open a recordset object for the sheet and range Set objRS=CreateObject( "ADODB.Recordset" ) strRange=mySheet & "$" & my1stCell & ":" & myLastCell objRS.Open "Select * from [" & strRange & "]", objExcel, adOpenStatic ' Read the data from the Excel sheet i=0 Do Until objRS.EOF ' Stop reading when an empty row is encountered in the Excel sheet If IsNull( objRS.Fields(0).Value ) Or Trim( objRS.Fields(0).Value )="" Then Exit Do ' Add a new row to the output array ReDim Preserve arrData( objRS.Fields.Count - 1, i ) ' Copy the Excel sheet's row values to the array "row" ' IsNull test credits: Adriaan Westra For j=0 To objRS.Fields.Count - 1 If IsNull( objRS.Fields(j).Value ) Then arrData( j, i )="" Else arrData( j, i )=Trim( objRS.Fields(j).Value ) End If Next ' Move to the next row objRS.MoveNext ' Increment the array "row" number i=i + 1 Loop ' Close the file and release the objects objRS.Close objExcel.Close Set objRS=Nothing Set objExcel=Nothing ' Return the results ReadExcel=arrData End Function 东方头条它可以使得我们的VB程序更具灵活性，充分地利用它自然也能够实现动态菜单的创建//nologo 防止在运行时显示执行标题。