如何才能用tc写一个发qq邮件的脚本？

渊大人

按键精灵倒是蛮简单的，但是无法化用到tc上面，怪了~

剑仙十号

//调用VBS发邮件
var hThread, path
功能 执行()
var SendFrom = "发件账号@163.com"
messagebox("请录入自己的邮箱密码.")
var Password = "请录入自己的邮箱密码."
var SendTo = "收件账号@163.com"
var MailTopic = "主题"
var MailBody = "内容"
var MailAttachment = "d:\\dll\\脚本.bmp"
var text = ""
text = SendFrom & "||" & Password & "||" & SendTo & "||" & MailTopic & "||" & MailAttachment
var ret = SendMail(text, MailBody)
traceprint("发送报告:" & ret)
结束
//
功能 SendMail(text, MailBody)
var str = 数组()
str[0] = "Function SendMail(text,MailBody) :"
str[1] = " Dim arr,ret:"
str[2] = " arr = Split(text, \"||\"):"
str[3] = " Dim SendFrom, Password, SendTo, MailTopic, MailAttachment:"
str[4] = " SendFrom = arr(0):"
str[5] = " Password = arr(1):"
str[6] = " SendTo = arr(2):"
str[7] = " MailTopic = arr(3):"
str[8] = " MailAttachment = arr(4):"
str[9] = " MS_Space = \"http://schemas.microsoft.com/cdo/configuration/\":"
str[10] = " Set Email = CreateObject(\"CDO.Message\"):"
str[11] = " Email.From = SendFrom:"
str[12] = " Email.To = SendTo:"
str[13] = " Email.Subject = MailTopic:"
str[14] = " Email.Htmlbody = MailBody:"
str[15] = "If MailAttachment <> \"\" Then:"
str[16] = "For i=0 to Ubound(Split(MailAttachment,\";\")):"
str[17] = "Email.AddAttachment Split(MailAttachment,\";\")(i):"
str[18] = "Next:"
str[19] = "End If:"
str[20] = " With Email.Configuration.Fields:"
str[21] = "  .Item(MS_Space&\"sendusing\") = 2:"
str[22] = "  .Item(MS_Space&\"smtpserver\") = \"smtp.\"&Split(SendFrom,\"@\",-1, vbTextCompare)(1):"
str[23] = "  .Item(MS_Space&\"smtpserverport\") = 25:"
str[24] = "  .Item(MS_Space&\"smtpauthenticate\") = 1:"
str[25] = "  .Item(MS_Space&\"sendusername\") =Split(SendFrom,\"@\",-1,vbTextCompare)(0):"
str[26] = "  .Item(MS_Space&\"sendpassword\") = Password:"
str[27] = "  .Update:"
str[28] = " End With:"
str[29] = " Err.clear:"
str[30] = " Email.Send:"
str[31] = " If Err.number<>0 Then:"
str[32] = "  SendMail=False:"
str[33] = "  ret = \"发送失败\":"
str[34] = " Else:"
str[35] = "  SendMail=True:"
str[36] = "  ret = \"发送成功\":"
str[37] = " End If:"
str[38] = " Set Email=Nothing:"
str[38] = " SendMail = ret:"
str[39] = "End Function"
var Code = ""
for(var i = 0; i < 数组大小(str); i++)
  Code = Code & str[i]
end
var 脚本引擎 = com("ScriptControl")
脚本引擎.language = "VBScript"
脚本引擎.addcode(Code)
return 脚本引擎.run("SendMail", text, MailBody)

结束

功能 启动_热键()
var bool = 线程获取状态(hThread)
if(bool == 0)
  hThread = 线程开启("执行", "")
end
结束
功能 终止_热键()
线程关闭(hThread)
结束
功能 调用VBS代码7_初始化()
path = 系统获取进程路径()
path = path & "data\\"
结束

渊大人

剑仙十号 发表于 2024-12-31 15:37
//调用VBS发邮件
var hThread, path
功能 执行()

感谢大佬，我试试看

渊大人

剑仙十号 发表于 2024-12-31 15:37
//调用VBS发邮件
var hThread, path
功能 执行()

大佬，不得行，QQ邮箱发送提示输出>>"发送报告:-2147352570"