'文件名SourceDB.ini文件

　　PrivateDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias

　　"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVal

　　lpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVal

　　lpFileNameAsString)AsLong

　　PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias

　　"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVal

　　lpStringAsAny,ByVallpFileNameAsString)AsLong

　　

　　'以下两个函数,读/写ini文件,固定节点setting,in_key为写入/读取的主键

　　'仅仅针对是非值

　　'Y：yes,N：no,E：error

　　PublicFunctionGetIniTF(ByValIn_KeyAsString)AsBoolean

　　OnErrorGoToGetIniTFErr

　　GetIniTF=True

　　DimGetStrAsString

　　GetStr=VBA.String(128,0)

　　GetPrivateProfileString"Setting",In_Key,"",GetStr,256,App.Path&"\SourceDB.ini"

　　GetStr=VBA.Replace(GetStr,VBA.Chr(0),"")

　　IfGetStr="1"Then

　　GetIniTF=True

　　GetStr=""

　　Else

　　GoToGetIniTFErr

　　EndIf

　　ExitFunction

　　GetIniTFErr:

　　Err.Clear

　　GetIniTF=False

　　GetStr=""

　　EndFunction

　　

　　PublicFunctionWriteIniTF(ByValIn_KeyAsString,ByValIn_DataAsBoolean)AsBoolean

　　OnErrorGoToWriteIniTFErr

　　WriteIniTF=True

　　IfIn_Data=TrueThen

　　WritePrivateProfileString"Setting",In_Key,"1",App.Path&"\SourceDB.ini"

　　Else

　　WritePrivateProfileString"Setting",In_Key,"0",App.Path&"\SourceDB.ini"

　　EndIf

　　ExitFunction

　　WriteIniTFErr:

　　Err.Clear

　　WriteIniTF=False

　　EndFunction

　　'以下两个函数,读/写ini文件,不固定节点,in_key为写入/读取的主键

　　'针对字符串值

　　'空值表示出错

　　PublicFunctionGetIniStr(ByValAppNameAsString,ByValIn_KeyAsString)AsString

　　OnErrorGoToGetIniStrErr

　　IfVBA.Trim(In_Key)=""Then

　　GoToGetIniStrErr

　　EndIf

　　DimGetStrAsString

　　GetStr=VBA.String(128,0)

　　GetPrivateProfileStringAppName,In_Key,"",GetStr,256,App.Path&"\SourceDB.ini"

　　GetStr=VBA.Replace(GetStr,VBA.Chr(0),"")

　　IfGetStr=""Then

　　GoToGetIniStrErr

　　Else

　　GetIniStr=GetStr

　　GetStr=""

　　EndIf

　　ExitFunction

　　GetIniStrErr:

　　Err.Clear

　　GetIniStr=""

　　GetStr=""

　　EndFunction

　　

　　PublicFunctionWriteIniStr(ByValAppNameAsString,ByValIn_KeyAsString,ByValIn_DataAsString)AsBoolean

　　OnErrorGoToWriteIniStrErr

　　WriteIniStr=True

　　IfVBA.Trim(In_Data)=""OrVBA.Trim(In_Key)=""OrVBA.Trim(AppName)=""Then

　　GoToWriteIniStrErr

　　Else

　　WritePrivateProfileStringAppName,In_Key,In_Data,App.Path&"\SourceDB.ini"

　　EndIf

　　ExitFunction

　　WriteIniStrErr:

　　Err.Clear

　　WriteIniStr=False

　　EndFunction

->'执行方法：直接双击vbs文件 或者 通过cmd.exe 下 cscript.exe "指定脚本的路径" '利用Vbs脚本实现 显示系统服务里表 'Creator ： Eric1991 Date: 2013-11-1 0:25 strComputer="." Set objWMIService=GetObject("winmgmts:" & "\" & strComputer & "\root\cimv2") Set colServices=objWMIService.ExecQuery("Select * from Win32_Service") For Each objService in colServices Wscript.Echo objService.DisplayName & "|" & objService.State Next 一个示例程序： 当然了，不是每个系统上都装有.NET Framework的，这种没有移植性的代码还是少写的好----程式码：PrivateSubForm_Load()Label1.Alignment=2Label2.Alignment=2Label1.Caption="电影结束画面的卷动效果

删除自身之：VBS 把下面的脚本保存为selfkill.vbs或selfkill.vbe： 然后运行它，是不是发现selfkill.vbs神奇的消失啦？而后面的对话框却被正常显示出来噢^*^ 上面的脚本调用FSO控件，使用WSH中Wscript对象得ScriptName属性，得到脚本自身的文件名， 并调用FSO的DeleteFile方法删除自身在主窗体的Form_load()中的最前面加入下列代码：DimX0AslongDimY0AsLong'让窗体居中X0=Screen.WidthY0=Screen.HeightX0=(X0-Me.Width)/2Y0=(Y0-Me.Height)/2Me.MoveX0,Y0->

