Need help COMobj, making a add manager

[HomePlayer]

Hello all,

We my wife and I have over a 100 add's on this ebay like site. Managing those add is getting harder whit every new add.

So i'm trying to get some code off the ground, to help us whit it.
the goal is;
To get a database (excel,txt) to write the adds in, and get the script to post them on the website.

But after almost a week of trying i'm not getting anywhere soon.
I don't want to use a (mouse)recorder, i'm sure the wife will get lost

I'll try to update the OP with my progress.
Under the spoiler you find a screen clip and some source of the site

Spoiler

Code: Select all

<div tabindex="0" class="listbox-container  custom" id="syi-categories-l1">
    
        <label>Kies groep</label>
    
    <ul tabindex="0" class="listbox item-frame"><li class="item  active" data-val="1" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/1_antiek-en-kunst">Antiek en Kunst</li><li class="item" data-val="31" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/31_audio-tv-en-foto">Audio, Tv en Foto</li><li class="item" data-val="91" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/91_auto-s">Auto's</li><li class="item" data-val="2600" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/2600_auto-onderdelen">Auto-onderdelen</li><li class="item " data-val="48" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/48_auto-diversen">Auto diversen</li><li class="item " data-val="201" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/201_boeken">Boeken</li><li class="item " data-val="289" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/289_caravans-en-kamperen">Caravans en Kamperen</li><li class="item " data-val="1744" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/1744_cd-s-en-dvd-s">Cd's en Dvd's</li><li class="item " data-val="322" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/322_computers-en-software">Computers en Software</li><li class="item " data-val="378" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/378_contacten-en-berichten">Contacten en Berichten</li><li class="item " data-val="1098" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/1098_diensten-en-vakmensen">Diensten en Vakmensen</li><li class="item " data-val="395" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/395_dieren-en-toebehoren">Dieren en Toebehoren</li><li class="item " data-val="239" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/239_doe-het-zelf-en-verbouw">Doe-het-zelf en Verbouw</li><li class="item " data-val="445" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/445_fietsen-en-brommers">Fietsen en Brommers</li><li class="item " data-val="1099" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/1099_hobby-en-vrije-tijd">Hobby en Vrije tijd</li><li class="item " data-val="504" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/504_huis-en-inrichting">Huis en Inrichting</li><li class="item " data-val="1032" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/1032_huizen-en-kamers">Huizen en Kamers</li><li class="item " data-val="565" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/565_kinderen-en-baby-s">Kinderen en Baby's</li><li class="item " data-val="621" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/621_kleding-dames">Kleding | Dames</li><

To fill the (form) a user has to click a item in all tree boxes.

then whit the use of F12 i found that the url post was

Code: Select all

https://www.marktplaats.nl/syi/plaatsAdvertentie.html?l1=1&licensePlate=&bucket=1&l2=2&origin=HEADER&nl.marktplaats.xsrf.token=1389880178001.25e90b55eb7f0f808169580b99055f58

l1=1&licensePlate=&bucket=1&l2=2&origin=HEADER& is the $var that comes from the clicking of the form,
the token is a problem if i want to deep link.
Well if i learn how to click in a COMobj. on <li class="item active" data-val="1" data-ga-track-page-view-on-click="/SYI/SELECTCATEGORY/1_antiek-en-kunst">Antiek en Kunst</li>
I don't need to deep link, and won't have to deal whit the token part.

Update:

Spoiler

Code: Select all

Gui Add, ActiveX, xm w1000 h640 vWB, Shell.Explorer
;ComObjConnect(WB)  ; Connect WB's events to the WB_events class object.
_SetUserAgent("")
	If(ErrorLevel)
	  Msgbox % ErrorLevel
	else
	  wb.Navigate("https://www.marktplaats.nl/syi/plaatsAdvertentie.html")
	while wb.busy or wb.ReadyState != 4
	   Sleep 10
Gui Show 
a = 2  
MsgBox % wb.document.getElementsByTagName("li")[a].click()

msgbox hier?

return
GuiClose:
ExitApp
;funtions list-------------------------------------------------------------------
_SetUserAgent(device) ;dit is de functie
{
  UAString := device == "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; )"
  DllCall("urlmon.dll\UrlMkSetSessionOption"
           , uint, 0x10000001
           , aStr, UAString
           , uint, StrLen(UAString)
           , uint, 0)
} 
;-------------------------------------------------------------------------------------

With

Code: Select all

MsgBox % wb.document.getElementsByTagName("li")[a].click()

its possible to click the menu items.

now i need still some code, that gets the click, when we are placing a add

[Blackholyman]

Example

Code: Select all

#Persistent
url = https://www.marktplaats.nl/syi/plaatsAdvertentie.html?l1=1&licensePlate=&bucket=1&l2=2&origin=HEADER&nl.marktplaats.xsrf.token=1389880178001.25e90b55eb7f0f808169580b99055f58
wb := ComObjCreate("InternetExplorer.Application")
wb.Silent := true

wb.Visible := true  ; This is known to work incorrectly on IE7.
wb.Navigate(url)
while (wb.busy) or (wb.Document.Readystate != "Complete")
	Sleep 1

