大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
把Task scheduler改为:
我们提供的服务有:成都网站建设、成都网站设计、微信公众号开发、网站优化、网站认证、灯塔ssl等。为1000+企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的灯塔网站制作公司
""Task scheduler""
两边都加两个双引号
即Shell "net start ""Task scheduler"""
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'System.Threading.Thread.Sleep(1000)
Me.Visible = False
Me.ShowIcon = False
'数据库导入代码
Me.Close()
End Sub
Private Declare Function mciSendStringA Lib "winmm.dll" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Function PlayMidiFile(ByVal MusicFile As String) As Boolean
If System.IO.File.Exists(MusicFile) Then
mciSendStringA("stop music", "", 0, 0)
mciSendStringA("close music", "", 0, 0)
mciSendStringA("open " MusicFile " alias music", "", 0, 0)
PlayMidiFile = mciSendStringA("play music", "", 0, 0) = 0
End If
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TextBox1.Text = TimeOfDay Then
'具体提醒的东西,如你说的播放音乐
PlayMidiFile("自己添加路径")
End If
'时间格式要是这样的16:00:00
'timer的interval要设成1
'你还可以自己细化
End Sub
软件到处都是,用计划任务也行,编3个程序,第一个自启动,调用第二个程序,过几秒再调用第三个程序(vb.Net里的processg过程),第二个程序纯粹记录开机时间,存文件里,第三个程序打开存时间的文件,用比较记录的时间是否是当天来判断当天是否开过机,如果没有开过就等4小时,然后再调用\windows\system32\shutdown.exe /s /t 0关机,如果开过就直接调用\windows\system32\shutdown.exe /s /t 0
其中0是时间(秒),最好改成30,以便留下时间保存需要的文件或者取消关机,具体方法是有的,可以用/?参数查看,如果我告诉你那这个就不是强制关机了
用windows本身的计划任务不好吗?
如果一定要用程序实现,可以用计时器控件:
timer1.Interval=1000 '每秒触发一次
在Timer1_Timer事件中加入:
If Minute(Now) = 0 And Second(Now) = 0 Then '到整点了
'你的处理过程
end if
这样几乎没有CPU占用!