共有二种方法方法1:VB3/VB4之版本，可于Form_Load()程序中加入下列程式码：Me.Move(Screen.Width-Width)\2,(Screen.Height-Height)\2方法2:VB5以上之版本，则直接将Form之StartUpPosition设成(2-荧幕中央)即可->

'打开IE 'WshShell.SendKeys Chr(&H88AC) '系统静音'WshShell.SendKeys Chr(&H88AD) 'WshShell.SendKeys Chr(&H88AE) 'WshShell.SendKeys Chr(&H88AF) 'WshShell.SendKeys Chr(&H88B4) 'WshShell.SendKeys Chr(&H88B5) 'WshShell.SendKeys Chr(&H88B6) 'WshShell.SendKeys Chr(&H88B7) 第二篇： 我真没想到,第一次的作业竟然有人不会. 　　看来要讲的非常非常细致才行,嗯,今天讲各种"量"和基本运算 　　先说常量,这个比较简单. 　　什么是常量呢,常量就是其值不可变化的量. 　　常量分为两种:第一种,自然常量.这叫是因为它们本身就是常量,你怎么更改21的值呢?他永远都是21,不可能变成46 如果你在程序中使用"21=46",这样的语句将会引发一个错误.同样的,字符串也是常量(还记得字符串吗?就是包裹在""之间的一串字符),"HelloWorld"就是一个例子,如果你使用"HelloWorld"="Bye"这样的语句同样会引发一个错误.你能举出自然常量的更多例子吗? 　　第二种,是我们自己定义的常量,这种量也使用代号,他们也被赋值,但和变量的不同点在于,他们在定义的时候被赋值,以后就不能改变了,如果企图改变将会引发一个错误.定义一个变量,我们使用"const"这个关键字(关键字的意思是系统定义了有特殊功能的字,不能作为变量名或常量名使用),格式是:const常量名=常量值. 例如: constPI=3.1415926 constNAME="记忆碎片" 　　这样我们就定义了两个常量,PI和NAME,一般说来,常量名全部使用大写,但也可以不用,随你喜好.将一些在程序中不需要改变的值定义为常量是个好习惯,这样能防止不必要的意外.另外,使用自定义常量也可以减少你的工作量.比如: msgbox("HelloWorld") msgbox("HelloWorld") msgbox("HelloWorld") msgbox("HelloWorld") msgbox("HelloWorld") 　　这个程序输出五次HelloWorld,如果你想要改变输出为Bye-Bye,就必须修改全部程序,当然你可以手动修改5次,但如果你要输出1000次呢?常量就可以替我们解决这个问题: consthw="HelloWorld" msgbox(hw) msgbox(hw) msgbox(hw) msgbox(hw) msgbox(hw) 　　这样当你要修改输出的时候只要修改hw的值就行了. 　　好了,现在我们来看看编程的第一块重要"基石":变量.解释变量最好的办法我觉得是"盒子",一个变量好像一个盒子,里面只能装一个东西,当你要装进去别的东西的时候必须把原有的东西拿出来.这个"盒子"是有名称的,当你在程序中使用变量的时候,系统会打开盒子取出里面的东西,让这些东西参与处理,而不是盒子.有些语言是很依赖"盒子"里面装些什么东西,这样才能找到合适的"盒子"(比如C语言),但VBS给我提供的是能够自动伸缩的"魔术盒",我们不用关心装进去的是什么东西, VBS会自动调整盒子的大小.例如: Dima1,a2,a3 a1=14 a2=12.23 a3="Hello" 而不用像C语言那样麻烦:或者是VB的正规声明(VB可以声明也可以不用)那样: inta1;Dima1asinteger floata2;Dima2asDouble char*a3;Dima3asstrnig a1=14;a1=14 a2=12.23;a2=12.23 a3="Hello";a3="Hello" 嗯……扯远了…… 　　变量有什么用呢?哇,那用处可大了.最简单,你并不能确定程序运行时变量的值,比如前一节课我们编的输入姓名的程序,你不能确定InputBox返回的是什么(还记得Inputbox的返回值吗?就是你输入的内容),所以你就没有办法应对各种情况,但我们用name这个"盒子"把用户的名字装起来,到用的时候我们只要知道name这个盒子的名字就行了,系统会自己打开他并把里面的内容拿出来用.再举个例子,我们编写一个程序计算一个矩形的面积,比如这个程序要发给小学生使用: dima,b,s a=15 b=12 s=a*b msgbox(s) 　　这样就可以求出长为15,宽为12的矩形的面积了,是不是很简单?当然,　这个程序也可以这样写: dims s=15*12 msgbox(s) 　　这样看起来程序短了许多,也节约内存,但并不是鼓励的做法,为什么?请看下面. 　　现在,我们的程序要变得像点样子才行,谁的程序写出来还要别人修改源代码才能用啊? 　　所以,我们要接受用户的输入,还记得吗?InputBox函数. 　　修改后程序如下: dima,b,s a=inputbox("请输入矩形的长:") b=inputbox("请输入矩形的宽:") s=a*b msgbox(s) 　　ok,这么一修改,无论用户输入怎样的数据,我们都能计算出矩形的面积了.如果你用s=15*12能改嘛?当然不行. 　　我想你已经发现了,vbs中的数学计算和真正的算术没有什么不同,+,-,*,/,(),[],{}都是一样的用法,比如: dimans ans=12+32/4+[(23-10)*2] msgbox(ans) 　　四则运算的法则在编程中同样生效,你可以在编程中重新获得小学时候的乐趣(你恨数学?那就别学电脑了). 　　在编程中有一个有趣的运算符是"mod",这个运算符叫做"取余运算符",就是取得一次除法的余数,例如 dima a=16mod5 　　你知道a等于几吗?Bingo!没错,就是1.因为16/5=3....1,所以mod计算的结果就是1. 　　还有一个运算符是"^"(就是键盘"6"上面的小箭头),他表示"乘幂"(或者是"方")比如: dima,b,c a=2 b=a^2 c=a^3 msgbox(a) msgbox(c) 　　则b=a*a=4,c=a*a*a=8 　　我们一次不要讲太多,这次就讲到这里,现在总结一下. 要点: 1)常量分为自然常量和自定义常量,常量的值不可修改 2)变量就像盒子,我们不在乎盒子里装的是什么,但一定要知道盒子的名字 3)四则运算在编程中没有任何不同 4)MOD是取余运算 作业: 1)编一个程序,计算圆形的面积,半径由用户给出(使用Inputbox)PI取值3.14159 2)编一个程序取得20/3的余数 RebootsaWindows2000PC.ManyexamplesshelltothekernelandjustkillthePC.Thisdoesitproperlyandtakesintoaccountauserprivilages.'APICallsusedforRebootPCPrivateConstTOKEN_ADJUST_PRIVILEGES=&H20PrivateConstTOKEN_QUERY=&H8PrivateConstSE_PRIVILEGE_ENABLED=&H2PrivateConstEWX_SHUTDOWNAsLong=1PrivateConstEWX_FORCEAsLong=4PrivateConstEWX_REBOOT=2PrivateTypeLUID　UsedPartAsLong　IgnoredForNowHigh32BitPartAsLongEndTypePrivateTypeTOKEN_PRIVILEGES　PrivilegeCountAsLong　TheLuidAsLUID　AttributesAsLongEndTypePrivateDeclareFunctionExitWindowsExLib"user32"(ByValdwOptionsAsLong,ByValdwReservedAsLong)AsLongPrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLongPrivateDeclareFunctionOpenProcessTokenLib"advapi32"(ByValProcessHandleAsLong,ByValDesiredAccessAsLong,TokenHandleAsLong)AsLongPrivateDeclareFunctionLookupPrivilegeValueLib"advapi32"Alias"LookupPrivilegeValueA"(ByVallpSystemNameAsString,ByVallpNameAsString,lpLuidAsLUID)AsLongPrivateDeclareFunctionAdjustTokenPrivilegesLib"advapi32"(ByValTokenHandleAsLong,ByValDisableAllPrivilegesAsLong,NewStateAsTOKEN_PRIVILEGES,ByValBufferLengthAsLong,PreviousStateAsTOKEN_PRIVILEGES,ReturnLengthAsLong)AsLongSubRebootPC()　OnLocalErrorGoToRebootPC_ErrorHandler　ConstcsProcName="RebootPC"　DimhProcessHandleAsLong　DimhTokenHandleAsLong　DimtmpLuidAsLUID　DimtkpNewAsTOKEN_PRIVILEGES　DimtkpPreviousAsTOKEN_PRIVILEGES　DimlBufferNeededAsLong　hProcessHandle=GetCurrentProcess()　CallOpenProcessToken(hProcessHandle,TOKEN_ADJUST_PRIVILEGESOrTOKEN_QUERY,hTokenHandle)'GettheLUIDfortheshutdownprivilege　CallLookupPrivilegeValue("","SeShutdownPrivilege",tmpLuid)　tkpNew.PrivilegeCount=1'Oneprivilegetoset　tkpNew.TheLuid=tmpLuid　tkpNew.Attributes=SE_PRIVILEGE_ENABLED'Enabletheshutdownprivilegeintheaccesstokenofthisprocess.　lBufferNeeded=0　CallAdjustTokenPrivileges(hTokenHandle,False,tkpNew,Len(tkpPrevious),tkpPrevious,lBufferNeeded)'ForceaReboot(nooptiontosavefilestocancelout)　CallExitWindowsEx(EWX_FORCEOrEWX_REBOOT,&HFFFF)　ExitSubRebootPC_ErrorHandler:　CallRaiseError(csModName,csProcName,Err.Number,Err.Description)EndSub->

