ok now i have a genuine issue Sean i hope you can help
I am trying to loose using javascript fro many of my DOM based scripts
Code:
setDomObj(pwb,obj,t)
{
/*********************************************************************
pwb - iwebbrowser2 interface pointer
obj - object reference optionally a comma delimited list of references a name, id, or index of all value can be used
t - text to replace existing contents with optionally a comma delimited list of references a name, id, or index of all value can be used
example of useage
the below will take a browser object and try get an object called username and set its value or innerHTML to john
setDomObj(pwb,"username","john")
This will cycle thru objects username pass and 3 and set them in that order to john sam and paul
setDomObj(pwb,"username,pass,3","john,sam,paul")
*/
If not pwb is Integer
Return "Error"
;~ http://msdn.microsoft.com/en-us/library/ms531073(VS.85).aspx# document object
IID_IHTMLWindow2 := "{332C4427-26CB-11D0-B483-00C04FD90119}"
pwin := COM_QueryService(pwb, IID_IHTMLWindow2, IID_IHTMLWindow2)
pdoc := COM_Invoke(pwin, "Document")
If not pdoc is Integer
{
COM_Release(pdoc), VarSetCapacity(pdoc, 0), COM_Release(pwin), VarSetCapacity(pwin, 0)
Return "Error"
}
col := COM_Invoke(pdoc, "all")
;~ MsgBox % t
StringSplit,tt,t,`,
Loop,Parse,obj,`,
{
If itm := COM_Invoke(col, "Item", A_LoopField) ;if this fails there really isnt any need to do below
{
;~ http://msdn.microsoft.com/en-us/library/ms534657(VS.85).aspx tagname property
typ := COM_Invoke(itm, "tagName")
inpt := "BUTTON,INPUT,OPTION,SELECT,TEXTAREA" ; these things all have value attribute and is likely what i need instead of innerHTML
COM_Invoke(itm, v := InStr(inpt, typ) ? "Value=" : "innerHTML=", tt%A_Index% "`n")
;~ release and clear out any objects
COM_Release(itm), VarSetCapacity(itm, 0)
}
Else
{
COM_Release(itm), VarSetCapacity(itm, 0), COM_Release(col), VarSetCapacity(col, 0),COM_Release(pdoc), VarSetCapacity(pdoc, 0), COM_Release(pwin), VarSetCapacity(pwin, 0)
Return "Error " A_LoopField " is not a valid obj reference"
}
}
COM_Release(col), VarSetCapacity(col, 0), COM_Release(pdoc), VarSetCapacity(pdoc, 0), COM_Release(pwin), VarSetCapacity(pwin, 0)
Return
}
It may be that i am mistaken but i fear not
If i pass any integer to variable t longer than 10 or 12 digits something happens to the value unless i send text also
so im guessing that there is some sort of max integer size that i can pass to arg0
but the whole numput and numget thing is still greek to me
Code:
COM_Invoke(itm, v := InStr(inpt, typ) ? "Value=" : "innerHTML=", tt%A_Index% "`n")
if i concatenate any text or other non integer characters no problem if i remove the concatenated text
I need to pas numbers as large as 64 bit to a datastore without concatenating any characters
Code:
COM_Invoke(itm, v := InStr(inpt, typ) ? "Value=" : "innerHTML=", "1234567890123456") ; same problem comes out 1015724736 unless i concatenate some text
Login
Register
FAQ
Search
