VFP有关CREATEOBJECT('InternetExplorer.Application')问题
由于没有数据库做服务器,采用的IE网页做的检测版本。
ox = Createobject("InternetExplorer.Application")
ox.Navigate([http://hbhcjt.com/jl_admin/version.aspx])
ox.Visible=.f.
Do While ox .ReadyState != 4
thisform.info123.Caption= "正在检测版本信息..."
Enddo
在很多电脑上均可以,但部分电脑用打开的非IE,导致网页不能隐藏。请教各位如何默认打开IE。
等待十三豆老师回答。
[解决办法]
这个是默认浏览器的问题。
改用在 vfp 表单上用 WebBrowser 控件打开你的地址。