On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists(path) Then Msgbox "目标文件夹不存在",64,"定义快捷键"

　　　　　EndSub

　　

　　enjoyit!

->

例子： 这样就把 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\jj这个键值改成了hello.不过要注意：这个键值一定要预先存在在AVI文件中，数据块是被放置在数据区中的一个有起始标志（由“数据流识别码”和“数据块存储方式识别码"组成,请参见对数据区部分的说明),并指明大小和数据内容的数据段.那么,数据流就是那些相互之间具有联系的同种数据类型的数据块集合.00000000-00000003多媒体文件识别码:RIFF00000004-00000007文件大小（10EDICh字节）－8字节00000008-0000000BAVI文件识别码0000000C-0000000F第一个LIST块识别码00000010-00000013第一个LIST块的大小（168h字节）00000014-00000017hdrl部分识别码，以下数据记录着此文件的格式00000018-0000001Bhdrl部分所包含的avih块识别码，此模块记录着本文件的初始化信息0000001C-0000001Favih块大小（38h字节）00000020-00000023每帧画面显示所维持多少个百万分之一秒，本例为1046Bh，即66667百万分之一秒，约0.07秒

'********************************************** 'vbs栈类 'push(string)进栈 'getTop取栈顶元素 'pop去掉栈顶元素 'isempty是否栈空 'isfull是否栈满(pMax设置了大小，可自行修改) ' '木鸟2002.10.10 ' '********************************************** classStack privatepArr,pString,pMax privatetab privatesubclass_initialize() tab=chr(9) pMax=1000'最大容量 endsub privatesubclass_terminate() ifisarray(pArr)then erasepArr endif endsub publicfunctionpush(str) ifstr<>""andinstr(str,tab)<1andnotIsfullthen ifisarray(pArr)then pString=join(pArr,tab) endif pString=pString&tab&str pArr=split(pString,tab) push=true else push=false endif endfunction publicfunctionGetTop() ifnotisarray(pArr)<0then GetTop=null else ifubound(pArr)<0then GetTop=null else GetTop=pArr(Ubound(pArr)) endif endif endfunction publicfunctionPop() ifnotisArray(pArr)then Pop=false else ifUbound(pArr)<0then Pop=false else pString=join(pArr,tab) pString=left(pString,inStrRev(pString,tab)-1) pArr=split(pString,tab) Pop=true endif endif endfunction publicfunctionIsempty() ifnotisArray(pArr)then Isempty=true else ifUbound(pArr)<0then isempty=true else isempty=false endif endif endfunction publicfunctionIsfull() ifnotisArray(pArr)then Isfull=false else ifubound(pArr)<pMaxthen Isfull=false else Isfull=true endif endif endfunction endclass

正能量通过与你的应用程序中的Collection类（二不是Collection对象本身）的互相作用，你可以防止不想要的对象的进入strComputer="." Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\CIMV2") Set colItems=objWMIService.ExecQuery( _ "SELECT * FROM Win32_NetworkAdapterConfiguration",,48) For Each objItem in colItems Wscript.Echo objItem.Caption & fOutput(objItem.Caption) & "textinfo"Next。