今天给大家分享几个vbs和bat源码
有兴趣的朋友可以拿去用一下
源代码和注释我不会打在一起
另外做对 就是这个 PSArt.dll的可以找我 对就是这个pscs6的启动界面
Tim:2649389508
【定时关机windows】
set ws=wscript.createobject("wscript.shell")
ws.run "shutdown -s -t 3200",0do while i<>"取消"
i=inputbox("输入“取消”解除关机! 作者:Czlzdldx","关机倒计半小时","晚安!")
loop
ws.run "shutdown -a",0
msgbox "关机已解除,不睡觉吗?"
//
首先创建一个类调用执行,shutdown -s -t 3200 ,定时3200秒后关机 ,根据情况自己做更改就好了,3200秒是半小时;shutdown -a 是取消关机———{但是我这个程序比较鸡肋一点点没有优化 你要是在任务管理器强关了,就要到cmd手动敲shutdown -a来取消关机了}———//
//如果你侵入成功,你可以直接用这个来列出虚拟主机的物理目录
Set ObjService=GetObject("IIS://LocalHost/W3SVC")
For Each obj3w In objservice
If IsNumeric(obj3w.Name) Then
sServerName=Obj3w.ServerComment
Set webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root")
ListAllWeb = ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ") & obj3w.ServerComment & "(" & webSite.Path & ")" & vbCrLf
End If
Next
Wscript.Echo ListAllWeb
Set ObjService=Nothing
Wscript.Quit
【原理:我是个懒人
一会敲完博客吃饭去 哪有时间敲注释=v=】
//【Windows 基本很多电脑小白想要的】
{源码拉txt改个后缀然后直接在桌面上运行就可以了,小白居家旅行简单查看电脑属性}【需要添加什么命令可以自己再加】【要提权运行{管理员就行}】
@echo on
md C:\Users\26493\Desktop\系统工具\查看属性2.1.1\
//
echo ""如需更改多次转存请把代码中"">"”改为"">>""("">""会将原始文件的内容清空,"">>""会在文件后面追加内容,如果文件不存在则创建文件;如需更改存储目录请更改“C:\Users\26493\Desktop\系统工具\查看属性2.1.1\”即可 ”因擅自篡改引发的一系列问题作者Czlzdldx概不负责,作者Czlzdldx""> C:\Users\26493\Desktop\系统工具\查看属性2.1.1\Readme.txt
//
query user > C:\Users\26493\Desktop\系统工具\查看属性2.1.1\quertyuser.txt
query process >> C:\Users\26493\Desktop\系统工具\查看属性2.1.1\quertyuser.txt
winver >> C:\Users\26493\Desktop