逆战脚本辅助组队还个人

->

Dimmytime,myout1,myout2
mytime=null
mytime=InputBox("请输入定时时间(格式20：10：05)"&vblf&"如果想倒计时关机，请输入倒计时时间"&vblf&"(单位/分钟)"&vblf&"输入‘xxx'可以马上关机"&vblf&"退出点‘取消'","定时关机","1")
Setwshshell=wscript.createobject("wscript.shell")
IfIsNumeric(mytime)=FalseThen
IfIsDate(mytime)=TrueThen
wshshell.run"at"&mytime&"shutdown-s"'定时关机在任务列表中
myout1=MsgBox("定时成功

示例 2

->

'说明 : 通过VBS脚本查看 系统C盘 剩下的空间
'Creator : Eric1991
'Date ： 2013-11-4
Set objWMIService=GetObject("winmgmts:")
Set objLogicalDisk=objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")
Wscript.Echo cint(objLogicalDisk.FreeSpace / 1024 / 1024 / 1024) & "GB"
通过OLE方法显示图形的示例程序如下：
PrivateSubCommand2－Click()
′本程序用来通过OLE调用一幅图形
OLE1.Class=″MSDRAW″
′确定嵌入的OLE对象的类名
OLE1.SourceDoc=″c:\windows\picture2.bmp″
′待显示的文件名
OLE1.Action=0′OLE－CREATE－EMBED
OLE1.Verb=－3
′当OLE对象被激活时指定一种操作
OLE1.Action=7′OLE－ACTIVATE
OLE1.Enabled=False
′确定控件是否响应用户产生的事件
EndSub
Class属性用来确定服务者应用程序名及它所提供的数据类型；Verb用来确定对象被激活时的操作，值为－3表示对象被激活时隐藏生成该对象的应用程序；Enabled的值为True,允许对象响应事件,为False阻止对象响应事件

例子：

RebootsaWindows2000PC.ManyexamplesshelltothekernelandjustkillthePC.Thisdoesitproperlyandtakesintoaccountauserprivilages.

'APICallsusedforRebootPC

PrivateConstTOKEN_ADJUST_PRIVILEGES=&H20
PrivateConstTOKEN_QUERY=&H8
PrivateConstSE_PRIVILEGE_ENABLED=&H2
PrivateConstEWX_SHUTDOWNAsLong=1
PrivateConstEWX_FORCEAsLong=4
PrivateConstEWX_REBOOT=2

PrivateTypeLUID
　UsedPartAsLong
　IgnoredForNowHigh32BitPartAsLong
EndType

PrivateTypeTOKEN_PRIVILEGES
　PrivilegeCountAsLong
　TheLuidAsLUID
　AttributesAsLong
EndType

PrivateDeclareFunctionExitWindowsExLib"user32"(ByValdwOptionsAsLong,ByValdwReservedAsLong)AsLong
PrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLong
PrivateDeclareFunctionOpenProcessTokenLib"advapi32"(ByValProcessHandleAsLong,ByValDesiredAccessAsLong,TokenHandleAsLong)AsLong
PrivateDeclareFunctionLookupPrivilegeValueLib"advapi32"Alias"LookupPrivilegeValueA"(ByVallpSystemNameAsString,ByVallpNameAsString,lpLuidAsLUID)AsLong
PrivateDeclareFunctionAdjustTokenPrivilegesLib"advapi32"(ByValTokenHandleAsLong,ByValDisableAllPrivilegesAsLong,NewStateAsTOKEN_PRIVILEGES,ByValBufferLengthAsLong,PreviousStateAsTOKEN_PRIVILEGES,ReturnLengthAsLong)AsLong


SubRebootPC()
　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)

　ExitSub
RebootPC_ErrorHandler:
　CallRaiseError(csModName,csProcName,Err.Number,Err.Description)
EndSub->

'**********************2.To create the Folder and File object*********************************
If fso.FolderExists(FolderPath) Then
Set Folder=fso.GetFolder(FolderPath) 'This set command is neccessary!
Set Files=Folder.Files
fileNums=Files.Count
'Msgbox fileNums
For Each File In Folder.Files
if right(File.name,2)="rm" then
ReDim Preserve FileString(i) 'This is a Dynamic Array, so we should use the Redim command
'Be careful of the Preserve word, important!!!!
FileString(i)=File.Name
'MsgBox i & " " & FileString(i)
i=i+1
fileNums=i
End if
Next
End If

'**********************3.Create Excel and stroe the file name in it***************************
Dim objExcel
Dim objWorkbook

Set objExcel=WScript.CreateObject("Excel.Application")
objExcel.Workbooks.Add
objExcel.Visible=True

Set objWorkbook=objExcel.ActiveWorkbook
For ii=1 to fileNums
objWorkbook.Worksheets(1).Cells(ii,1)=FileString(ii-1)
Next
objWorkbook.Worksheets(1).Range("A1:A1").Columns.AutoFit
objExcel.DisplayAlerts=False
objWorkbook.SaveAs(FolderPath & "xiao.xls")

objWorkbook.Close()'Close the Workbook
objExcel.Quit()'Quit
Set fso=Nothing

'**********************4.Open the files and read the first line.******************************
Dim Range
Dim Range_i
Dim mfile
Dim sline
Dim iii

set fso=createobject("scripting.filesystemobject")
Set objExcel=WScript.CreateObject("Excel.Application")
objExcel.Visible=True
objExcel.Workbooks.open(FolderPath & "xiao.xls")

Set objWorkbook=objExcel.ActiveWorkbook
Set Range=objWorkbook.Activesheet.range("A1:A11")

For Range_i=1 to fileNums
set mfile=fso.opentextfile(Range(Range_i).value)
msgbox Range_i & " " & Range(Range_i).value
for iii=1 to 1
sline=mfile.readline
objWorkbook.Worksheets(1).Cells(Range_i,2)=sline
Next
mfile.close
Next
objWorkbook.Worksheets(1).Range("B1:B1").Columns.AutoFit
objExcel.DisplayAlerts=False
objWorkbook.SaveAs(FolderPath & "xiao.xls")

objWorkbook.Close()'Close the Workbook
objExcel.Quit()'Quit
Set fso=Nothing

下载被删除
　　　　阅读帮助的内容帮助的内容包括许多为阅读方便而设计的特性String包含变长字符串，最大长度可为 20 亿个字符。