正确的写法是：theStr="[MyName="&""""&"schunter"&""""&"Class="&""""&"2"&""""&"]"也就是有引号的地方，需要两个引号才能生成一个引号Option Explicit'○○○○○○○○○○○○○○○○○○○○○○○○○○○○○开始Const blnVBSShowCaption=True'生成的服务备份中是否添加说明Const blnVBSShowDescription=True'●●●●●●●●●●●●●●●●●●●●●●●●●●●●●结束'文件读写标识常量Const Forwriteing=8'读取出来的自动模式类型Const cstrAutoForRead="Auto"'用于设定的自动模式类型Const cstrAutoForWrite="Automatic"'变更历史状态Const cstrStateNotFound="Not Found"Const cstrStateNotSetted="Not Setted"Const cstrStateNotChanged="Not Changed"Const cstrStateChanged="Changed"'服务变更类型Class clsServiceChange '服务名称 Public Name '服务显示名称 Public Caption '服务描述 Public Description '服务初始启动模式 Public StartModeFrom '服务之后启动模式 Public StartModeTo '服务启动变更标识 Private Sub Class_Initialize() Name="" Caption="" Description="" StartModeFrom="" StartModeTo="" End Sub Public Property get State If StartModeFrom="" Then State="Not Found" Exit Property End If If StartModeTo="" Then State="Not Setted" Exit Property End If If StartModeFrom=StartModeTo Then State="Not Changed" Else State="Changed" End If End PropertyEnd Class'文件系统dim objFileSystem'备份的VBS文件Dim objVBSFile'WshShell 对象dim objWShell'windows 系统管理模块Dim objWinManagment'系统服务集Dim objServices'所操作的电脑标识Dim strComputer'备份文件路径Dim strVBSFilePath'备份文件名Dim strVBSFileName'信息Dim strMessage'数组索引Dim intIndex'Log暂存Dim astrLog()'服务变更历史Dim aobjServiceChange()Redim aobjServiceChange(0)Redim astrLog(0)'添加多条变更原则'○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○'自己修改位置（开始）'○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○AddRuler "Alerter" ,"Disabled"AddRuler "ALG" ,"Manual"AddRuler "AppMgmt" ,"Manual"AddRuler "aspnet_state" ,"Disabled"AddRuler "Ati HotKey Poller" ,"Disabled"AddRuler "AudioAddRuler" ,"Auto"AddRuler "BITS" ,"Manual"AddRuler "Browser" ,"Disabled"AddRuler "CiSvc" ,"Disabled"AddRuler "ClipSrv" ,"Disabled"AddRuler "ClipAddRuler" ,"Disabled"AddRuler "COMSysApp" ,"Disabled"AddRuler "CryptSvc" ,"Auto"AddRuler "DcomLaunch" ,"Auto"AddRuler "DF5Serv" ,"Auto"AddRuler "Dhcp" ,"Auto"AddRuler "dmadmin" ,"Manual"AddRuler "dmserver" ,"Manual"AddRuler "Dnscache" ,"Disabled"AddRuler "ERSvc" ,"Disabled"AddRuler "Eventlog" ,"Auto"AddRuler "EventSystem" ,"Auto"AddRuler "FastUserSwitchingCompatibility" ,"Disabled"AddRuler "helpsvc" ,"Manual"AddRuler "HidServ" ,"Disabled"AddRuler "HTTPFilter" ,"Manual"AddRuler "ImapiService" ,"Disabled"AddRuler "lanmanserver" ,"Manual"AddRuler "lanmanworkstation" ,"Auto"AddRuler "LmHosts" ,"Disabled"AddRuler "MDM" ,"Disabled"AddRuler "Messenger" ,"Disabled"AddRuler "mnmAddRulerc" ,"Manual"AddRuler "mnmsrvc" , "Disabled"AddRuler "MSDTC" ,"Disabled"AddRuler "MSIServer" ,"Manual"AddRuler "NetDDE" ,"Disabled"AddRuler "NetDDEdsdm" ,"Disabled"AddRuler "Netlogon" ,"Manual"AddRuler "Netman" ,"Auto"AddRuler "Nla" ,"Disabled"AddRuler "NtLmSsp" ,"Manual"AddRuler "NtmsSvc" ,"Disabled"AddRuler "NVSvc" ,"Disabled"AddRuler "O&O Defrag" ,"Manual"AddRuler "ose" ,"Manual"AddRuler "PlugPlay" ,"Auto"AddRuler "PolicyAgent" ,"Disabled"AddRuler "ProtectedStorage" ,"Auto"AddRuler "RasAuto" ,"Disabled"AddRuler "RasMan" ,"Disabled"AddRuler "RDSessMgr" ,"Disabled"AddRuler "RemoteAccess" ,"Disabled"AddRuler "RemoteRegistry" ,"Disabled"AddRuler "RpcLocator" ,"Manual"AddRuler "RpcSs" ,"Auto"AddRuler "RSVP" ,"Disabled"AddRuler "SamSs" ,"Auto"AddRuler "SCardSvr" ,"Disabled"AddRuler "Schedule" ,"Disabled"AddRuler "seclogon" ,"Auto"AddRuler "SENS" ,"Disabled"AddRuler "SharedAccess" ,"Disabled"AddRuler "ShellHWDetection" ,"Manual"AddRuler "sicentnetsync" ,"Auto"AddRuler "Spooler" ,"Manual"AddRuler "srservice" ,"Disabled"AddRuler "SSDPAddRuler" ,"Disabled"AddRuler "SSDPSRV" ,"Disabled"AddRuler "stisvc" ,"Manual"AddRuler "SwPrv" ,"Disabled"AddRuler "SysmonLog" ,"Manual"AddRuler "TapiAddRuler" ,"Manual"AddRuler "TermService" ,"Disabled"AddRuler "Themes" ,"Auto"AddRuler "TlntSvr" ,"Disabled"AddRuler "TrkWks" ,"Disabled"AddRuler "TapiSrv" ,"Disabled"AddRuler "UMWdf" ,"Auto"AddRuler "upnphost" ,"Disabled"AddRuler "UPS" ,"Disabled"AddRuler "usnjsvc" ,"Manual"AddRuler "VSS" ,"Disabled"AddRuler "VMAuthdService" ,"Manual"AddRuler "VMnetDHCP" ,"Manual"AddRuler "VMware NAT Service" ,"Manual"AddRuler "W32Time" ,"Disabled"AddRuler "WebClient" ,"Disabled"AddRuler "winmgmt" ,"Auto"AddRuler "WinVNC4" ,"Manual"AddRuler "WmdmPmSN" ,"Disabled"AddRuler "Wmi" ,"Manual"AddRuler "WmiApAddRuler" ,"Manual"AddRuler "wscsvc" ,"Manual"AddRuler "wuauserv" ,"Disabled"AddRuler "WZCSVC" ,"Auto"AddRuler "xmlprov" ,"Manual"'●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●'自己修改位置（结束）'●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●'设定电脑为本机strComputer="."Set objWShell=CreateObject("Wscript.Shell")'备份至我的文档strVBSFilePath=objWShell.SpecialFolders("MyDocuments") & "\ServiceBack"'以当前时间作为备份文件名strVBSFileName="Service" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & "-" & Hour(Time) & "-" & Minute(Time) &".vbs"Set objFileSystem=CreateObject("Scripting.FileSystemObject")'备份文件路径存在性验证和添加文件夹If Not objFileSystem.FolderExists(strVBSFilePath) Then objFileSystem.CreateFolder(strVBSFilePath)End If'备份文件存在性验证If objFileSystem.FileExists(strVBSFilePath & strVBSFileName) Then '文件存在的情况下 Msgbox "The File Has been in existence.",16,"Warning!"Else '本机管理模块对象初始化 Set objWinManagment=GetObject("Winmgmts:\"& strComputer &"\Root\Cimv2") '本机服务集取得 Set objServices=objWinManagment.ExecQuery("Select * From Win32_Service") '文件对象创建 Set objVBSFile=objFileSystem.CreateTextFile(strVBSFilePath & strVBSFileName ,ForWriteing) objVBSFile.WriteLine vbcrlf objVBSFile.WriteLine "'Runable Backup:" objVBSFile.WriteLine "'=============================" objVBSFile.WriteLine "Const cstrAutoForRead=""Auto""" objVBSFile.WriteLine "Const cstrAutoForWrite=""Automatic""" objVBSFile.WriteLine "intChangeCount=0" objVBSFile.WriteLine "intChangeSuccessCount=0" objVBSFile.WriteLine "strComputer="".""" objVBSFile.WriteLine "Const Forwriteing=8" objVBSFile.WriteLine "If Msgbox(""Are You Sure You Want To Restore Your Service ?"",VBYesNo+vbInformation,""Restore Service"")=vbYes Then" objVBSFile.WriteLine " Set objWinManagment=GetObject(""Winmgmts:\""& strComputer &""\Root\Cimv2"")" objVBSFile.WriteLine " Set objServices=objWinManagment.ExecQuery(""Select * From Win32_Service"")" strMessage=GOT() objVBSFile.WriteLine " Set objWinManagment=Nothing" objVBSFile.WriteLine " Set objServices=Nothing" objVBSFile.WriteLine "End If" objVBSFile.WriteLine "Function SRV(SRN,SRM)" objVBSFile.WriteLine " For Each S In objServices" objVBSFile.WriteLine " If s.Name=Srn And S.StartMode<>SRM Then" objVBSFile.WriteLine " intChangeCount=intChangeCount+1 " objVBSFile.WriteLine " If SRM=cstrAutoForRead Then " objVBSFile.WriteLine " strStartModeTemp=cstrAutoForWrite " objVBSFile.WriteLine " Else " objVBSFile.WriteLine " strStartModeTemp=SRM " objVBSFile.WriteLine " End If " objVBSFile.WriteLine " If S.ChangeStartMode(strStartModeTemp)=0 Then " objVBSFile.WriteLine " intChangeSuccessCount=intChangeSuccessCount+1 " objVBSFile.WriteLine " End If " objVBSFile.WriteLine " End if" objVBSFile.WriteLine " Next" objVBSFile.WriteLine "End Function" If Msgbox ("Backup services Completed" & Chr(13) & strVBSFilePath & strVBSFileName & Chr(13) & "'(" & strMessage & ")" &"Begin optimization?",VBYesNo+vbInformation,"Complete" )=vbYes Then '执行服务设置 strMessage=SRV Msgbox "Optimization completed!restart Your computer?" & Chr(13) & "'(" & strMessage & ")",vbOKOnly+vbInformation,"OK" ' If Msgbox("Optimization completed!restart Your computer?" & Chr(13) & "'(" & strMessage & ")",VBYesNo+vbInformation,"OK")=vbYes Then' objWShell.Run "Shutdown.exe -r -t 5"' End if End if 'Log输出 Call OutputLog '备份文件关闭 objVBSFile.CloseEnd if'对象释放For intIndex=0 To Ubound(aobjServiceChange) Set aobjServiceChange(intIndex)=NothingNextErase aobjServiceChange Erase astrLogSet objFileSystem=NothingSet objVBSFile=NothingSet objWShell=NothingSet objWinManagment=NothingSet objServices=NothingWscript.quit'''''''''''''''''''''''''''''''''''记录Log信息''''''''''''''''''''''''''''''''''Function WriteLog(strTemp) '检测当前数组值是否被初始化并初始化为空值 If Isempty(astrLog(Ubound(astrLog))) Then astrLog(Ubound(astrLog))="" End If astrLog(Ubound(astrLog))=astrLog(Ubound(astrLog)) & strTempEnd Function'''''''''''''''''''''''''''''''''''按行记录Log信息''''''''''''''''''''''''''''''''''Function WriteLineLog(strTemp) '检测当前数组值是否被初始化并初始化为空值 If Isempty(astrLog(Ubound(astrLog))) Then astrLog(Ubound(astrLog))="" End If astrLog(Ubound(astrLog))=astrLog(Ubound(astrLog)) & strTemp Redim Preserve astrLog(Ubound(astrLog)+1) astrLog(Ubound(astrLog))=""End Function'''''''''''''''''''''''''''''''''''输出Log信息''''''''''''''''''''''''''''''''''Function OutputLog() '数组计数器 Dim intIndex 'Log输出出错计数 Dim intLogOutputError intLogOutputError=0 For intIndex=0 To Ubound(astrLog) On Error Resume Next objVBSFile.WriteLine "'" & astrLog(intIndex) If Err.Number<>0 Then intLogOutputError=intLogOutputError+1 objVBSFile.WriteLine "'?Illegal Code" End If On Error Goto 0 Next If intLogOutputError<>0 Then objVBSFile.WriteLine "'?Log Output Error(" & intLogOutputError & ")" End IfEnd Function'''''''''''''''''''''''''''''''添加变更原则'''''''''''''''''''''''''''''''''Function AddRuler(SRN,SRM) Dim intIndex '遍历所有已经存在服务以防止重复 For intIndex=0 To Ubound(aobjServiceChange)-1 If aobjServiceChange(intIndex).Name=SRN Then WriteLineLog "?" & SRN & "'s Ruler duplicated " Exit Function End If Next Set aobjServiceChange(Ubound(aobjServiceChange))=New clsServiceChange '记录服务名称 aobjServiceChange(Ubound(aobjServiceChange)).Name=SRN '记录服务要变更成的启动模式 aobjServiceChange(Ubound(aobjServiceChange)).StartModeTo=SRM Redim Preserve aobjServiceChange(Ubound(aobjServiceChange)+1)End Function'''''''''''''''''''''''''''''''服务状态取得备份''''''''''''''''''''''''''''''Function GOT() '系统服务 Dim objService '服务名 Dim strServiceName '服务显示名 Dim strServiceCaption '服务启动模式 Dim strServiceMode '服务描述 Dim strServiceDescription '变更计数 Dim intChangeCount '有效规则计数 Dim intRuleredCount '规则计数 Dim intRuler '数组索引 Dim intIndex '与规则匹配上标识 Dim blnMatch intChangeCount=0 intRuleredCount=0 intRuler=Ubound(aobjServiceChange)-1 WriteLineLog vbcrlf WriteLineLog "Optimize Needed:" WriteLineLog "=============================" For Each objService in objServices blnMatch=False strServiceName=objService.Name strServiceCaption=objService.Caption strServiceMode=objService.StartMode strServiceDescription=objService.Description If IsNull(strServiceDescription) Then strServiceDescription="" End If strServiceDescription=Replace(strServiceDescription,vbcrlf,"") '是否在备份代码中显示说明 If blnVBSShowCaption Then objVBSFile.Write "'" '避免出现乱码的情况出错 On Error Resume Next objVBSFile.Write "(" & strServiceCaption & ") " '是否在备份代码中显示说明 If blnShowDescription Then objVBSFile.Write " [" & strServiceDescription & "]" End If objVBSFile.Writeline "" Err.clear On Error Goto 0 End If objVBSFile.WriteLine " SRV """& strServiceName &""","""& strServiceMode &"""" '变更检测（用于Log输出） For intIndex=0 To Ubound(aobjServiceChange)-1 '验证是否名称相同 If strServiceName=aobjServiceChange(intIndex).Name Then '修改是否匹配上的标识 blnMatch=True '记录匹配上的数目 intRuleredCount=intRuleredCount+1 '记录服务起始启动方式 aobjServiceChange(intIndex).StartModeFrom=strServiceMode '记录服务显示名称 aobjServiceChange(intIndex).Caption=strServiceCaption '记录服务描述 aobjServiceChange(intIndex).Description=strServiceDescription '验证是否需要变更 If strServiceMode<>aobjServiceChange(intIndex).StartModeTo Then '需要变更计数 intChangeCount=intChangeCount+1 WriteLineLog strServiceName & vbTab & "(" & strServiceCaption &")" & "[" & strServiceDescription &"]" WriteLineLog strServiceMode & vbTab & "--->" & vbTab & aobjServiceChange(intIndex).StartModeTo End If '查找到服务之后退出循环 Exit For End If Next '在规则中未规定的服务添加 If blnMatch=False then Set aobjServiceChange(Ubound(aobjServiceChange))=New clsServiceChange '记录服务名称 aobjServiceChange(Ubound(aobjServiceChange)).Name=objService.Name '记录服务别名 aobjServiceChange(Ubound(aobjServiceChange)).Caption=objService.Caption '记录服务描述 aobjServiceChange(Ubound(aobjServiceChange)).Description=objService.Description '记录服务初始的启动模式 aobjServiceChange(Ubound(aobjServiceChange)).StartModeFrom=objService.StartMode Redim Preserve aobjServiceChange(Ubound(aobjServiceChange)+1) End If Next objVBSFile.WriteLine " Msgbox ""Service Reset Completed"" & ""("" & intChangeSuccessCount &""/"" & intChangeCount & "")"" " GOT="Service:" & objServices.Count & ",Ruler:" & intRuler & ",Rulered:" & intRuleredCount & ",NotRulered:" & objServices.Count-intRuleredCount & ",ChangeNeed:" & intChangeCount & "" WriteLineLog "***********************************************************************************" WriteLineLog GOT WriteLineLog "***********************************************************************************" '输出未做规定的 WriteLineLog vbcrlf WriteLineLog "-----------------------------" WriteLineLog "Not Rulered:" WriteLineLog "-----------------------------" '遍历变更历史 For intIndex=0 To Ubound(aobjServiceChange)-1 '服务变更状态检测 If aobjServiceChange(intIndex).State=cstrStateNotSetted Then '未设定的服务信息输出 WriteLineLog """" & aobjServiceChange(intIndex).Name & """" & vbTab & ",""" & aobjServiceChange(intIndex).StartModeFrom & """" & vbTab & "(" & aobjServiceChange(intIndex).Caption & ")" & "[" & aobjServiceChange(intIndex).Description & "]" End If Next '清空对象 Set objService=NothingEnd Function'''''''''''''''''''''''''''''''''''''''''''''服务设定函数''''''''''''''''''''''''''''''''''''''''''''Function SRV() '系统服务 Dim objService '数组计数 Dim intIndex '服务描述 Dim strServiceDescription '要设定的服务启动方式暂存 Dim strStartModeTemp '服务启动方式修改成功计数 Dim intChangeSuccessCount '服务启动方式修改不成功计数 Dim intChangeNotSuccessCount intChangeSuccessCount=0 intChangeNotSuccessCount=0 WriteLineLog vbcrlf WriteLineLog "=============================" WriteLineLog "Optimize Record:" WriteLineLog "=============================" '修改失败的Log标题 WriteLineLog "-----------------------------" WriteLineLog "Change False:" WriteLineLog "-----------------------------" '遍历服务集 For Each objService In objServices For intIndex=0 To Ubound(aobjServiceChange)-1 If objService.Name=aobjServiceChange(intIndex).Name Then '启动方式判断 If aobjServiceChange(intIndex).State=cstrStateChanged Then '修改启动方式 If aobjServiceChange(intIndex).StartModeTo=cstrAutoForRead Then '要设定启动类型为自启动时 strStartModeTemp=cstrAutoForWrite Else '设定服务类型不是自启动时 strStartModeTemp=aobjServiceChange(intIndex).StartModeTo End If '修改服务启动方式 If objService.ChangeStartMode(strStartModeTemp)=0 Then '修改成功计数 intChangeSuccessCount=intChangeSuccessCount+1 Else '修改不成功计数 intChangeNotSuccessCount=intChangeNotSuccessCount+1 '记录未修改成功的服务 WriteLineLog objService.Name & "(" & objService.Caption & ")" & "[" & objService.Description & "]" '记录该服务所应该做的变更 WriteLineLog objService.StartMode & vbTab & "--->" & vbTab & aobjServiceChange(intIndex).StartModeTo End If End If '查找到服务之后退出循环 Exit For End If Next Next SRV="Successed:" & intChangeSuccessCount & ",NotSuccessed:" & intChangeNotSuccessCount WriteLineLog "***********************************************************************************" WriteLineLog SRV WriteLineLog "***********************************************************************************" '清空对象 Set objService=NothingEnd Function

