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。
