.版本 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)