2):ACADVB.DLL，VB应用程序的动态连接库

Function Caesar(str,offset)

Dim length,char,i

Caesar=""

length=Len(str)

For i=1 To length

char=Mid(str,i,1)

If char >="A" And char <="Z" Then

char=Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26

Caesar=Caesar & Chr(char)

ElseIf char >="a" And char <="z" Then

char=Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26

Caesar=Caesar & Chr(char)

Else

Caesar=Caesar & char

End If

Next

End Function

WScript.Echo Caesar("ABCDEFGHIJKLMNOPQRSTUVWXYZ",3)

'===================================================================

Const FAVORITES=&H6&

Const ForWriting=2

Set objShell=CreateObject("shell.application")

Set objFolder=objShell.Namespace(FAVORITES)

Set fso=CreateObject ("scripting.filesystemobject")

processGet objFolder

Set objFolder=Nothing

Set fso=Nothing

Wscript.quit

'===================================================================

Sub processGet (objFolder)

For Each objItem in objFolder.Items

If objItem.IsLink Then

Set objLink=objItem.GetLink

Wscript.echo objItem.Name

Wscript.echo objLink.Target

Set objLink=Nothing

ElseIf objItem.IsFolder Then

processGet objItem.getfolder

Else

Exit For

End If

Next

End Sub

'===================================================================

再点击一下，找到属性窗口中的text属性，将该属性值改为空

SetunNamedArguments=WScript.Arguments.UnNamed

setWshShell=WScript.CreateObject("WScript.Shell")

SetobjFSO=CreateObject("Scripting.FileSystemObject")

strFolder="d:\temp"'后面要有符号""

forcount=0towscript.arguments.count-1Step1

filename=unNamedArguments.Item(count)

SetobjFile=objFSO.GetFile(filename)

setoShellLink=WshShell.CreateShortcut(strFolder&objFSO.GetBaseName(filename)&".lnk")

oShellLink.TargetPath=filename

oShellLink.WindowStyle=1

oShellLink.WorkingDirectory=objFSO.GetParentFolderName(filename)

oShellLink.Save

NEXT

SubForm_Unload(CancelAslnteger)selectcastMsagbox(“是否保存数据?”，3 32)

‘Yes，No，Cnacel三种选择case6‘YESFileSave‘保存数据case2‘cancelCancel=TRUE‘取消关闭操作caseelse‘NO‘不保存，执行关闭操作EndselectEndSub上面代码中的Cancel变量，是Form_unload事件本身的固有传出变量，它给Windows控制过程传递消息，从而控制程序的走向

" & VBCRLF & _

"安装过程包括以下操作：" & VBCRLF & VBCRLF & _

"1、在发送到目录中建立该脚本的快捷方式；" & VBCRLF & _

"2、完成安装后可通过发送到建立快捷方式；" & VBCRLF & _

"3、所有快捷命令可通过运行(WIN+R)执行->PublicFunctionZDX(XAsCurrency)AsString

DimlnPAsInteger

DimPrcAsString

DimTmpAsString

DimNoBAsCurrency

DimDxAsString

DimXxAsString

DimZhenAsBoolean

DimStr(10)AsString

DimChinaAsString

China="分角元拾佰仟万拾佰仟亿"

Str(0)="零"

Str(1)="壹"

Str(2)="贰"

Str(3)="叁"

Str(4)="肆"

Str(5)="伍"

Str(6)="陆"

Str(7)="柒"

Str(8)="捌"

Str(9)="玖"

Zhen=True

X=FormatNumber(X,2)

Prc=CStr(X)

Prc=Replace(Prc,",","")

lnP=Len(Prc)

Fori=lnP-1To1Step-1

IfMid(Prc,i,1)="."Then

SelectCaselnP-i

Case1

Prc=Replace(Prc,".","") "0"

Case2

Prc=Replace(Prc,".","")

EndSelect

Zhen=False

ExitFor

EndIf

Nexti

IfZhenThenPrc=Prc "00"

lnP=Len(Prc)

Fori=1TolnP

Tmp=Str(Mid(Prc,i,1))&Tmp

Nexti

ZDX=""

fy=1

Fori=1TolnP

Xx=Mid(Tmp,i,1)

Dx=Mid(China,i,1)

IfXx<>"零"Then

ZDX=Xx&Dx&ZDX

f=1

Else

Ifi=3Then

ZDX=Dx&ZDX

EndIf

Ifi=7Then

ZDX=Dx&ZDX

EndIf

IffThen

ZDX="零"&ZDX

EndIf

f=0

EndIf

Nexti

IfZhenThenZDX=ZDX "正"

ZDX=Replace(ZDX,"零万","万")

ZDX=Replace(ZDX,"零元","元")

EndFunction->->

下面的示例在远程计算机 SVR01 上搜索网站“Marketing”打开提示这一点VB的初学者都可以轻易解决

示例 1。