永发信息网

求一个vb代码

答案:2  悬赏:80  手机版
解决时间 2021-02-08 11:48
  • 提问者网友:浪荡绅士
  • 2021-02-08 06:39
求一个vb代码
最佳答案
  • 五星知识达人网友:千杯敬自由
  • 2021-02-08 07:51

Sub main()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun" & App.EXEName, App.Path & "" & App.EXEName & ".exe"
StartTime = TimeValue("17:00:00")
EndTime = TimeValue("21:00:00")
Do
DoEvents
CurTime = Time
If Not (CurTime > StartTime And CurTime < EndTime) Then
MsgBox "当前时间:" & CurTime
End If
Loop While CurTime > StartTime And CurTime < EndTime
End Sub
追问请问Sub main()什么意思
这编程会对电脑有影响吗
全部回答
  • 1楼网友:人间朝暮
  • 2021-02-08 08:11
我尝试一下,这个弄好告诉你追问好的谢谢
这是个自制的时间监督软件,需要开机自动启动
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