|
楼主 |
发表于 2012-4-5 00:48:36
|
显示全部楼层
山西省大同市
本帖最后由 gxlm2001 于 2012-4-5 08:18 编辑
部分代码:(不能进入邮件内容的) 看各位高手有没有其他思路或办法
.版本 2
.支持库 WebBrowser2
.子程序 子程序
.局部变量 局_文本, 文本型
_启动窗口.互联网浏览器.浏览 (“https://col111.mail.live.com/default.aspx”, , , )
高级填表.初始化 (_启动窗口.互联网浏览器.取窗口句柄 ())
高级填表.就绪判断_智能 (_启动窗口.互联网浏览器.取窗口句柄 (), )
高级填表.文本框_写内容 (“login”,"llieyuanqiang976@hotmail.com")
高级填表.文本框_写内容 (“passwd”, "jiff2012?")
高级填表.按钮_点击 (“SI”, )
高级填表.就绪判断_智能 (_启动窗口.互联网浏览器.取窗口句柄 (), )
局_文本 = 高级填表.网页_取文本 ()
.判断开始 (寻找文本 (局_文本, “继续使用 Hotmail”, , 假) ≠ -1)
高级填表.链接_点击 (“继续使用 Hotmail”, )
高级填表.就绪判断_智能 (_启动窗口.互联网浏览器.取窗口句柄 (), )
局_文本 = 高级填表.网页_取文本 ()
.默认
.判断结束
.判断开始 (寻找文本 (局_文本, “Messenger 好友动态”, , 假) ≠ -1)
高级填表.链接_点击 (“收件箱”, 1, )
高级填表.就绪判断_智能 (_启动窗口.互联网浏览器.取窗口句柄 (), )
局_文本 = 高级填表.网页_取文本 ()
.判断开始 (寻找文本 (局_文本, “开始使用 Hotmail?”, , 假) ≠ -1)
高级填表.链接_点击 (“开始使用 Hotmail?”, , )
.默认
.判断结束
.默认
|
|