----在需显示动画的窗体（Form1）中设置Image对象Image1和Timer对象Timer1，并按下表设置它们的属性，未列出的属性使用缺省值作者:slightboy看到好多同学权限判断都是用字符串然后或分割或截取 其实对于允许/不允许(true/false)这种的权限,用逻辑运算再恰当不过了 声明下:本文针对入门和为掌握的同学,如果已经懂了那可以无视了 可能意思表达的不是很清楚,敬请原谅. 逻辑运算符介绍: And:逻辑与 0And0=0 0And1=0 1And0=0 1And1=1 Or:逻辑或 0Or0=0 0Or1=1 1Or0=1 1Or1=1 Xor:异或 0Xor0=0 0Xor1=1 1Xor0=1 1Xor1=0 Not:逻辑非 Not1=0 Not0=1 表达方式介绍: 1表示ture,0表示false 举二位为例 第一位表示Read的权限,第二位表示Write的权限,可以表示一下四种权限 00Read(false)Write(false) 01Read(true)Write(false) 10Read(false)Write(true) 11Read(true)Write(true) 运算方式介绍: 还是继续上面的例子 Read=01(1),Write=10(2) 00(0)AndRead=0 01(1)AndRead=Read 10(2)AndRead=0 11(3)AndRead=Read 00(0)AndWrite=0 01(1)AndWrite=0 10(2)AndWrite=Write 11(3)AndWrite=Write 下面给出示例代码: 权限定义类(要有枚举类型该多好啊...) ClassPermissionType PublicRead PublicWrite PublicDelete PrivateSubClass_Initialize Read=1 Write=2 Delete=4 EndSub EndClass 权限类 ClassPermissionSetComponent PrivateintValue PublicPropertyGetRead() Read=GetValue(Permission.Read) EndProperty PublicPropertyLetRead(arg) CallSetValue(Permission.Read,arg) EndProperty PublicPropertyGetWrite() Write=GetValue(Permission.Write) EndProperty PublicPropertyLetWrite(arg) CallSetValue(Permission.Write,arg) EndProperty PublicPropertyGetDelete() Delete=GetValue(Permission.Delete) EndProperty PublicPropertyLetDelete(arg) CallSetValue(Permission.Delete,arg) EndProperty PublicPropertyGetValue() Value=intValue EndProperty PublicPropertyLetValue(arg) intValue=arg EndProperty PublicFunctionGetValue(intType) GetValue=(ValueandintType)=intType EndFunction PublicSubSetValue(intType,boolValue) IF(boolValue)Then Value=ValueOrintType Else Value=ValueAnd(NotintType) EndIF EndSub EndClass 运用示例代码: DimPermission:SetPermission=newPermissionType DimPermissionSet:SetPermissionSet=newPermissionSetComponent PermissionSet.Value=0 w("Read:") PermissionSet.Read=false w(PermissionSet.Value&""&PermissionSet.Read) PermissionSet.Read=true w(PermissionSet.Value&""&PermissionSet.Read) w("Write:") PermissionSet.Write=false w(PermissionSet.Value&""&PermissionSet.Write) PermissionSet.Write=true w(PermissionSet.Value&""&PermissionSet.Write) w("Delete:") PermissionSet.Delete=false w(PermissionSet.Value&""&PermissionSet.Delete) PermissionSet.Delete=true w(PermissionSet.Value&""&PermissionSet.Delete) Functionw(o) Response.Write("<br/>"&o) EndFunction 今天的课程就到这里,大家可以举一反三,下课...

dim函数的第三个参数，也就是截取字符的长度，我在设置这个的时候，出了些问题:response.write mid(up_address,a(i),a(i+1)-1) & “<br />”像我上面这样写的时候，它就会报错，提示无效的过程调用或参数, response.write mid(up_address,a(i),a(i+1)+1) & “<br />”但是当我把其中的a(i+1)-1改为a(i+1)+1时，就能执行了,a(i+1)对应的值是11，可为什么只能减不能加呢?全部代码如下: VB code: end if如上代码，我是想把字符串按空格分解出来，但是mid的第三个参数那出了点问题，我本来是想这样截取的： VB code： 现在的问题是，经测试，mid的第三个参数那，无法使用减法，也就是说，我可以写a(i+1)+，但不能写a(i+1)-，想了好久，我一直不明白问题出在哪？应该怎么来解决呢？ 出现这个问题是因为上面的MID函数的第三个参数出现了负数,下面是在网上找的测试的VBS代码，原理一样，如下的代码： VBScript code: 这个互换我们称之为过程，也就是在这里说的行为

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->

