本帖最后由 骗子 于 2011-6-10 15:16 编辑
邮箱账号密码就不写了
#include <IE.au3>
$oIE = _IECreate("http://mail.tsinghua.org.cn/coremail/index.jsp", 1, 1, 1, 1)
$oForm = _IEFormGetObjByName($oIE, "loginForm") ;登录表单
$username = _IEFormElementGetObjByName($oForm, "uid") ;用户名
_IEFormElementSetValue($username, "username") ;这里记得将username改成邮箱的账号
$password = _IEFormElementGetObjByName($oForm, "password") ;密码
_IEFormElementSetValue($password, "password") ;这里记得将password改成邮箱的账号
$oSelect = _IEFormElementGetObjByName($oForm, "face");界面风格,这个没什么用
_IEFormElementOptionSelect($oSelect, "H") ;界面风格,这个没什么用
$button = _IEFormElementGetObjByName($oForm, "action:login") ;,登录按钮
_IEAction($button, "click") ;点击登录按钮
_IELoadWait($oIE, 1000) ;给点延时,保证IE完全打开,愿意用winwait也行
$oFrame = _IEFrameGetCollection($oIE, 1) ;主框架中的框架1
$oFrame1 = _IEFrameGetCollection($oFrame, 0) ;框架中的框架0
_IELinkClickByIndex($oFrame1, 1) ;点击写信
_IELoadWait($oIE, 2000) ;给点延时,保证IE完全打开
$oFrame2 = _IEFrameGetCollection($oFrame, 1) ;继续找框架
$Input = _IEGetObjById($oFrame2, "to")
$Input.value = "9922250@qq.com" ;~收件人
$Input = _IEGetObjById($oFrame2, "cc")
$Input.value = "9922250@qq.com" ;~密送
$Input = _IEGetObjById($oFrame2, "subject")
$Input.value = "使用AU3自动发信测试";~主题
$oFrame3 = _IEFrameGetObjByName($oFrame2, "htmleditor") ;还是框架
$oFrame4 = _IEFrameGetCollection($oFrame3, 1) ;还是框架,
_IEBodyWriteHTML($oFrame4, '数据全部为AU3自动填写,如果能看到说明就能用了') ;;修改框架的内容,这里就是编辑框
$fasong = _IEGetObjById($oFrame2, "btnSend") ;找到 发信按钮
$fasong.click ;点击,发送
|