yeah邮箱登陆成功后无法点击写信

kanhaiyouyue

yeah邮箱登陆成功后无法点击写信

kanhaiyouyue

还有 新浪的也不行  

kanhaiyouyue

126邮箱登陆后也无法点击写信   请大家帮忙

果子

请提供源码

kanhaiyouyue

[e].版本 2
.支持库 HtmlView

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 A, 整数型
.局部变量 邮件标题, 文本型

网页_清除cookie (“http://mail.126.com/”)
超文本浏览框1.地址 ＝ “http://mail.126.com/”
网页填表.初始化 (超文本浏览框1.取窗口句柄 ())
网页填表.文本框_写内容 (“user”, 编辑框1.内容)
网页填表.文本框_写内容 (“password”, 编辑框2.内容)
网页填表.按钮_点击 (“loginBtn”)  ' 登陆
.如果真 (网页填表.就绪判断_智能 (超文本浏览框1.取窗口句柄 (), 5000))
    网页填表.链接_点击 (“写信”, , 真)  ' 写信
    .如果真 (网页填表.就绪判断_智能 (超文本浏览框1.取窗口句柄 (), 5000))
        网页填表.链接_点击 (“使用群|发单显”, )
        网页填表.文本框_写内容 (“11”, “标题”)
        网页填表.body文本框_写内容 (1, “你能收到我的邮箱吗”, )  ' 邮件内容
        网页填表.SPAN_点击 (“发 送”)  ' 点击发送按钮

    .如果真结束


.如果真结束









.子程序 __启动窗口_创建完毕

超文本浏览框1.地址 ＝ “http://mail.126.com/”
[/e]

kanhaiyouyue

[e].版本 2
.支持库 HtmlView

.程序集 窗口程序集1

.子程序 _按钮1_被单击

网页_清除cookie (“mail.sina.com.cn”)
网页填表.初始化 (超文本浏览框1.取窗口句柄 ())
网页填表.文本框_写内容 (“username”, 编辑框1.内容)
网页填表.文本框_写内容 (“password”, 编辑框2.内容)
网页填表.链接_点击 (“登 录”, )
.如果真 (网页填表.就绪判断_智能 (超文本浏览框1.取窗口句柄 (), 5000))
    网页填表.链接_点击 (“写信”, )
    .如果真 (网页填表.就绪判断_智能 (超文本浏览框1.取窗口句柄 (), 5000))
        网页填表.链接_点击 (“使用群|发单显”)
        网页填表.文本框_写内容 (“11”, “邮件标题”)
        网页填表.body文本框_写内容 (1, “你能收到我的邮箱吗”, )  ' 邮件内容
        网页填表.SPAN_点击 (“发 送”)  ' 点击发送按钮

    .如果真结束


.如果真结束




.子程序 __启动窗口_创建完毕

网页_清除cookie (“mail.sina.com.cn”)
超文本浏览框1.地址 ＝ “http://mail.sina.com.cn/”
[/e]

kanhaiyouyue

一共发了2个  126和sina的 类似还有yeah的没有发

果子

aitie2008 发表于 2012-2-14 12:38
一共发了2个  126和sina的 类似还有yeah的没有发

你就不能直接把源码打包成附件上传上来吗?

kanhaiyouyue

见附件 多谢了

果子

新浪邮箱例程 - 一键写信
http://www.3600gz.cn/thread-88606-1-1.html