你做的是微信功能?你搭建和接入微信了没有?
定时参考
http://www.foxtable.com/webhelp/scr/0657.htm
static d1 As Date = Date.today.AddDays(-1)If d1 <> Date.today AndAlso Date.Now.Hour=17 Then d1 = Date.today
msgbox(123)
end if