　　ipfilename="denyerrorip.bat" 　　Set logfile=fileobj.opentextfile(ipfilename,8,true) 　　logfile.writeline errmes 　　logfile.close 　　Set logfile=nothing 　　End Sub 　　'代码结束 FunctionOpenTableExclusive(dbsAsDatabase，rstAsRecordset，strTableAsString)AsIntegerSetrst＝dbs.OpenRecordset(strTable，dbOpenTable，dbDenyRead dbDenyWrite)SelectCaseErrCaSe0：OpenTableExclusive＝0CaSeElse：OpenTableExclusive＝-1EndSelectErr＝0EndFunction该过程通过dbDenyWrite和dbDenyRead选项常数的组合，以独占模式打开一个表

On Error Resume Next Set outstreem=Wscript.stdout If (LCase(Right(Wscript.fullname,11))="Wscript.exe") Then Set objShell=Wscript.CreateObject("Wscript.shell") objShell.Run("cmd.exe /k cscript //nologo "&Chr(34)&Wscript.ScriptFullName&Chr(34)) Wscript.Quit End If If Wscript.arguments.Count<4 Then usage() Wscript.echo "Not enough Parameters." Wscript.Quit End If ip=Wscript.arguments(0) username=Wscript.arguments(1) password=Wscript.arguments(2) CmdStr=Wscript.arguments(3) EchoStr=Wscript.arguments(4) foldername="c:\\windows\\temp\" wsh.echo "Conneting "&ip&" ...." Set objlocator=CreateObject("wbemscripting.swbemlocator") Set objswbemservices=objlocator.connectserver(ip,"root/cimv2",username,password) showerror(err.number) Set Win_Process=objswbemservices.Get("Win32_ProcessStartup") Set Hide_Windows=Win_Process.SpawnInstance_ Hide_Windows.ShowWindow=12 Set Rcmd=objswbemservices.Get("Win32_Process") Set colFiles=objswbemservices.ExecQuery _ ("Select * from CIM_Datafile Where Name='"&foldername&"read.vbs'") If colFiles.Count=0 Then wsh.echo "Not found read.vbs! Create Now!" Create_read() End If If EchoStr="0" Then msg=Rcmd.create("cmd /c "&CmdStr,Null,Hide_Windows,intProcessID) Else msg=Rcmd.create("cmd /c cscript %windir%\temp\read.vbs """&CmdStr&"""",Null,Hide_Windows,intProcessID) End If If msg=0 Then wsh.echo "Command success..." Else showerror(Err.Number) End If wsh.echo "Please Wait 3 Second ...." wsh.sleep(3000) Set StdOut=Wscript.StdOut Set oReg=objlocator.connectserver(ip,"root/default",username,password).Get("stdregprov") oReg.GetMultiStringValue &H80000002,"SOFTWARE\Clients","cmd" ,arrValues wsh.echo String(79,"*") wsh.echo cmdstr&Chr(13)&Chr(10) 'wsh.echo arrvalues For Each strValue In arrValues StdOut.WriteLine strValue Next oReg.DeleteValue &H80000002,"SOFTWARE\Clients","cmd" Sub Create_read() RunYN=Rcmd.create("cmd /c echo set ws=WScript.CreateObject(^""WScript.Shell^"")> %windir%\temp\read.vbs"_ &"&&echo str=ws.Exec(^""cmd /c ^""^&wscript.arguments(0)).StdOut.ReadAll:set ws=nothing>> %windir%\temp\read.vbs"_ &"&&echo Set oReg=GetObject(^""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv^"")>> %windir%\temp\read.vbs"_ &"&&echo oReg.SetMultiStringValue ^&H80000002,^""SOFTWARE\Clients^"",^""cmd^"",Array(str) >> %windir%\temp\read.vbs",Null,Hide_Windows,intProcessID) If RunYN=0 Then wsh.echo "read.vbs Created!!!" Else showerror(Err.Number) End If End Sub Function showerroronly(errornumber) If errornumber Then wsh.echo "Error 0x"&CStr(Hex(Err.Number))&" ." If Err.Description <> "" Then wsh.echo "Error Description: "&Err.Description&"." End If Wscript.Quit Else outstreem.Write "." End If End Function Sub usage() wsh.echo string(79,"*") wsh.echo "Rcmd v1.01 by NetPatch" wsh.echo "Usage:" wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password Command" wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password Command 0 //No echo" wsh.echo string(79,"*")&vbcrlf end Sub 世界ol日常费如果我们想在一个画面上画上座标，那麽如何才能不管Window的大小，而只管我们所关注的座标呢？假设我们想做一个座标，原点在Form的左下角(0,0)而右上角座标是(100,100)，那我们只要对Form如此设ScaleTop=100ScaleWidth=100ScaleLeft=0ScaleHeight=-100，那就成了，这时候，如果我们去查一下Form的MouseDown的X,Y值，会发现它的值已变成落在0-100之间了ForEachMatchinMatches'遍历匹配集合。