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

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[0])
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[0], 5, 1 + 16)
        Sleep(1000)
Until $sTimeRemain[0] = "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[0] &$str[1],0)

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

回复 6# kevinch
MsgBox(4096,"",$str[0] &$str[1],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版的！

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

回复 11# gzh888666

不想抄的吧！

		自动登录	找回密码
密码			加入

[IE类操作] 请教：临时邮箱中的倒计时怎样获取，谢谢！（已解决）

本帖子中包含更多资源

本帖子中包含更多资源