![]() |
#2
吹水佬2023-06-04 19:42
|

oie = CREATEOBJECT("internetexplorer.application")
lurl="https://xygh.zfcg.sh./?utm=a0017.0008.cl9.20.4ec317a0dba411eb9b3c296eb8dc49cf"
oie.Navigate(lurl)
DO WHILE oie.Busy OR oie.ReadyState!=4
* DOEVENTS
INKEY(2)
?? " 请稍候......",TIME()+0h0D
ENDDO
*WAIT WINDOW "延时等待中..." TIMEOUT 0.5
bError = .F.
TRY
lctext = oie.document.body.innerHTML
CATCH
bError = .T.
MESSAGEBOX("网页打开错误",0+16,"出错了")
ENDTRY
lurl="https://xygh.zfcg.sh./?utm=a0017.0008.cl9.20.4ec317a0dba411eb9b3c296eb8dc49cf"
oie.Navigate(lurl)
DO WHILE oie.Busy OR oie.ReadyState!=4
* DOEVENTS
INKEY(2)
?? " 请稍候......",TIME()+0h0D
ENDDO
*WAIT WINDOW "延时等待中..." TIMEOUT 0.5
bError = .F.
TRY
lctext = oie.document.body.innerHTML
CATCH
bError = .T.
MESSAGEBOX("网页打开错误",0+16,"出错了")
ENDTRY
请教一下 如何才能把光标定位到 搜索文本框
目的是要把焦点定位到搜索文本框或打开的网页窗口
现在的情况 网页打开后焦点还在VFP中 没有转移到网页窗口