vb.net - Unable to to locate and click a submit button using mshtml.HTMLInputElement -

-


vb.net - Unable to to locate and click a submit button using mshtml.HTMLInputElement -

below is html form , below that, vb procedure, "loginexamp" enters in username , password. unable locate button , click since not seem show mshtml.htmlinputelement. "htmlinput.click()" never runs. how can adjust loginexamp code button clicked. help.

<form id="loginform" name="loginform" method="post" action=""> <input id="username" class="formfield" type="text" value="user name" maxlength="40" name="xusername"> <input id="password" class="formfield" type="password" onfocus="cleardefault(this)" maxlength="40" name="xpassword"> <button class="subbutton" onclick="javascript: submitform()">submit!</button> </form>

with below code

public sub loginexamp() dim objie shdocvw.internetexplorer dim htmldoc mshtml.htmldocument dim htmlinput mshtml.htmlinputelement dim htmlcoll mshtml.ihtmlelementcollection dim url object url = "http://localhost/buttonclicktest.html" 'just test page loginform above objie = new shdocvw.internetexplorer objie .navigate(url) .visible = true while .busy = true threading.thread.sleep(2000) end while htmldoc = .document htmlcoll = htmldoc.getelementsbytagname("input") while .busy = true threading.thread.sleep(2000) end while each htmlinput in htmlcoll if htmlinput.name = "xusername" htmlinput.value = "theusername" 'this works elseif htmlinput.name = "xpassword" htmlinput.value = "thepassword" 'this works end if if htmlinput.classname = "subbutton" 'this never true htmlinput.click() 'this line never runs end if next htmlinput end end sub

i able figure out reply own question. below code works. both username , password entered , button clicked.

public sub loginexamp() dim objie shdocvw.internetexplorer dim htmldoc mshtml.htmldocument dim htmlinput object dim url string url = "http://localhost/n1/buttonclicktest.html"'test page loginform above objie = new shdocvw.internetexplorer objie .navigate(url) .visible = true while .busy = true threading.thread.sleep(2000) end while htmldoc = .document dim htmlcoll mshtml.htmlformelement = directcast(htmldoc.forms.item("loginform"), mshtml.htmlformelement) while .busy = true threading.thread.sleep(2000) end while each htmlinput in htmlcoll if htmlinput.name = "xusername" htmlinput.value = "theusername" elseif htmlinput.name = "xpassword" htmlinput.value = "thepassword" end if if htmlinput.classname = "subbutton" htmlinput.click() end if next htmlinput end end sub

vb.net visual-studio browser

Comments

Post a Comment

Popular posts from this blog

How do I check if an insert was successful with MySQLdb in Python? -

-
How do I check if an insert was successful with MySQLdb in Python? - i have code: cursor = conn.cursor() cursor.execute(("insert new_files (videos_id, filename, " "is_processing) values (%s,%s,1)"), (id, filename)) logging.warn("%d", cursor.rowcount) if (cursor.rowcount == 1): logging.info("inserted values %d, %s", id, filename) else: logging.warn("failed insert values %d, %s", id, filename) cursor.close() fun is, cursor.rowcount always one, though updated database create videos_id unique key. is, insert fails because in tests same videos_id going appear (and when check database, nil inserted). whatever reason, rowcount 1 - logging.warn have spits out rowcount of 1. so, question: can utilize rowcount work out if insert went fine? if so, (presumably) doing wrong? otherwise, how check if insert went fine? your code not commit after modifications (your modifications rolled back). should...
Read more

delphi - blogger via idHTTP : error 400 bad request -

-
delphi - blogger via idHTTP : error 400 bad request - i'm trying post blogger using idhttp component, however, i'm getting "http/1.0 400 bad request" error. procedure tform1.button1click(sender: tobject); var request,response,req : tstringlist; auth,blogid : string; begin blogid := '00000000000000000000000'; request := tstringlist.create; response := tstringlist.create; req := tstringlist.create; idhttp1.request.connection := 'keep-alive'; idhttp1.request.contenttype := 'application/x-www-form-urlencoded'; idssliohandlersocket1.ssloptions.method := sslvsslv23; request.clear(); request.values['accounttype'] := 'google'; request.values['email'] := 'xxx@gmail.com'; request.values['passwd'] := 'yyy'; request.values['service'] := 'blogger'; response.text :=idhttp1.post('https://www.google.com/accounts/clientlogin',request); auth := resp...
Read more

postgresql - ERROR: operator is not unique: unknown + unknown -

-
postgresql - ERROR: operator is not unique: unknown + unknown - i have postgis database , have compute new values rows in new column. these values should average of values of several columns. query: insert bdps (da_m) values (avg('da_1'+'da_2'+'da_3'+'da_4'+'da_5'+'da_6'+'da_7')); in query bdps database, da_m new column , da_1 da_7 existing columns have double precision type. da_m created using alter table bdps add together column da_m double precision; i next error: error: operator not unique: unknown + unknown line 2: values (avg('da_1'+'da_2'+'da_3'+'da_4'+'da_5'+'da_6'+'da_7... ^ hint: not take best candidate operator. might need add together explicit type casts. ********** error ********** error: operator not unique: unknown + unknown sql state: 42725 hint: not take best candidate operator. might need add togethe...
Read more