Box1 := wb.document.getElementById("syi-categories-l1")
Box2 := wb.document.getElementById("syi-categories-bucket")
Box3 := wb.document.getElementById("syi-categories-l2")

UL1 := Box1.getElementsByTagName("UL")[0]
UL2 := Box2.getElementsByTagName("UL")[0]
UL3 := Box3.getElementsByTagName("UL")[0]

; loop box type 1
loop % (LIs := UL1.getElementsByTagName("LI")).length
	if instr(LIs[A_index-1].innertext, "Auto-onderdelen")
	{
		LIs[A_index-1].click()
		break
	}
	
Sleep 1000
; loop box type 3
loop % (LIs := UL3.getElementsByTagName("LI")).length
	if instr(LIs[A_index-1].innertext, "BMW")
	{
		LIs[A_index-1].click()
		break
	}


return

Hope it helps

[HomePlayer]

@Blackholyman wow thanks

nice peace of code, this will help for sure.
My code looks like this;

Spoiler

Code: Select all

#SingleInstance force
#Persistent
wb := ComObjCreate("InternetExplorer.Application") ; create IE
wb.Visible := true ; show IE



	If(ErrorLevel)
	  Msgbox % ErrorLevel
	else
	  wb.Navigate("https://www.marktplaats.nl/syi/plaatsAdvertentie.html")
	  ;wb.Navigate("C:\Users\Dell\Desktop\marktplaats\ahk\1\verkopen.htm")
	while wb.busy or wb.ReadyState != 4
	   Sleep 10

a = 0
b = 0
c = 0
titel = de titel


sleep 500
wb.document.getElementById("syi-categories-l1").getElementsByTagName("li")[a].click()
Sleep 800
wb.document.getElementById("syi-categories-bucket").getElementsByTagName("li")[b].click()
Sleep 800
wb.document.getElementById("syi-categories-l2").getElementsByTagName("li")[c].click()
	while wb.busy or wb.ReadyState != 4
	   Sleep 10
wb.document.all.title.value := titel
Sleep 500
wb.document.getElementById("file-picker-0").click()
sleep 800
Send file?
Send {hoofd letters}
return


ExitApp
;funtions list---------

Yours is better lol

The next step is click photo upload box, wel thats no problem the file select box puts up,

so I do a send key Send file-path/Send {testing} but thats not working.
And i really dont know why, the pop-up has focus, and the cursor is in the write place.

[HomePlayer]

Help please,

if you run the above script a file-select window will pop-up
at that point the script pauses til the pop-up closes.

but i cant send and letters or any thing.

[Blackholyman]

For me no file select box puts up with you script...

but maybe try an run the script as Admin

[HomePlayer]

Darn,
I forgot to put the code in

Spoiler

Code: Select all

#SingleInstance force
#Persistent
wb := ComObjCreate("InternetExplorer.Application") ; create IE
wb.Visible := true ; show IE

	If(ErrorLevel)
	  Msgbox % ErrorLevel
	else
	  wb.Navigate("https://www.marktplaats.nl/syi/plaatsAdvertentie.html")
	  ;wb.Navigate("C:\Users\Dell\Desktop\marktplaats\ahk\1\verkopen.htm")
	while wb.busy or wb.ReadyState != 4
	   Sleep 10

a = 5
b = 0
c = 0
titel = de titel


sleep 500
wb.document.getElementById("syi-categories-l1").getElementsByTagName("li")[a].click()
Sleep 800
wb.document.getElementById("syi-categories-bucket").getElementsByTagName("li")[b].click()
Sleep 800
wb.document.getElementById("syi-categories-l2").getElementsByTagName("li")[c].click()
	while wb.busy or wb.ReadyState != 4
	   Sleep 10
	   Sleep 500
wb.document.all.title.value := titel
Sleep 500
wb.document.getElementById("file-picker-0").click()
sleep 1000 ;give the file select box some time
Send "C:\Users\Dell\Desktop\marktplaats\fotos\1-1.jpg" ;wont work
;the script wont go any further, it's waits for the box to close
WinGet windows, List
Loop %windows%
{
	id := windows%A_Index%
	WinGetTitle wt, ahk_id %id%
	r .= wt . "`n"
}

return


ExitApp
;funtions list-------------------------------------------------------------------

;-------------------------------------------------------------------------------------

This line will open the file select box, no admin needit
wb.document.getElementById("file-picker-0").click()

[Blackholyman]

That line was in your last post also... it does not open a select box for me (xp, IE7 and win7, IE11)

have not really used any time to try and make it work but for now i can't really test it. But just to let you know if i manualy open the select box before the sleep is done it sends the text to the box just fine...

so unsure of the problem you have other then the .click() does not open a select box...

[HomePlayer]

mmm strange, maybe the site sees your not Dutch or from The Netherlands,

never-mind, a <input type="file"> is in the html source.

I have done all kinds of text insert, but every time the file select box pups up, the filed is empty.

If i then run this

Code: Select all

WinGet windows, List
Loop %windows%
{
	id := windows%A_Index%
	WinGetTitle wt, ahk_id %id%
	r .= wt . "`n"
}
MsgBox %r%file?
return

That will tell "program manager
File?"

I think i need a piece of code to detect a file-browse window and then paste my file-url