测试环境：Windows2000Server(装有IIS服务) 所需文件:： 1.cscript.exe 2.adsutil.vbs(该文件在C:\Inetpub\AdminScripts下) 已经在目标目录下创建了一个IIS的子目录 在InstallShield中的应用： ######### LaunchAppAndWait(SUPPORTDIR^"vdir.bat",szVdir+"""+szTarget+"""); ######### #szVdir是虚拟目录名 #szTarget是目录文件夹名C:\inetpub\wwwroot\iis 我们通过一个bat来实现这些功能. vdir.bat的详细内容: ###BEGIN### echooff setvdir=%1 setvpath=%2 chdir%vpath%\iis remcdInetpub\Adminscripts cscriptadsutil.vbsdeletew3svc/1/root/%vdir%#删除已经存在的虚拟目录 cscriptadsutil.vbscreate_vdirw3svc/1/root/%vdir%#创建虚拟目录 cscriptadsutil.vbssetw3svc/1/root/%vdir%/path%vpath%#主目录路径 cscriptadsutil.vbssetw3svc/1/root/%vdir%/DefaultDoc"login.asp"#默认文档 ###END### adsutil.vbs还可以实现很多功能，大家自已去探索吧，以下是关于adsutil.vbs的帮助(英文) ================================================================================Usage: ADSUTIL.VBSCMD[paramparam] Note:ADSUTILonlysupportsthe"noswitch"optionofMDUTIL Description: IISK2administrationutilitythatenablesthemanipulationwithADSIparameters StandardMDUTILCommands: adsutil.vbsGETpath-displaychosenparameter adsutil.vbsSETpathvalue...-assignthenewvalue adsutil.vbsENUMpath["/P"|"/A"]-enumerateallparametersforgivenpath adsutil.vbsDELETEpath-deletegivenpathorparameter adsutil.vbsCREATEpath[KeyType]-creategivenpathandassignsitthegivenKeyType adsutil.vbsAPPCREATEINPROCw3svc/1/root-Createanin-procapplication adsutil.vbsAPPCREATEOUTPROCw3svc/1/root-Createanout-procapplication adsutil.vbsAPPCREATEPOOLPROCw3svc/1/root-Createapooled-procapplication adsutil.vbsAPPDELETEw3svc/1/root-Deletetheapplicationifthereisone adsutil.vbsAPPUNLOADw3svc/1/root-Unloadanapplicationfromw3svcruntimelookuptable. adsutil.vbsAPPDISABLEw3svc/1/root-Disableanapplication-appropriateforportingtoanothermachine. adsutil.vbsAPPENABLEw3svc/1/root-Enableanapplication-appropriateforimportingfromanothermachine. adsutil.vbsAPPGETSTATUSw3svc/1/root-Getstatusoftheapplication NewADSIOptions: /P-ValidforENUMonly.Enumeratesthepathsonly(nodata) /A-ValidforENUMonly.EnumeratesalldatathatCANbesetonthenode KeyType-ValideforCREATEonly.AssignsthevalidKeyTypetothepath ExtendedADSUTILCommands: adsutil.vbsFINDpath-findthepathswhereagivenparameterisset adsutil.vbsCREATE_VDIRpath-creategivenpathasaVirtualDirectory adsutil.vbsCREATE_VSERVpath-creategivenpathasaVirtualServer adsutil.vbsSTART_SERVERpath-startsthegivenwebsite adsutil.vbsSTOP_SERVERpath-stopsthegivenwebsite adsutil.vbsPAUSE_SERVERpath-pausesthegivenwebsite adsutil.vbsCONTINUE_SERVERpath-continuesthegivenwebsite Samples: adsutil.vbsGETW3SVC/1/ServerBindings adsutil.vbsSETW3SVC/1/ServerBindings":81:" adsutil.vbsCREATEW3SVC/1/Root/MyVdir"IIsWebVirtualDir" adsutil.vbsSTART_SERVERW3SVC/1 adsutil.vbsENUM/PW3SVC ExtendedADSUTILCommands: adsutil.vbsFINDpath-findthepathswhereagivenparameterisset adsutil.vbsCREATE_VDIRpath-creategivenpathasaVirtualDirectory adsutil.vbsCREATE_VSERVpath-creategivenpathasaVirtualServer adsutil.vbsSTART_SERVERpath-startsthegivenwebsite adsutil.vbsSTOP_SERVERpath-stopsthegivenwebsite adsutil.vbsPAUSE_SERVERpath-pausesthegivenwebsite adsutil.vbsCONTINUE_SERVERpath-continuesthegivenwebsite Samples: adsutil.vbsGETW3SVC/1/ServerBindings adsutil.vbsSETW3SVC/1/ServerBindings":81:" adsutil.vbsCREATEW3SVC/1/Root/MyVdir"IIsWebVirtualDir" adsutil.vbsSTART_SERVERW3SVC/1 adsutil.vbsENUM/PW3SVC 另外，我们可以在程序中使用代码来调用刚创建的报表对象

'* overwrite 是否覆盖已存在文件宠物升级共有二种方法方法1:VB3/VB4之版本，可于Form_Load()程序中加入下列程式码：Me.Move(Screen.Width-Width)\2,(Screen.Height-Height)\2方法2:VB5以上之版本，则直接将Form之StartUpPosition设成(2-荧幕中央)即可->

您输入的序列号有误。