< HTML>
< script language="VBScript">
Dim oVFP
Set oVFP = CreateObject("VisualFoxPro.Application")
Set parentwin = external.menuArguments
Set doc = parentwin.document
Set sel = doc.selection
Set rng = sel.createRange()
str = rng.text
oVFP.SetVar "cTextFromIE", str
oVFP.DoCmd "*? cTextFromIE"
oVFP.DoCmd "_cliptext=cTextFromIE"
oVFP.DoCmd "messagebox(cTextFromIE,0+32+4096,'',2000)"
oVFP.DoCmd "oform=newObject('form')"
oVFP.DoCmd "oform.caption='the text is selectionned, captured form IE11 and directed to vfp form editbox.' "
oVFP.DoCmd "oform.addobject('edit1','editbox')"
oVFP.DoCmd "oform.width=820"
oVFP.DoCmd "oform.height=620"
oVFP.DoCmd "oform.autocenter=.t."
oVFP.DoCmd "oform.edit1.left=5"
oVFP.DoCmd "oform.edit1.top=5"
oVFP.DoCmd "oform.edit1.width=800"
oVFP.DoCmd "oform.edit1.height=600"
oVFP.DoCmd "oform.edit1.forecolor=rgb(128,0,64)"
oVFP.DoCmd "oform.edit1.fontbold=.t."
oVFP.DoCmd "oform.edit1.fontname='courier new'"
oVFP.DoCmd "oform.edit1.fontsize=10"
oVFP.DoCmd "oform.edit1.value=cTextFromIE"
oVFP.DoCmd "oform.edit1.visible=.t."
oVFP.DoCmd "declare integer BringWindowToTop in user32 integer HWND"
oVFP.Docmd "bringwindowtotop(oform.hwnd)"
oVFP.DoCmd "oform.show(1)"
oVFP.Visible=True
< /script>
< /HTML>