SaveAs dialog won't accept my sendkeys

[icarustu]

I hope someone can tell this newbie where he is going wrong. Autoit is awesome but this just isn't working for me.

I am trying to get a succession of charts created via an IE page and save to my local folder. I can do all of this with mouse clicks and it works fine. The below script does the same using _IE calls, avoiding mouse usage. But when I try and send text to the "save as" dialog that pops up when I try to save the chart, sendkeys does not do anything. What am I missing?

#include <Date.au3>

#include <Array.au3>

#include <IE.au3>

Opt("WinWaitDelay", 200)

Opt("WinTitleMatchMode", 4)

Opt("WinDetectHiddenText", 1)

Opt("MouseCoordMode", 0)

Dim $ShareArray

dim $destFolder

Dim $s

Dim $oImg

Dim $oDoc

Dim $oIE

$hares = "UKX;AIEA"

;"UKX;AIEA;ATK;AV.;BA.;BAY;BYR;BGC;EBT;GOC;HCM;IPR;PFD;QQ;RR;SBRY;SPI;SRDR;SGC;TT;ULVR"

; FTSE 100 code is UKX, but needs special treatment because prefix is $GB, not just GB

$ShareArray=StringSplit($hares,";")

$destFolder=FileSelectFolder("Select destination folder:","",1,"C:\TEMP")

for $i=1 to $ShareArray[0]

$ymbol=$ShareArray[$i]

if $ymbol="UKX" then

$s="$GB:" & $ymbol

Else

$s="GB:" & $ymbol

endif

