How to read text from webpage in IE ?

[naru]

5 minutes ago, rm4453 said:

Here:

 

#include <IE.au3>

$oIE = _IEAttach ("Home")

Local $date
Local $oTds = _IETagNameGetCollection($oIE, "li")
For $oTd In $oTds
    If $oTd.className = "nav navbar-btn" Then
        $idate = StringSplit($oTd.NextElementSibling.InnerText, " ")[2] ; Because there is a space at beginning it parses that in first spot so we show 2nd
        ExitLoop
    EndIf
Next

MsgBox(0, "date is", $idate)

 

[Nine]

if there is too much variation in date/time format use regexp instead of stringsplit

[rm4453]

2 minutes ago, naru said:

 

your code stuff is inserting ? marks verify there isn't any after copying fresh from here:

 

Local $date
Local $oTds = _IETagNameGetCollection($oIE, "li")
For $oTd In $oTds
    If $oTd.className = "nav navbar-btn" Then
        $idate = StringSplit($oTd.NextElementSibling.InnerText, " ")[2] ; Because there is a space at beginning it parses that in first spot so we show 2nd
        ExitLoop
    EndIf
Next

MsgBox(0, "date is", $idate)

 

[naru]

1 hour ago, rm4453 said:

 

your code stuff is inserting ? marks verify there isn't any after copying fresh from here:

 

Local $date
Local $oTds = _IETagNameGetCollection($oIE, "li")
For $oTd In $oTds
    If $oTd.className = "nav navbar-btn" Then
        $idate = StringSplit($oTd.NextElementSibling.InnerText, " ")[2] ; Because there is a space at beginning it parses that in first spot so we show 2nd
        ExitLoop
    EndIf
Next

MsgBox(0, "date is", $idate)

 

@rm4453  Thank You , But i want to use this date to make script expire.

I am trying with this code but it was not working correctly

#include <date.au3>
#include <IE.au3>


$ExpirationDate = '17/03/2020'
$oIE = _IEAttach ("Home")
Local $date
Local $oTds = _IETagNameGetCollection($oIE, "li")
For $oTd In $oTds
    If $oTd.className = "nav navbar-btn" Then
        $idate = StringSplit($oTd.NextElementSibling.InnerText, " ")[2] ; Because there is a space at beginning it parses that in first spot so we show 2nd
        ExitLoop
    EndIf
Next

;~ MsgBox(0, "date is", $idate)
If $idate > $ExpirationDate Then MsgBox(64, 'Info:', "I'm sorry but your license has ended")

 

Edited March 17, 2019 by naru
add code

[FrancescoDiMuro]

1 hour ago, naru said:

I am trying with this code but it was not working correctly

More precisely, what is the result exptected, and what is not working now?

[naru]

1 hour ago, FrancescoDiMuro said:

More precisely, what is the result exptected, and what is not working now?

@FrancescoDiMuro 

This only follows the date, not month and Year. If the expired date (only date, not month and year) is smaller than the date it has been received get this msg : "I'm sorry but your license has ended".  Although there is a big month or year, there is no difference, and the same msg is available.

(I din't know english well, I hope you understand me as well)

 

[rm4453]

On 3/17/2019 at 11:05 AM, naru said:

@FrancescoDiMuro 

This only follows the date, not month and Year. If the expired date (only date, not month and year) is smaller than the date it has been received get this msg : "I'm sorry but your license has ended".  Although there is a big month or year, there is no difference, and the same msg is available.

(I din't know english well, I hope you understand me as well)

 

Put together what you can with below references, and report back if further help is needed.

 

Refer to these:

 

https://www.autoitscript.com/autoit3/docs/libfunctions/_NowDate.htm

https://www.autoitscript.com/autoit3/docs/libfunctions/_DateDiff.htm

[FrancescoDiMuro]

50 minutes ago, rm4453 said:

Put together what you can with below references, and report back if further help is needed.

He's banned from the Forum.

Edited March 20, 2019 by FrancescoDiMuro

[rm4453]

Just now, FrancescoDiMuro said:

He's banned from the Forum.

good to know thanks for the heads up.