IE Right Click

[strate]

I'm trying to simplify the process to get DVD covers and for the life of me can not figure out how to save the image. The site is Cdcovers.cc. This is my first time trying the IE.au3 and tried example I've found while searching for a fix to this.

I've decided to work this out in reverse creating functions for each step as I go, and of course I'm stuck already.

Source is attached since i seen it was commonly used to resolve these problems. _IEImgClick was working for me (wasn't erroring anyways). Can you make this do a right click?

Source.txt

[Thatsgreat2345]

ok here it is _IEImgGetCollection check the beta help file for examples

Edited September 5, 2006 by thatsgreat2345

[lod3n]

DaleHohm posted a nifty IE image downloader:

http://www.autoitscript.com/forum/index.ph...owtopic=29053#4

Edited September 5, 2006 by lod3n

[strate]

Both do not work, I already tried them.

[Thatsgreat2345]

EDIT i see nvm, could you please post your code, so i dont have to write my own to navigate to the page

Edited September 5, 2006 by thatsgreat2345

[lod3n]

That site looks hard to automate. Amazon is much eaiser. Also there is this nifty program that will do it for you:

http://www.snapfiles.com/reviews/amazon-co...amzcoverdl.html

[Thatsgreat2345]

Modded for every connection no sleep now parses the source for the image link

#include <IE.au3>
$IE = _IECreate("http://www.cdcovers.cc/dvd_a.php")
_IELoadWait($IE)
$Form = _IEFormGetObjByName($IE,"download")
$list = _IEFormElementGetObjByName($Form,"titleList")
_IEFormElementOptionselect($list,"A Bear Named Winnie",1,"byText")
_IELinkClickByText($IE,"Front")
$submit = _IEFormElementGetObjByName($Form,"submit")
_IEAction($submit, "click")
_IELoadWait($IE)
$source = _IEDocReadHTML($IE)
$split = StringSplit(StringTrimLeft(StringTrimLeft($source,StringInStr($source,"<script language=Javascript>window.onload=setTimeout('document.the_cover.src=")),StringLen("<script language=Javascript>window.onload=setTimeout('document.the_cover.src=")),'"')
MsgBox(0,"Picture Found","The Picture has been found")
InetGet($split[1],FileSaveDialog("Save Picture","","Jpeg (*.jpeg)"))

Edited September 5, 2006 by thatsgreat2345

[strate]

How can it be made to select the first letter of the name for between

$list = _IEFormElementGetObjByName($Form,"titleList")
_IEFormElementOptionselect($list,"The Last Samurai",1,"byText")/

Thank you!

[Thatsgreat2345]

How can it be made to select the first letter of the name for between

$list = _IEFormElementGetObjByName($Form,"titleList")
_IEFormElementOptionselect($list,"The Last Samurai",1,"byText")/

Thank you!

could u eloborate on that got me lost

[strate]

If you search another movie that the title doesn't start with an "A" then it errors out. Just above the listbox is a bar that has the alpha selections

[Thatsgreat2345]

because im nice and am bored out of my mind with nothing better to do ill write everything just for you how about it just give me a lil while to work everything out

[strate]

because im nice and am bored out of my mind with nothing better to do ill write everything just for you how about it just give me a lil while to work everything out

I didn't ask for that.

[lod3n]

This should take you to the correct page for the title you're searching for

#include <IE.au3>
$title = "A Bear Named Winnie"
$firstletter = StringLower(stringleft($title,1))

$IE = _IECreate("http://www.cdcovers.cc/dvd_"&$firstletter&".php")
_IELoadWait($IE)
$Form = _IEFormGetObjByName($IE,"download")
$list = _IEFormElementGetObjByName($Form,"titleList")
_IEFormElementOptionselect($list,$title,1,"byText")
_IELinkClickByText($IE,"Front")
$submit = _IEFormElementGetObjByName($Form,"submit")
_IEAction($submit, "click")
_IELoadWait($IE)
$source = _IEDocReadHTML($IE)
$split = StringSplit(StringTrimLeft(StringTrimLeft($source,StringInStr($source,"<script language=Javascript>window.onload=setTimeout('document.the_cover.src=")),StringLen("<script language=Javascript>window.onload=setTimeout('document.the_cover.src=")),'"')
MsgBox(0,"Picture Found","The Picture has been found")
InetGet($split[1],FileSaveDialog("Save Picture","","Jpeg (*.jpeg)"))

[Thatsgreat2345]

here we go

expandcollapse popup

#include <IE.au3>
#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("Cover Downloader", 266, 60, 192, 125)
GUICtrlCreateLabel("Movie Title", 8, 8, 56, 17)
$title = GUICtrlCreateInput("", 72, 8, 97, 21)
$status = GUICtrlCreateLabel("Status : Waiting", 80, 32, 100, 17)
$download = GUICtrlCreateButton("Download", 184, 8, 73, 17, 0)
GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $download
            $movie = GUICtrlRead($title) ; just storing it in a variable for purposes unkown :)
            If $movie = "" Then
                Msgbox(0,"Error","Please Fill in the movie title.")
            Else
                GUICtrlSetData($status,"Status: Searching")
                $IE = _IECreate("http://www.cdcovers.cc/dvd_" & StringLower(StringLeft($movie,1)) & ".php",0,0)
                _IELoadWait($IE)
                $Form = _IEFormGetObjByName($IE,"download")
                $list = _IEFormElementGetObjByName($Form,"titleList")
                _IEFormElementOptionselect($list,$movie,1,"byText")
                GUICtrlSetData($status,"Status: Found")
                _IELinkClickByText($IE,"Front")
                $submit = _IEFormElementGetObjByName($Form,"submit")
                GUICtrlSetData($status,"Status: Downloading")
                _IEAction($submit, "click")
                _IELoadWait($IE)
                $source = _IEDocReadHTML($IE)
                $split = StringSplit(StringTrimLeft(StringTrimLeft($source,StringInStr($source,"<script language=Javascript>window.onload=setTimeout('document.the_cover.src=")),StringLen("<script language=Javascript>window.onload=setTimeout('document.the_cover.src=")),'"')
                InetGet($split[1],@DesktopDir & "\" & $movie & ".jpeg")
            EndIf
            MsgBox(0,"Download Successful","The Download was a success")
            GUICtrlSetData($status,"Status: Waiting")
            GUICtrlSetData($title,"")
        Case $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
WEnd

Edited September 5, 2006 by thatsgreat2345

[lod3n]

I'm going to duck out of this one.

[Thatsgreat2345]

now it probaly possible to compile a list so your not guessing ahahha ill work on that one later when im really bored

[jefhal]

thatsgreat2345- The whole idea of this script cracks me up! Add to that the fact that it works like a charm and I had a fine laugh over the whole thing. Not to mention your fine programming! MORE COFFEE FOR THE LAD!!!

[Thatsgreat2345]

thatsgreat2345- The whole idea of this script cracks me up! Add to that the fact that it works like a charm and I had a fine laugh over the whole thing. Not to mention your fine programming! MORE COFFEE FOR THE LAD!!!

AHAHAHH thanks i guess, personally its a mess i had a sleep in it at first , and didnt like that and so smoke and i were just messing around and eh source sounded cool to grab but thanks , not the biggest fan of stringtrimming

Edited September 5, 2006 by thatsgreat2345

[big_daddy]

I'm also working on something, but I probably won't be able to finish it tonight.

Here is a current screenshot.

Edit: All I really have left to do is pull which type of covers are available and populate the last combo box with that info.

Edited September 5, 2006 by big_daddy

[Thatsgreat2345]

I'm also working on something, but I probably won't be able to finish it tonight.

Here is a current screenshot.

Edit: All I really have left to do is pull which type of covers are available and populate the last combo box with that info.

you beat me to it i have to leave and cant finish my script