$url="http://data.moneycentral.msn.com/scripts/chrtsrv.dll?symbol=" & $s & "&E1=1&LPR=2&C1=0&C2=1&D5=0&D2=0&D4=1&width=612&height=320&CE=0&CF=" & """0""" & "%20border=" & """0""" & "%20width=" & """612""" & "%20height=" & """258""" & "%20alt=""" & """%20galleryimg=" & """no"""

$oIE = _IECreate ($url)

$oDoc = _IEDocGetObj ($oIE)

$oImg=_IETagNameAllGetCollection($oDoc,0)

$a = $destFolder & "\" & @year & @mon & @mday & "_" & $ymbol & ".gif"

_IEAction ($oImg, "saveas")

send($a)

Sleep(2500)

_IEQuit($oIE)

next

;Finished

Exit

Any suggestions gratefully received!

icarustu

[simusphere]

This is very strange. I put a consolewrite of the $a variable in before the _IEAction and the variable $a is correctly displayed with the full file name desired. However, when the same consolewrite line is placed after the _IEAction line it doesn't execute at all and nothing is displayed in the console. Weird. Hopefully there is someone that is better with the IE Management functions than I am. I tried declaring the $a variable but it still didn't work.

If you comment out the "send($a)" line it still shows "chrtsrv.gif" in the "save picture" dialog box. Where is that string coming from? I am running vista so I have IE7 and don't know if that could be the problem.

expandcollapse popup

#include <Date.au3>
#include <Array.au3>
#include <IE.au3>
Opt("WinWaitDelay", 200)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)

Dim $ShareArray
dim $destFolder
Dim $s
Dim $oImg
Dim $oDoc
Dim $oIE
$hares = "UKX;AIEA"
;"UKX;AIEA;ATK;AV.;BA.;BAY;BYR;BGC;EBT;GOC;HCM;IPR;PFD;QQ;RR;SBRY;SPI;SRDR;SGC;TT;ULVR"
; FTSE 100 code is UKX, but needs special treatment because prefix is $GB, not just GB
$ShareArray=StringSplit($hares,";")

$destFolder=FileSelectFolder("Select destination folder:","",1,"C:\TEMP")
for $i=1 to $ShareArray[0]
$ymbol=$ShareArray[$i]
if $ymbol="UKX" then 
$s="$GB:" & $ymbol
Else
$s="GB:" & $ymbol
endif
$url="http://data.moneycentral.msn.com/scripts/chrtsrv.dll?symbol=" & $s & "&E1=1&LPR=2&C1=0&C2=1&D5=0&D2=0&D4=1&width=612&height=320&CE=0&CF=" & """0""" & "%20border=" & """0""" & "%20width=" & """612""" & "%20height=" & """258""" & "%20alt=""" & """%20galleryimg=" & """no"""

$oIE = _IECreate ($url)
$oDoc = _IEDocGetObj ($oIE)
$oImg=_IETagNameAllGetCollection($oDoc,0)
$a = $destFolder & "\" & @year & @mon & @mday & "_" & $ymbol & ".gif"
ConsoleWrite("Before $a= " & $a & @LF)
_IEAction ($oImg, "saveas")
ConsoleWrite("After $a= " & $a & @LF)
send($a)
Sleep(2500) 

_IEQuit($oIE)
next
;Finished
Exit

Edited February 11, 2008 by simusphere

[martin]

The function _IEAction ($oImg, "saveas") doesn't return until the path has been entered and the dialog closes so your script cannot fill the path in.

To get round this you could have another script compiled say, which fills the details in for you. The second script would need to wait till the "Save Picture" window was active, then wait till is didn't exist for each entry. You could run the second script with a parameter which was the $a string. The second script could terminate once it had done it's job.

Alternatively, you could start the second script, send it a message when you wanted a path entered the next time the "Save Picture" window appeared, and kill it when done with it.

[james3mg]

The function _IEAction ($oImg, "saveas") doesn't return until the path has been entered and the dialog closes so your script cannot fill the path in.

To get round this you could have another script compiled say, which fills the details in for you. The second script would need to wait till the "Save Picture" window was active, then wait till is didn't exist for each entry. You could run the second script with a parameter which was the $a string. The second script could terminate once it had done it's job.

Alternatively, you could start the second script, send it a message when you wanted a path entered the next time the "Save Picture" window appeared, and kill it when done with it.

I've never used _IEAction, but is it possible to have an adlib function fill this field in? Or does adlib not run while this function is still out?

[martin]

I've never used _IEAction, but is it possible to have an adlib function fill this field in? Or does adlib not run while this function is still out?

Good idea but unfortunately Adlib is blocked while waiting for the dialogue to close.

[icarustu]

The function _IEAction ($oImg, "saveas") doesn't return until the path has been entered and the dialog closes so your script cannot fill the path in.

To get round this you could have another script compiled say, which fills the details in for you. The second script would need to wait till the "Save Picture" window was active, then wait till is didn't exist for each entry. You could run the second script with a parameter which was the $a string. The second script could terminate once it had done it's job.

Alternatively, you could start the second script, send it a message when you wanted a path entered the next time the "Save Picture" window appeared, and kill it when done with it.

Thanks all you guys who tried to help.

Martin, I am at a bit of a loss as to what form that second script would take. I want to avoid using mouse clicks at all costs. I assume that the name chrtsrv.gif is filled in by the dll that is called in the url. Can you give me any more guidance on this please? I am surprised that none of the AutoIT commands I have tried (and I have tried quite a few!) will interact with the dialog.

[DaleHohm]

"saveas" is of questionable value because of this issue with stalling out the script.

It isn't clear to me exactly what you are trying to accomplish... are you trying to save the full document HTML to a file? If so, look at _IEDocReadHTML

Also look atht e second example for _IEAction that provides an approach to avoud the script stalling.

Dale

[icarustu]

"saveas" is of questionable value because of this issue with stalling out the script.

It isn't clear to me exactly what you are trying to accomplish... are you trying to save the full document HTML to a file? If so, look at _IEDocReadHTML

Also look atht e second example for _IEAction that provides an approach to avoud the script stalling.

Dale

I am trying to capture a whole raft of charts produced by the site for each of a number of share epic codes. The charts are generated by a serverside dll called within the html source code. I am only interested in the chart, not the underlying web page. I capture these charts monthly for our share club meeting and publish them in a single document that shows progress in our portfolio holdings.

My help file on _IEAction only gives one example. Where can I find this second example?

[martin]

I am trying to capture a whole raft of charts produced by the site for each of a number of share epic codes. The charts are generated by a serverside dll called within the html source code. I am only interested in the chart, not the underlying web page. I capture these charts monthly for our share club meeting and publish them in a single document that shows progress in our portfolio holdings.

My help file on _IEAction only gives one example. Where can I find this second example?

The latest Beta is 3.2.11.1 and that has a second example.

Here is the code with my suggestion which I have tested.

First thing you need to do is compile this first code and save it as spsend.exe in the same folder as your script.

;spsend.au3 to be compiled to spsend.exe
;needs some error checking added 

If $cmdline[0] = '' Then Exit
WinWait("Save Picture")
Sleep(200)
Send($cmdline[1])
Send("{ENTER}")
While WinExists("Save Picture")
sleep(20)
WEnd

Below is the modified version of your code which will call the exe and save the gifs. You will however be prompted if the file name already exists so you will have to add code to avoid that maybe.

expandcollapse popup

#include <Date.au3>
#include <Array.au3>
#include <IE.au3>
Opt("WinWaitDelay", 200)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)

Dim $ShareArray
Dim $destFolder
Dim $s
Dim $oImg
Dim $oDoc
Dim $oIE
$hares = "UKX;AIEA"
;"UKX;AIEA;ATK;AV.;BA.;BAY;BYR;BGC;EBT;GOC;HCM;IPR;PFD;QQ;RR;SBRY;SPI;SRDR;SGC;TT;ULVR"
; FTSE 100 code is UKX, but needs special treatment because prefix is $GB, not just GB
$ShareArray = StringSplit($hares, ";")

$destFolder = FileSelectFolder("Select destination folder:", "", 1, "C:\TEMP")
For $i = 1 To $ShareArray[0]
    $ymbol = $ShareArray[$i]
    If $ymbol = "UKX" Then
        $s = "$GB:" & $ymbol
    Else
        $s = "GB:" & $ymbol
    EndIf
    $url = "http://data.moneycentral.msn.com/scripts/chrtsrv.dll?symbol=" & $s & "&E1=1&LPR=2&C1=0&C2=1&D5=0&D2=0&D4=1&width=612&height=320&CE=0&CF=" & """0""" & "%20border=" & """0""" & "%20width=" & """612""" & "%20height=" & """258""" & "%20alt=""" & """%20galleryimg=" & """no"""

    $oIE = _IECreate($url)
;#cs
    $oDoc = _IEDocGetObj($oIE)
    $oImg = _IETagNameAllGetCollection($oDoc, 0)
    $a = $destFolder & "\" & @YEAR & @MON & @MDAY & "_" & $ymbol & ".gif"
    Run("spsend.exe " & $a,@ScriptDir);this will wait for the "Save Picture window then send $a to it
    _IEAction($oImg, "saveas")

    _IEQuit($oIE)
    
Next
;Finished
Exit

[icarustu]

That's brilliant Martin, thanks very much. I will try that when I get home.

Bugger that, I couldn't wait. It works perfectly.

I couldn't have asked for a better or more timely response. This forum rocks!

Edited February 12, 2008 by icarustu

[piratao2]

Does this work with IE6 ?

I'm trying something like Martin's script, but the Save as dialog that pops up is going to save the html page, not the images of the web page that I'm trying...

#include <IE.au3>
$oIE = _IECreate ("http://www.dpchallenge.com")
_IELoadWait ($oIE)

$oDoc = _IEDocGetObj($oIE)
$oImg = _IETagNameAllGetCollection($oDoc, 0)
_IEAction ($oImg, "saveas")

Edited April 26, 2008 by piratao2