| Jeffrey W. Harris 2005-12-29, 8:23 pm |
| Marko,
I’ve found the following http://news.dbase.com/newsgroups.ph...article_id=1798 and have implemented this to another web site, but I needed to have it fill out multiple web entry fields and tried to invoke the “{Tab}” but the for
m does not want to respond when contained inside the ActiveX, however, just working with the form in IE alone I’m able to have the functionality. I’m wondering what or how you overcame this in the past?
Example segment :
with (this.ACTIVEX1.nativeObject)
DownloadComplete = class::CONTROL_DOWNL
OADCOMPLETE
endwith
this. SMCCAPPSCLOSEPUSHBUT
TON1 = new SMCCAPPSCLOSEPUSHBUT
TON(this)
with (this. SMCCAPPSCLOSEPUSHBUT
TON1)
height = 1.2273
left = 97
top = 24
width = 13
endwith
function Control_DownloadComp
lete
keyboard("harris")
keyboard("{Tab}") === This DOES NOT Work
keyboard("password") === This gets added to the same field where the 1st entry is made.
return
function form_onOpen
private cWebAddress
cWebAddress = "https://www.medencentive.com/PDNDoctor"
form.activex1.nativeobject. navigate2(cWebAddres
s)
return super::open()
endclass
Jeffrey W. Harris
Marko Mihorko [dBVIPS] Wrote:
> Hello Chucky!
>
> <chucky> je napisal v sporočilo...
>
>
> Thanks. ;-)
>
>
> As usual mark/copy/paste/save everything below to a file named f.e.
> <chucky.wfm> and later on doubleclick on it under the <Forms> tab of the
> <Navigator> window.
>
> Marko Mihorko [dBVIPS]
>
>
> ** END HEADER -- do not remove this line
> //
> // Generated on 28.11.2004
> //
> parameter bModal
> local f
> f = new chuckyForm()
> if (bModal)
> f.mdi = false // ensure not MDI
> f.readModal()
> else
> f.open()
> endif
>
> class chuckyForm of FORM
> with (this)
> text = "Chucky - Forcing IE fullscreen not working"
> endwith
>
> this.ACTIVEX1 = new ACTIVEX(this)
> with (this.ACTIVEX1)
> borderStyle = 3 // None
> l0 = " FNBBBBBBBEEPBBBBODDM
BBBBBBBBBBBBBBBBBBBB
BBBBBBBBBB"
> l0 += " BBBBBBBBBBBBBBBBBBBB
BBFNBBBBBBBBBBBBBBBB
BBBBBBBCBB"
> l0 += " BBBBPBOBGIBBIEEGNQCC
LPHKBJBBDMDPCDHDBJBB
BBBBBBBBBB"
> l0 += " BBFNBBBBBBBCCFBDBBBB
BBBBBBNBBBBBBBBBBBBB
FHJBBBBBBB"
> l0 += " BBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBB
BBBBBBBBBB"
> l0 += " BBBBBBBBBBBBBBBBBBBB
BBBCBBBBBBBBBBBBBBBB
BBBBBBBBBB"
> l0 += "BBBBBBBBBBBB"
> state = l0
> classId = "{8856F961-340A-11D0-A96B-00C04FD705A2}"
> anchor = 6 // Container
> endwith
>
> with (this.ACTIVEX1.nativeObject)
> DownloadComplete = class::CONTROL_DOWNL
OADCOMPLETE
> endwith
>
> function open
> form.activex1.nativeobject.navigate2(;
> "https://obc.canadapost.ca/emo/basicPin.do?language=en")
> return super::open()
>
> function Control_DownloadComp
lete
> keyboard('73 539 583 779')
> return
> endclass
>
>
>
>
>
|