189 8069 5689
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
十载的凉山州网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整凉山州建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“凉山州网站设计”,“凉山州网站推广”以来，每个客户项目都认真落实执行。
'System.Threading.Thread.Sleep(1000)
Me.Visible = False
Me.ShowIcon = False
'数据库导入代码
Me.Close()
End Sub
把Task scheduler改为：
""Task scheduler""
两边都加两个双引号
即Shell "net start ""Task scheduler"""
用windows本身的计划任务不好吗？
如果一定要用程序实现，可以用计时器控件：
timer1.Interval=1000 '每秒触发一次
在Timer1_Timer事件中加入：
If Minute(Now) = 0 And Second(Now) = 0 Then '到整点了
'你的处理过程
end if
这样几乎没有CPU占用！
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