找回密码  加入

AUTOIT CN

搜索
查看: 192|回复: 2

[系统综合] ;如果页面发现2019年字符 ;就发送邮件,谢谢

[复制链接]
发表于 2019-1-7 18:13:44 | 显示全部楼层 |阅读模式
谢谢,如何实现,

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2019-1-7 22:03:54 | 显示全部楼层
  1. Local $sSourceText=BinaryToString(InetRead('https://admission.bnu.edu.cn/tslx/yzl/index.html',1),4)
  2. If StringInStr($sSourceText,'2019') Then
  3. _SendEmail();本论坛搜索关键词“邮件”
  4. Else
  5.         MsgBox(0,'Warn','未发现2019!')
  6. EndIf
复制代码
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2019-1-7 18:14:20 | 显示全部楼层
Run(@ProgramFilesDir & "\Intern~1\iexplore.exe https://admission.bnu.edu.cn/tslx/yzl/index.html")
;Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE https://admission.bnu.edu.cn/tslx/yzl/index.html" ,"" , @SW_MINIMIZE)
Sleep(5000)
Send("{F5}")
MsgBox(0, '已刷新页面', '没有发现2019年字样,谢谢!')
;如果页面发现2019年字符
;就发送邮件,谢谢
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备15028933号-3 )谷歌 百度

GMT+8, 2019-1-23 10:14 , Processed in 0.079735 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表