有时候要使用vbs做一些小的工具,在此记录一些用到的技巧。
1、计算日期
Dim Zero,LastMonday,LastSunday,LastMonth1,LastMonth2,msg
Zero="1900-01-01 00:00:00"
LastMonth1=DateAdd("m", DateDiff("m", Zero,Now)-1, Zero)
LastMonth2=DateAdd("d",-1,DateAdd("m", DateDiff("m",Zero,Now), Zero))
LastMonday=DateAdd("ww",DateDiff("ww",Zero,Now),-5)
LastSunday=DateAdd("ww",DateDiff("ww",Zero,Now),1)
msg="上月第一天:"&LastMonth1&",最后一天:"&LastMonth2&vbCrLf
msg=msg&"上周一:"&LastMonday&",上周日:"&LastSunday
MsgBox msg
2、格式化日期函数
dim str,date1,y,m,d,dd
str="2011/5/22"
date1=cdate(str)
msgbox FormateDateTime(date1,"3")
rem //***********************************************************
rem 函数名:FormateDateTime(sendTime,Para)
rem 函数参数:sendTime:日期格式,Para:格式
rem 函数作用:格式时间或日期
rem 函数返回:返回格式化后的字符串
rem//************************************************************
Function FormateDateTime(sendTime,Para)
select case Para
rem YYYYMMDDHHmmss
case "1"
sendTime = year(sendTime) & right( "00" & month(sendTime),2) & right( "00" & day(sendTime),2) & right( "00" & hour(sendTime),2)
& right( "00" & minute(sendTime),2) & right( "00" & second(sendTime),2)
rem YYYYMMDD
case "2"
sendTime = year(sendTime) & right( "00" & month(sendTime),2) & right( "00" & day(sendTime),2)
rem YYYY-MM-DD
case "3"
sendTime = year(sendTime) & "-"& right( "00" & month(sendTime),2) & "-"& right( "00" & day(sendTime),2)
rem YYYY年MM月DD日
case "4"
sendTime = year(sendTime) & "年"& right( "00" & month(sendTime),2) & "月"& right( "00" & day(sendTime),2)& "日"
rem YYYY-MM-DD HH:mm:ss
case "5"
sendTime = year(sendTime) & "-"& right( "00" & month(sendTime),2) & "-"& right( "00" & day(sendTime),2) & " "& right( "00" &
hour(sendTime),2) & ":"& right( "00" & minute(sendTime),2) & ":"& right( "00" & second(sendTime),2)
end select
FormateDateTime = SendTime
end Function
3、发送邮件
Sub Send_mail
Dim Email,You_ID,MS_Space
'code by NetPatch
'VBS发送邮件参数说明
'You_Account:你的邮件帐号
'You_Password:你的邮件密码
'Send_Email:
'主要邮件地址
'Send_Email2: 备用邮件地址
'Send_Topic:
'邮件主题
'Send_Body:
'邮件内容
'Send_Attachment:邮件附件
You_ID=Split("你的邮箱地址", "@", -1, vbTextCompare)
'帐号和服务器分离
MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
'这个是必须要的,不过可以放心的事,不会通过微软发送邮件
Set Email = CreateObject("CDO.Message")
Email.From = "你的邮箱地址"
'这个一定要和发送邮件的帐号一样
Email.To = "收件人地址"
'主要邮件地址
Email.CC = ""
'备用邮件地址
Email.Subject = "话费统计"
'邮件主题
Email.Textbody = "你好,以下是统计日志:" & vbCrLf &Result
'邮件内容
Email.AddAttachment CurrentPath & "log.TxT"
'邮件附件
With Email.Configuration.Fields
.Item(MS_Space&"sendusing") = 2
'发信端口
.Item(MS_Space&"smtpserver") = "mail."&You_ID(1)
'SMTP服务器地址
.Item(MS_Space&"smtpserverport") = 25
'SMTP服务器端口
.Item(MS_Space&"smtpauthenticate") = 1
'cdobasec
.Item(MS_Space&"sendusername") = You_ID(0)
'你的邮件帐号
.Item(MS_Space&"sendpassword") = "*******"
'你的邮件密码
.Update
End With
Email.Send
'发送邮件
Set Email=Nothing
Set You_ID = Nothing
Set MS_Space = Nothing
'关闭组件
End Sub
分享到:
相关推荐
记录客户机操作的VBS脚本
清除ie历史浏览记录,利用vbs小脚本,其中的参数可以随意调换,8-cookie,16-表单数据,32-密码,2-临时文件,1-历史记录
在WinCC项目中如何使用VBS读取报警记录数据到EXCELzip,西门子之在WinCC项目中如何使用VBS读取报警记录数据到EXCEL
主要介绍了使用VBS获取当前日期的前一天 并修正输出格式,需要的朋友可以参考下
wincc7.4 用VBS将变量写入EXCEL,并能读取记录文件
该工具获取的电脑信息比较全面,有操作系统、CPU、内存、硬盘、显卡、声卡、网卡等信息,数据以记录形式保存在文件中,便于网管整理保管。
wincc中使用VBS脚本读写SQLServer数据库文件
vb2005制作COM类库完成记录剪贴板功能并使用vbs调用显示剪贴板内容 包括代码和制作文档
通过脚本修改脚本的内容,这里以统计脚本运行次数为例,想学习vbs的朋友可以参考下
vbs连接msql服务器中遇到的问题的日常记录,其中包含了mysql的驱动安装,数据源的建立,连接字符串的生成,连接时出现问题的解决。
TIA博途WINCC中通过VBS脚本执行向文件中读写数据的具体操作步骤
一款很好的VBS编辑工具,给大家分享下 1 代码高亮显示 2 支持调试,及时发现语法错误,这点在初学时很欣慰 3 快捷的代码片段存储功能,将自己经常用的片段记录下来 ......
5. 用户登录,通关每关游戏都会写入游戏日志文档game_log.txt ,记录用户,操 作,通关进度, 通关时间等 ps: 文件下载后,双击即可运行, 游戏的用户文档game_user.txt和日志文档game_log.txt是按照我桌面路径创建的,如果...
本文主要介绍了在WinCC中如何使用VBS脚本访问变量归档数据,并且获得数据使用Excel模版保存新文件,其中包括两个代码文本文档
一个用vbs写的能备份/恢复WIN7的无线网络密码,以防重做系统后无线密码忘记,或经常外出,用过很多无线,如果做了备份,以后重做系统后恢复,那么就不用记录密码了。(只能用于win7)
定日期删除文件
A0579_ 在WinCC中如何使用VBS读取变量归档数据到EXCEL
通过系统的ping命令可以查看网络是否良好,如果想监控网络运行状态以及查看历史情况,记录日志是最好的选择。PIng命令本身不能记录日志,且没有ping的时间记录,这个小工具或许能解决你的问题,自动隐藏活动窗口...
一个用vbs写的能备份/恢复WIN7的无线网络密码,以防重做系统后无线密码忘记,或经常外出,用过很多无线,如果做了备份,以后重做系统后恢复,那么就不用记录密码了。(win7上测试通过,win8应该可以,但没有测试过)...
执法记录仪、行车记录仪的数据如需单位留存,则需保存至指定目录。 设备插入windows电脑,即开始自动备份,备份完毕后,原设备内所有文件会被清空【注意会被清空】,文件都到目标目录里按照日期存档。 工具共2个...