Running a javascript command from Windows Address Bar FOLLOWING the Web address?

[jksmurf]

yea, those forums are kinda snobby, makes one appreciate the helpfulness here..

Absolutely...

hmm, add a ",0" to end of ienavigate lines to not wait for page reload,[cuz it isn't reloading actually,just using javascript to alter what shows up]
[just javascript navigations, not the first one..]
and can go straight to page with first nav, http://www.setanta.com/HongKong/TV-Listings/

That was the magic catalyst! Wow, THANK YOU pBS! I added that to my script to test. It worked (with one thing that I need to delve deeper into wrt Dates**)

if you waited about 5 mins your script would continue after page timed out.. that's why nowait works..

Code:

_IENavigate($oIE,"javascript:__doPostBack('ctl00$cphForm$AllCols$tvlHeader$rptDays$ctl03$btnDay','')",0)
SaveTVxBhtml()

this also saves html, but not as nicely re-formatted as ie saves..

Code:

Func SaveTVxBhtml()
sleep(3000)
$SaveDate = @YEAR&@MON&$MDAYALT
$sHTML = _IEDocReadHTML ($oIE)
filewriteline($savedate & ".html",$sHTML)
endfunc

I'll need to look at that code after work today....

aha! needed instance 3 not 2 for type, and some other typos etc..uploading working script..

I need to check that too, beacuse I found that at work (XP) the Instance for the buttons CHANGED. I am using Vista32 at home and you ",0)" addition alone worked magic.

Be interested in what the other typos are, is there a way to compare scripts where changes are highlighted? Magic ! Made my day, thanks again!

** I need to find a way to harvest the date from the webpage, atthe moment I save using todays date, but Setanta don't change the default page so on the Webpage it says 21st, but I'm saving that date as the 22nd. More to work on, but it's a great start.

Cheers

k.

[pBS]

may be differences based on IE version..probably why the instance changed [or may be os related,saveas dialog is os generated]
you'll run into problems at end of month with manual increments..31 + 1 maybe just use day of week? [monday,tuesday,etc]
i guess just fix it for the os/browser ver. you plan on using it with..i'm on xp here..[but old v6 IE]

here's a file comparison program...i can't find it, so maybe it was my own typo...lol
http://www.grigsoft.com/wincmp4.zip

ahh,fixed date issue, by adding a day to current date..
should be date-proof..

[jksmurf]

yup XP and IE6, that instance is different.
Wrt dates, unfortunately the first page in the site (at least at 7am today) said 21st but here in HK it's already the 22nd. I guess I could wait to run it until they update their pages but it would be more robust to pick off the date in the header.
I also deleted the iecreate line with http://www.setanta.com it was a suggestion on the autoit forum... Not needed at all.

K

[pBS]

i uploaded date-fixed one in post above...

i would manually adjust for the timezone difference from today's local date...i don't think it changes but i'm not totally sure..[daylight savings time?]
but for most part it is only way i can see to get the dates..
just add the timezone difference to the current date:

Code:

$savedate = StringLeft(_DateAdd( 'h',6, _NowCalc()),10)

[adds 6 hours] to subtract i think jsut add negative number..

[jksmurf]

i uploaded date-fixed one in post above...

Hi pBS, cheers again, appreciate your input.

I looked at the code, which looks infinitely more elegant than mine, and I think I can see how it wouldn't go over the 28th or 30th or 31st, but I am still a bit puzzled (call me thick..) how it would fix the issue of the default page on the website http://www.setanta.com/HongKong/TV-Listings/ reporting a day that is 1 day earlier than today's actual date (because they haven't updated it yet)???

Code:

#include <Date.au3>
.
.
$save = _NowCalcDate()
.
.
ControlSend($hSave, "", "[CLASS:Edit; INSTANCE:1]", "TVxb-setanta.hk-" & stringreplace($savedate,"/","-"))
.
.
$savedate = _DateAdd("d",1,$savedate)
.
.

Looking at the HTML source, there is a date next to the button reference which I might be able to harvest (if I can work out how in Autoit) and reference that back to the first $savedate variable.

Code:

href="javascript:__doPostBack('ctl00$cphForm$AllCols$tvlHeader$rptDays$ctl01$btnDay','')">Tue, 22 Feb</a>

This is all on the premise that Setanta get the default page wrong ... in the meantime, I guess I can work out when they update it ... and schedule it to run after that time.

k.

[pBS]

if you can work out a regex to find the list item [li] that has class="selected" will have the date of the loaded page later in that line

[jksmurf]

Hi pBS, sorry to bother you again, but noticed something odd with the scripts, all the downloaded files are the same (as the first page).

(I thought) my original script went to each page and did the Javascript operation, in turn and downloaded that - now it seems that is not happening?

Code:

$oIE = _IECreate()
;
_IENavigate($oIE,"http://www.setanta.com/HongKong/TV-Listings/"); _IE that navigates to the first page and waits until "done". ; Opens Setanta Website ...
_IELoadWait($oIE); _IE  loads page and waits until REALLY "Done" to avoid "The Requested Resource Is in Use" Error Messages ...
$hIE = _IEPropertyGet($oIE, "hwnd"); get the 'handle' (hwnd) for the IE window opened.

;
SaveTVxBhtml(); Save the page by calling the Save Routine; InetGet is no good for Javascript pages as for urls only
;
_IENavigate($oIE,"javascript:__doPostBack('ctl00$cphForm$AllCols$tvlHeader$rptDays$ctl02$btnDay','')",0); Return from Save routine and move onto the next day using Javascript command
SaveTVxBhtml() ; Call Save Subroutine again, to save it and then Move onto the next day using Javascript command; Save it; etc etc

Your amended Code:

Code:

$oIE = _IECreate("http://www.setanta.com/HongKong/TV-Listings/",0,0); Open WebPage (Was just $oIE = _IECreate())
;
;
;
_IELoadWait($oIE); _IE  loads page and waits until REALLY "Done" to avoid "The Requested Resource Is in Use" Error Messages ...
_IENavigate($oIE,"http://www.setanta.com/HongKong/TV-Listings/"); _IE that navigates to the first page and waits until "done". ; Opens Setanta Website ...
$hIE = _IEPropertyGet($oIE, "hwnd"); get the 'handle' (hwnd) for the IE window opened.
;
SaveTVxBhtml(); Save the page by calling the Save Routine; InetGet is no good for Javascript pages as for urls only
;
_IENavigate($oIE,"javascript:__doPostBack('ctl00$cphForm$AllCols$tvlHeader$rptDays$ctl02$btnDay','')",0); Return from Save routine and move onto the next day using Javascript command
SaveTVxBhtml() ; Call Save Subroutine again, to save it and then Move onto the next day using Javascript command; Save it; etc etc

Any ideas ??

[pBS]

hmmm,well i'm getting same thing... maybe add more sleep beginning and end of save func to let it finish loading page..[may just be too fast]
well, i tried adding time but it didn't help...
i do get diff pages with this as save procedure:

Code:

Func SaveTVxBhtml()
sleep(3000)
$sHTML = _IEDocReadHTML($oIE)
filewrite(stringreplace($savedate,"/","-") & ".html",$sHTML)
$savedate = _DateAdd("d",1,$savedate)
sleep(2000)
EndFunc

tho the formatting looks a little different, all the text is there so i'd think it wouldn't care..[all it's grabbing is text,so pics/layout shouldn't matter much]
if the format is ok with TVxB then i'd go with it..

maybe the page saveas dialog only gets what the address shows...[which never changes for this]

[pBS]

this gets currently loaded page's date [just ## day]

Code:

sleep(3000)
$sHTML = _IEdocReadHTML ($oIE)
$html = StringSplit($sHTML, @CRLF)

for $line in $html
if Stringinstr($line, 'class=selected id=',0,1) then
  $odates = StringRight( StringTrimRight($line, 13), 3)
  msgbox(0,"", $odates)
  exitloop
endif
NEXT

[Reddwarf]

jksmurf: Can your script be modified to harvest data from another webpage that uses javascript to display different days of tv listings? I struggeled with this about a year ago but gave up...