autoit发邮件

#include <SmtpMailer.au3>
$s_SmtpServer = "" ;SMTP服务器
$s_FromName = "" ;邮件发送人
$s_FromAddress = "" ;邮件发送者地址
$s_ToAddress = "" ;收件人地址
$s_Subject = "" ;邮件标题
$as_Body = "" ;邮件正文
$s_AttachFiles = "" ;附件地址
$s_CcAddress = "" ;抄送地址
$s_BccAddress = "" ;密件抄送地址
$s_Username = "" ;用户名
$s_Password = "" ;密码
$IPPort = 25 ;发送端口，Gmail使用的发送端口为465
$ssl = 0

$ping = Ping("192.168.0.1", 10)
If $ping Then
        sendmail()
EndIf
Func sendmail()
        $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
        If @error Then
                MsgBox(0, "邮件发送失败", "错误代号:" & @error & "    描述:" & $rc)
        EndIf
EndFunc   ;==>sendmail

另一个资料

 

$web = "http://www.7uif.com/account/register_simple_step1"
$oHTTP = ObjCreate("microsoft.xmlhttp")
$oHTTP.Open("post", $web, False)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Content-Length", "31")
$oHTTP.Send("userId=r123456&passwordText=123456&passwordConfirm=123456&email=123456@qq.com&captchaText=vdeu&agreement=on&followup=http%3A%2F%2Ftzyol.7uif.com%2Fiframe%2Fregister_ok1%2Fregister_ok1.html")
MsgBox(0,'',BinaryToString($oHTTP.responseText))