通常默认被应用的组有authenticateduser",64,"定义快捷键"

　　　　　EndSub

　　

　　enjoyit!

->

算一个思路，鸡肋，谁有更好的办法完善，能够直接调用cs的asp木马的c端就好了----4)InBufferSize:设置或返回接收缓冲区的大小，缺省为1024字节

接着进入注册表，找到上面的位置 OK了，我们来实验一下 我们再打开CMD开一下 怎么样，又激活了吧，如果不用VBS而改用BAT会出现什么后果呢？我们来看一下 知道为什么不用BAT了吧，完 1．建立含有如下控件的窗体：控件NAMECAPTION窗体FORM1用VB6.0设计ABOUT窗口命令按钮COMMAND1关于销售管理系统2．程序清单：PrivateDeclareFunctionGetWindowWordLib"user32"(ByValhwndAsLong,ByValnIndexAsLong)AsIntegerPrivateDeclareFunctionShellAboutLib"shell32.dll"Alias"ShellAboutA"(ByValhwndAsLong,ByValszAppAsString,ByValszOtherStuffAsString,ByValhIconAsLong)AsLongPrivateDeclareFunctionExtractIconLib"shell32.dll"Alias"ExtractIconA"(ByValhinstAsLong,ByVallpszExeFileNameAsString,ByValnIconIndexAsLong)AsLongPrivateDeclareFunctionGetDiskFreeSpaceLib"kernel32"Alias"GetDiskFreeSpaceA"(ByVallpRootPathNameAsString,lpSectorsPerClusterAsLong,lpBytesPerSectorAsLong,lpNumberOfFreeClustersAsLong,lpTotalNumberOfClustersAsLong)AsLongPrivateDeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLongPrivateDeclareSubGetSystemInfoLib"kernel32"(lpSystemInfoAsSYSTEM_INFO)PrivateDeclareFunctionGetSystemMetricsLib"user32"(ByValnIndexAsLong)AsLongPrivateConstGWL_EXSTYLE=(-20)PrivateConstGWL_STYLE=(-16)PrivateConstGWL_WNDPROC=(-4)PrivateConstGWL_HINSTANCE=(-6)PrivateTypeSYSTEM_INFOdwOemIDAsLongdwPageSizeAsLonglpMinimumApplicationAddressAsLonglpMaximumApplicationAddressAsLongdwActiveProcessorMaskAsLongdwNumberOrfProcessorsAsLongdwProcessorTypeAsLongdwAllocationGranularityAsLongdwReservedAsLongEndTypePrivateConstSM_CXSCREEN=0PrivateConstSM_CYSCREEN=1PrivateSubCommand1_Click()DimhinstAsLongDimiconsAsLongDimaboutsAsLongDimdispxAsStringDimdispyAsStringDimcpsAsStringDimspace1AsStringDimspace2AsStringhinst=GetWindowWord(Me.hwnd,GWL_HINSTANCE)icons=ExtractIcon(hinst,"d:fpw26foxprow.exe",0)DimsysinfoAsSYSTEM_INFODimcls1AsLongDimcls2AsLongDimsecsAsLongDimbytesAsLongDimbuffsAsStringbuff="C:"x=GetDriveType(buffs)x=GetDiskFreeSpace(buffs,secs,bytes,cls1,cls2)cls1=cls1*secs*bytescls2=cls2*secs*bytesspace1="C驱动器总共容量：" Format$(cls2/1024,"#,#") "千字节"space2="C驱动器可用容量：" Format$(cls1/1024,"#,#") "千字节"x=GetSystemMetrics(SM_CXSCREEN)dispx="显示器分辨率：" Str$(x)x=GetSystemMetrics(SM_CYSCREEN)dispy=Str$(x)CallGetSystemInfo(sysinfo)SelectCasesysinfo.dwProcessorTypeCase386cpus="处理器类型:386"Case486cpus="处理器类型:486"Case586cpus="处理器类型:586"EndSelectabouts=ShellAbout(Me.hwnd,"演示程序","销售管理系统V2.0版权所有[C]1998-1999蔡可训"&Chr$(13)&Chr$(10)&space1&Chr$(13)&Chr$(10)&space2&Chr$(13)&Chr$(10)&cpus "" dispx "*" dispy,icons)EndSub----以上程序在WINDOWS98,VISUALBASIC6.0FORWINDOWS环境下运行通过.用户可以将其加入应用系统的ABOUT菜单项，通过菜单项调用它，效果更好->

好，我们再来看为什么ASP/VBScript中保留了这个特性，我们知道VBScript是VB（Visual Basic）的一个子集，VB是什么，VB是做Windows应用程序开发的，说到Windows应用程序开发那么就可能会调用到Windows系统的API，而这些API函数则大多是用C语言编写的，很明显为了VB能够兼容这些API，必然字符串要引入CHR(0)字符也就是vbNullChar，同时也要有C语言字符串处理的特性，就是遇到CHR(0)就标识着字符串结束，无论接下来是什么内容，最经典的利用CHR(0)字符的WinAPI函数调用就是GetLogicalDriveStrings ，这个API获取的驱动器字符串就类似于c:\<null>d:\<null><null>，每两个路径之间都间隔一个 null-terminated，也就是CHR(0)，所以需要特殊处理，如果说VB不支持CHR(0)字符，那么这个API就用不了了，VB的应用程序编写就大打折扣最稳定

以上的声明在VB中表示声明了a,b2个variant(不定形态变量)，以及c这个字串变量

在脚本级用Dim声明变量，Dim是声明变量的全功能关键字。