BS 文件操作 创建文本文件 Set objFSO = CreateObject("scr ipting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\scr iptLog.txt") 检察文件是否存在 Set objFSO = CreateObject("scr ipting.FileSystemObject") If objFSO.FileExists("C:\FSO\scr iptLog.txt") Then
实用的VBS发送邮件，可以用于任务调度…… 部分代码如下 sFM = "eugene@163.com" sTO = "eugene@163.com" sFile = "C:\setuplog.txt" 'Call SendMailCDO(sFM,sTO,sTO,sTO,"Test Mail CDONTS","How are You!",sFile) Call SendMailCDO(sFM,sTo,"","","Test Mail CDO","How are You!",sFile) 'Cal
你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> =--------------------------------------------------------------------------- On Error Resume Next Dim wsh,ye set wsh=createobject("wscr ipt.shell") for i=1 to 10
