自作一个vb，请教大神
答案:4 悬赏:40 手机版
解决时间 2021-02-11 10:56
- 提问者网友：夢醒日落
- 2021-02-10 21:39
自作一个vb，请教大神
最佳答案
- 五星知识达人网友：妄饮晩冬酒
- 2021-02-10 21:56
程序下载地址：网页链接
Sub Main()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun" & App.EXEName, App.Path & "" & App.EXEName & ".exe"
StartTime = TimeValue("07:00:00")
EndTime = TimeValue("21:00:00")
Do
DoEvents
CurTime = Time
If Not (CurTime > StartTime And CurTime < EndTime) Then
Shell "shutdown.exe -s -t 3"
MsgBox "现在是：" & CurTime & vbCrLf & vbCrLf & "现在是睡觉时间，你不睡觉，你想干什么？" & vbCrLf & vbCrLf & "系统将在3秒后自动关闭！", vbInformation, "提示"
End If
Loop While CurTime > StartTime And CurTime < EndTime
End Sub
Sub Main()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun" & App.EXEName, App.Path & "" & App.EXEName & ".exe"
StartTime = TimeValue("07:00:00")
EndTime = TimeValue("21:00:00")
Do
DoEvents
CurTime = Time
If Not (CurTime > StartTime And CurTime < EndTime) Then
Shell "shutdown.exe -s -t 3"
MsgBox "现在是：" & CurTime & vbCrLf & vbCrLf & "现在是睡觉时间，你不睡觉，你想干什么？" & vbCrLf & vbCrLf & "系统将在3秒后自动关闭！", vbInformation, "提示"
End If
Loop While CurTime > StartTime And CurTime < EndTime
End Sub
全部回答
- 1楼网友：罪歌
- 2021-02-10 23:54
我帮你做一个吧？追问好的谢谢
- 2楼网友：往事埋风中
- 2021-02-10 23:33
要通过修改注册表实现追答大概思路我知道追问能教我一下吗，什么叫修改注册表
- 3楼网友：鱼忧
- 2021-02-10 22:23
百度：VB6.0 关闭电脑命令
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