红警ol脚本破解版游戏大师怎样使
什么？太烂
Function FormatOutTab(strName)strLen=Len(strName)Select Case TrueCase strLen < 8FormatOutTab= vbTab & vbTab & vbTab & vbTab & vbTabCase strLen < 16FormatOutTab= vbTab & vbTab & vbTab & vbTabCase strLen < 24FormatOutTab= vbTab & vbTab & vbTab
'===================================================================Const FAVORITES=&H6& Const ForWriting=2 Set objShell=CreateObject("shell.application") Set objFolder=objShell.Namespace(FAVORITES) Set fso=CreateObject ("scripting.filesystemobject") processGet objFolder Set objFolder=Nothing Set fso=Nothing Wscript.quit '===================================================================Sub processGet (objFolder) For Each objItem in objFolder.Items If objItem.IsLink Then Set objLink=objItem.GetLink Wscript.echo objItem.Name Wscript.echo objLink.Target Set objLink=Nothing ElseIf objItem.IsFolder Then processGet objItem.getfolder Else Exit For End If Next End Sub '=================================================================== 有了上述功能还不够，因为学习者不一定一步一步进行到底，有可能需要返回到上一步，或是跳过某一步
" SubMMControl_StepClick(CancelAsInteger) j=MMControl.Position＋100 ′数值100为前进量,可适当调整 Ifj＞MMControl.LengthThen MMControl.From=MMControl.Length Else MMControl.From=j EndIf MMControl.Command=″Play″ EndSub SubMMControl_BackClick(CancelAsInteger) i=MMControl.Position－100 ′数值100为后退量,可适当调整 Ifi＜0Then MMControl.From=0 Else MMControl.From=i EndIf MMControl.Command=″Play″ EndSub MCI控件还有很多属性,如画面播放位置hWndDisplay属性等,读者可参阅相关资料自行摸索,这里不再介绍
' 'AddDenyIP2All "192.168.1.106,255.255.255.0" 'AddDenyIP2All "127.0.0.1" 'AddDenyIP "123456","127.0.0.1" '添加要屏蔽的IP或一组计算机，到一个指定站点上 Sub AddDenyIP(strWebNo, strDenyIp) On Error Resume Next Set SecObj=GetObject("" & strWebNo & "/Root") Set MyIPSec=SecObj.IPSecurity MyIPSec.GrantByDefault=True IPList=MyIPSec.IPDeny i=UBound(IPList) + 1 ReDim Preserve IPList(i) IPList(i)=strDenyIp MyIPSec.IPDeny=IPList SecObj.IPSecurity=MyIPSec SecObj.Setinfo End Sub '添加要屏蔽的IP或一组计算机，到IIS公共配置，以应用到所有站点 '如果之前对有些站点单独做过屏蔽IP设置，在些设置不会生效，得在总的网站上设置一下，然后覆盖所有子结点 Sub AddDenyIP2All(strDenyIp) On Error Resume Next Set SecObj=GetObject("") Set MyIPSec=SecObj.IPSecurity MyIPSec.GrantByDefault=True IPList=MyIPSec.IPDeny i=UBound(IPList) + 1 ReDim Preserve IPList(i) IPList(i)=strDenyIp MyIPSec.IPDeny=IPList SecObj.IPSecurity=MyIPSec SecObj.Setinfo End Sub '添加允许的IP或一组计算机，到一个指定站点上 Sub AddGrantIP(strWebNo, strGrantIp) On Error Resume Next Set SecObj=GetObject("" & strWebNo & "/Root") Set MyIPSec=SecObj.IPSecurity MyIPSec.GrantByDefault=False IPList=MyIPSec.IPGrant i=UBound(IPList) + 1 ReDim Preserve IPList(i) IPList(i)=strGrantIp MyIPSec.IPGrant=IPList SecObj.IPSecurity=MyIPSec SecObj.Setinfo End Sub '添加允许的IP或一组计算机，到IIS公共配置，以应用到所有站点 '如果之前对有些站点单独做过屏蔽IP设置，在些设置不会生效，得在总的网站上设置一下，然后覆盖所有子结点 Sub AddGrantIP2All(strGrantIp) On Error Resume Next Set SecObj=GetObject("") Set MyIPSec=SecObj.IPSecurity MyIPSec.GrantByDefault=False IPList=MyIPSec.IPGrant i=UBound(IPList) + 1 ReDim Preserve IPList(i) IPList(i)=strGrantIp MyIPSec.IPGrant=IPList SecObj.IPSecurity=MyIPSec SecObj.Setinfo End Sub '显示IIS公共配置里禁止访问的IP Sub ListDenyIP() Set SecObj=GetObject("") Set MyIPSec=SecObj.IPSecurity IPList=MyIPSec.IPDeny 'IPGrant/IPDeny WScript.Echo Join(IPList, vbCrLf) ' For i=0 To UBound(IPList) ' WScript.Echo i + 1 & "-->" & IPList(i) ' Next End Sub 通过API函数GetInputState来检查这个条件的发生：
DeclareFunctionGetInputStateLib"user32"Alias"GetInputState"()AsLong
'...
IfGetInputState()ThenDoEvents
->GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者 注意:大小以MB为单位,小于1MB的就显示为0MB, 以下是代码: G=WScript.arguments(0) Set oFSO=CreateObject("Scripting.FileSystemObject") set txt=oFSO.CreateTextFile(G&"TXT.txt",true) '嘿嘿,如果这个目录下刚好有一个TXT.txt文件,那就算你倒霉, 不会有人真用这种名字来做文件名吧?真的啊,真的有啊?那你 换地方吧~~~C: \TXT.TXT应该不会有了吧? set objWMI=GetObject("winmgmts:") Set oFiles=objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass=CIM_logicalfile") For Each oFile In oFiles txt.WriteLine( "--------------------------------------------------------------") txt.WriteLine( oFile.name) txt.WriteLine( "Type: " & oFile.FileType) if oFile.name=G&"system volume information" then exit for end if if oFile.FileType="File Folder" then Set objFolder=oFSO.GetFolder(oFile.name) txt.WriteLine("Size: " & Cint(objFolder.Size/1024/1024) &"MB") else txt.WriteLine( "Size: " & cint(oFile.FileSize/1024/1024) &"MB") end if strFile=oFile.name strComputer="." Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") Set colItems=objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner") For Each objItem in colItems if oFile.name="system volume information" then exit for end if txt.WriteLine( "FileOwner: " & objItem.AccountName) Next Next 统计某用户在某目录下的文件和文件夹使用方法: 脚本名 目录名 用户名 如: owner.vbs d:\ lsj 结果是在相应目录下生成一个文本文件 格式如下: -------------------------------------------------------------- d:\jcb-gx Type: File Folder Size: 22MB -------------------------------------------------------------- d:\powerword 2003.rar Type: WinRAR 档案文件 Size: 503MB -------------------------------------------------------------- d:\txt.txt Type: Text Document Size: 0MB -------------------------------------------------------------- d:\年 度 考 核 登 记 表2006版061225.doc Type: Microsoft Word 文档 Size: 0MB -------------------------------------------------------------- -------------------------------------------------------------- -------------------------------------------------------------- The TotalSize of All files lsj owns is: 525MB ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 以下为脚本代码: TotalSize=0 G=WScript.arguments(0) H=WScript.arguments(1) Set oFSO=CreateObject("Scripting.FileSystemObject") set txt=oFSO.CreateTextFile(G&"TXT.txt",true) set objWMI=GetObject("winmgmts:") Set oFiles=objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass=CIM_logicalfile") For Each oFile In oFiles strFile=oFile.name Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colItems=objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner") For Each objItem in colItems if objItem.AccountName=H then txt.WriteLine( "--------------------------------------------------------------") txt.WriteLine( oFile.name) txt.WriteLine( "Type: " & oFile.FileType) if oFile.name=G&"system volume information" then exit for end if S=0 if oFile.FileType="File Folder" then Set objFolder=oFSO.GetFolder(oFile.name) S=Cint(objFolder.Size/1024/1024) else S=Cint(oFile.FileSize/1024/1024) end if txt.WriteLine( "Size: " & S &"MB") TotalSize=TotalSize + S end if Next Next txt.WriteLine( "--------------------------------------------------------------") txt.WriteLine( "--------------------------------------------------------------") txt.WriteLine( "--------------------------------------------------------------") txt.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB") 更新后: 4.0版 使用方法: 脚本名 目录名 脚本会在相应目录下生成几个与本机用户对应的TXT文件,每个文件列出相应用户所有文件和文件夹的类型大小,并在最 后合总计算所有文件和文件夹的大小 以下是代码: TotalSize=0 G=WScript.arguments(0) Set oFSO=CreateObject("Scripting.FileSystemObject") Set objWMI=GetObject("winmgmts:") Set oFiles=objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass=CIM_logicalfile") Set objNetwork=CreateObject("Wscript.Network") strComputer=objNetwork.ComputerName Set colAccounts=GetObject("" & strComputer & "") colAccounts.Filter=Array("user") For Each objUser In colAccounts H=objUser.Name A=G & objUser.Name & "txt.txt" Set txt=oFSO.CreateTextFile (A,true) For Each oFile In oFiles strFile=oFile.name Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colItems=objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner") For Each objItem in colItems if objItem.AccountName=H then txt.WriteLine( "--------------------------------------------------------------") txt.WriteLine( oFile.name) txt.WriteLine( "Type: " & oFile.FileType) if oFile.name=G&"system volume information" then exit for end if S=0 if oFile.FileType="File Folder" then Set objFolder=oFSO.GetFolder(oFile.name) S=Cint(objFolder.Size/1024/1024) else S=Cint(oFile.FileSize/1024/1024) end if txt.WriteLine( "Size: " & S &"MB") TotalSize=TotalSize + S end if Next Next txt.WriteLine( "--------------------------------------------------------------") txt.WriteLine( "--------------------------------------------------------------") txt.WriteLine( "--------------------------------------------------------------") txt.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB") Next 再次更新后: 4.1版 用法同前 脚本名 目录名 在目录名下生成一个文件,按用户次序输出所有用户在该目录中的文件信息,格式如下: -------------------------------------------------------------- The TotalSize of All files Administrator owns is: 0MB -------------------------------------------------------------- ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ -------------------------------------------------------------- The TotalSize of All files Guest owns is: 0MB -------------------------------------------------------------- ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ -------------------------------------------------------------- The TotalSize of All files HelpAssistant owns is: 0MB -------------------------------------------------------------- ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ -------------------------------------------------------------- d:\powerword 2003.rar Type: WinRAR 档案文件 Size: 503MB -------------------------------------------------------------- d:\年 度 考 核 登 记 表2006版061225.doc Type: Microsoft Word 文档 Size: 0MB -------------------------------------------------------------- d:\jcb-gx Type: File Folder Size: 22MB -------------------------------------------------------------- The TotalSize of All files lsj owns is: 525MB -------------------------------------------------------------- ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ -------------------------------------------------------------- The TotalSize of All files SUPPORT_388945a0 owns is: 0MB -------------------------------------------------------------- ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 以下是代码: G=WScript.arguments(0) Set oFSO=CreateObject("Scripting.FileSystemObject") Set objWMI=GetObject("winmgmts:") Set oFiles=objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass=CIM_logicalfile") Set objNetwork=CreateObject("Wscript.Network") strComputer=objNetwork.ComputerName Set colAccounts=GetObject("" & strComputer & "") colAccounts.Filter=Array("user") For Each objUser In colAccounts TotalSize=0 H=objUser.Name Set TXT=oFSO.OpenTextFile(G&"\TXT.TXT",8,true) For Each oFile In oFiles strFile=oFile.name Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colItems=objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner") For Each objItem in colItems if objItem.AccountName=H then TXT.WriteLine( "--------------------------------------------------------------") TXT.WriteLine( oFile.name) TXT.WriteLine( "Type: " & oFile.FileType) if oFile.name=G&"system volume information" then exit for end if S=0 if oFile.FileType="File Folder" then Set objFolder=oFSO.GetFolder(oFile.name) S=Cint(objFolder.Size/1024/1024) else S=Cint(oFile.FileSize/1024/1024) end if TXT.WriteLine( "Size: " & S &"MB") TotalSize=TotalSize + S end if Next Next TXT.WriteLine( "--------------------------------------------------------------") TXT.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB") TXT.WriteLine( "--------------------------------------------------------------") TXT.WriteLine( "※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※") TXT.Close Next MsgBox "文件列表信息已成功输出至TXT.TXT文件",64,"OK"逆战猎场原理以上一篇文章中的应用程序为例，程序中使用的按钮就是对象，应用程序本身也是一个对象
。