lsszmj 发表于 2011-9-18 15:29:47

请教：临时邮箱中的倒计时怎样获取，谢谢！（已解决）

本帖最后由 lsszmj 于 2011-9-19 13:31 编辑

这个网址http://mail.dns123.org/的截图。

请各位大大给点帮助！谢谢！

正解：2#，3#。特别感谢各位大大！

pusofalse 发表于 2011-9-18 19:04:27

#include <IE.au3>

Local $sURL = "http://mail.dns123.org/"
; Local $oIE = _IEAttach($sURL, "URL")
Local $oIE = _IECreate($sURL, 1, 1, 1)

Local $sHTMLText = _IEBodyReadHTML($oIE)
Local $sTimeRemain = StringRegExp($sHTMLText, "(?U)jQuery.+>(.+)<", 3)

If IsArray($sTimeRemain) Then
        MsgBox(0, "Time remain", $sTimeRemain)
EndIf

gzh888666 发表于 2011-9-18 20:05:33

本帖最后由 gzh888666 于 2011-9-18 20:08 编辑

#include <IE.au3>
Local $sURL = "http://mail.dns123.org/"
;Local $oIE = _IEAttach($sURL, "URL")
Local $oIE = _IECreate($sURL, 1, 1, 1)
Do
        Local $sHTMLText = _IEBodyReadHTML($oIE)
        Local $sTimeRemain = StringRegExp($sHTMLText, "(?U)jQuery.+>(.+)<", 3)
        TrayTip("提示", "剩余时间：" & $sTimeRemain, 5, 1 + 16)
        Sleep(1000)
Until $sTimeRemain = "0秒"

lsszmj 发表于 2011-9-18 20:24:44

测试无效！

lsszmj 发表于 2011-9-18 20:24:48

测试无效！

kevinch 发表于 2011-9-18 20:48:04

#include <IE.au3>
$oIE = _IECreate ("http://mail.dns123.org/",1,1,1,0)

$str=StringRegExp(_IEBodyReadText($oIE),"(?s)您的邮件地址将在(\d+分)*(\d+秒)以后失效",3)
MsgBox(4096,"",$str &$str,0)

lsszmj 发表于 2011-9-18 21:12:14

回复 6# kevinch
MsgBox(4096,"",$str &$str,0)
MsgBox(4096,"",$str^ ERROR

gzh888666 发表于 2011-9-18 21:14:54

回复 5# lsszmj
我这里测试正常呀！

kevinch 发表于 2011-9-18 21:28:33

回复 7# lsszmj
非IE浏览器？

hzxymkb 发表于 2011-9-18 21:35:54

回复 3# gzh888666


    风雪哥厉害呀！这么快就精通正则呀！
前两天看到你还在学正则的！

gzh888666 发表于 2011-9-18 22:01:52

回复 10# hzxymkb

抄P版的！{:face (238):}

hzxymkb 发表于 2011-9-18 22:04:41

回复 11# gzh888666

不想抄的吧！{:face (130):}
页: [1]
查看完整版本: 请教：临时邮箱中的倒计时怎样获取，谢谢！（已解决）