获取当前日期方法一：

Currentdate1=date()
msgbox Currentdate1

获取当前日期方法二：

Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)
msgbox Currentdate2

获取当前时间：

CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
m = "当前时间"& CurrentTime 
msgbox m

使用VBS获取当前日期的前一天 并修正输出格式
获取当前日期方法一：Currentdate1=date()msgboxCurrentdate1获取当前日期方法二：Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)msgboxCurrentdate2获取当前时间：CurrentTime=Ho

vbs qq自动登录脚本改进版
OnErrorResumeNextDimWshShell,QQPath,QQselectsetwshshell=createobject("wscript.shell")setfso=createobject("scripting.filesystemobject")key="HKLMSOFTWARETencentPlatForm_TYPE_LIST1"QQPath=wshshell.r

vbs qq自动发信息增强版
运行前请确定你的电脑安装了word。i=0setwshshell=createobject("wscript.shell")SetobjWord=CreateObject("Word.Application")SetcolTasks=objWord.Tasksdowhilei30ForEachobjTaskincolTasksifleft(o