QQ邮箱cookie发送邮件源码

.版本 2
.支持库 spec

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 str, 文本型
.局部变量 cookie, 文本型
.局部变量 t_cookie, 文本型
.局部变量 mail, ReceiveMail
.局部变量 sid, 文本型
.局部变量 submit, 文本型
.局部变量 url, 文本型
.局部变量 content, 文本型

cookie ＝ “”  ' 这里输入QQ邮箱cookie
t_cookie ＝ cookie

mail.Addressee ＝ “收件人[email protected];收件人[email protected];”  ' 收件人邮箱  多个邮箱的话 请用 ; 分割
mail.Title ＝ “这是一封测试邮件标题1”
mail.Content ＝ “这是一封测试邮件内容1” ＋ #换行符 ＋ “时间:” ＋ 时间_到文本 (取现行时间 ())

url ＝ “https://w.mail.qq.com/cgi-bin/login?vt=passport&vm=wsk&delegate_url=&f=xhtml”
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, , , cookie, , ))
sid ＝ 文本_取出中间文本 (cookie, “sid=”, “;”)

url ＝ “https://w.mail.qq.com/cgi-bin/readtemplate?sid=” ＋ sid ＋ “&t=compose&from=today&loc=today,,,10”
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, , , cookie, , ))
submit ＝ 文本_取出中间文本 (str, #引号 ＋ “发送” ＋ #引号 ＋ “ name=” ＋ #引号, #引号, )

url ＝ “https://w.mail.qq.com/cgi-bin/cgi_redirect”
content ＝ submit ＋ “=%E5%8F%91%E9%80%81&showto=&to=” ＋ 编码_URL编码 (mail.Addressee, , 真) ＋ “&showcc=&cc=&showbcc=&bcc=&subject=” ＋ 编码_URL编码 (mail.Title, , 真) ＋ “&content=” ＋ 编码_URL编码 (mail.Content, , 真) ＋ “&UploadFile=&ignoredraft=y&ReAndFwMailid=&fmailid=&editorigin=&frommobile=frommobile&sid=” ＋ sid ＋ “&citeprev=yes&mobileautosv=&noccbcc=no&savesendbox=1&contenttype=text&srcfolderid=&s=&ReAndFw=&fattachlist=&cattachelist=&ftndowntpl=exs_ftn_download&signadded=yes&catid=&noteid=&sorttype=time&p=”
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 1, content, t_cookie, , ))

url ＝ “https://w.mail.qq.com/cgi-bin/readtemplate?sid=” ＋ sid ＋ “&t=composed_success”
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 0, , t_cookie, , ))

调试输出 (str)

@QQ邮箱cookie发送邮件源码