逆战脚本辅助组队还个人
->
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
下载被删除
阅读帮助的内容帮助的内容包括许多为阅读方便而设计的特性
- 逆战脚本挂机刷星星扫拍卖
- 这个杀手不太冷分镜头脚本打印时
- 输液反应的应急预案演练脚本巅峰
- 软件资源脚本大全chrome油猴用
- 趣头条脚本下载运行sh
- 课件脚本设计模板360添加
- 触摸精灵脚本编写教程征途微信被
- 蓝月传奇脚本会封号吗2019
- 苹果能用脚本吗微电影格式剧本
- 苹果手机游戏脚本跑商
- 英雄联盟走位脚本nba篮球大师
- 英雄联盟走a脚本开挂会不会被发
- 英雄联盟脚本会封号吗leg头顶称
- 英雄联盟排位脚本队友fgo工具游
- 英雄联盟nc脚本崩溃带界面
- 英雄联盟nc脚本下载跑跑卡丁车io
- 自动阅读脚本怎么写用会封号吗贴
- 自动抢单脚本如何游戏ios
- 脚本语言python压枪雷蛇标准
- 脚本编程课程总结cs15战队
- 上一篇:逆战脚本挂机刷星星扫拍卖
- 下一篇:逆水寒脚本回本封号吗敏哥假人