Question

按键精灵 判断今天是星期几然后执行任务

如果今天是星期一 则执行任务1，，如果今天是星期二 则执行任务2。。星期三则任务3。。。。。。。。。。。。。代码都看了 也在论坛上看了些关于这方面的帖子 试着写了下 但无效 还是没弄明白该怎么写求助 求助 啊

Answer 1

Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "Get", "http://www.baidu.com/", False
XmlHttp.send
s = XmlHttp.getResponseHeader("Date")
Set XmlHttp = Nothing
xq = Split(s, ",")(0)
Select Case xq
Case "Sun"
xq="星期日"
Case "Mon"
xq="星期一"
Case "Tue"
xq="星期二"
Case "Wed"
xq="星期三"
Case "Thu"
xq="星期四"
Case "Fri"
xq="星期五"
Case "Sat"
xq="星期六"
End Select
TracePrint xq
调试即可
xq表示今天星期几