VFP中如何以全屏、最大化或不显示地址栏方式调用IE来登录某个网站？

VFP中如何以全屏、最大化或不显示地址栏方式调用IE来登录某个网站？

-----------------------------------------------

一、全屏方式

LOCAL loWebBrowser
loWebBrowser = CREATEOBJECT("InternetExplorer.Application")
loWebBrowser.Navigate("http://www.163.com")
loWebBrowser.Visible = .T.
loWebBrowser.FullScreen=.T. &&全屏
MESSAGEBOX('点击确定关闭IE',64,'信息提示')
loWebBrowser.Quit &&关闭

二、最大化方式

LOCAL loWebBrowser
DECLARE Integer SendMessage IN "user32" Integer, Integer, Integer, Integer
loWebBrowser = CREATEOBJECT("InternetExplorer.Application")
loWebBrowser.Navigate("http://www.163.com")
SendMessage(loWebBrowser.HWnd, 274,61488,0)
loWebBrowser.Visible = .T.
MESSAGEBOX('点击确定关闭IE',64,'信息提示')
loWebBrowser.Quit &&关闭

三、不显示地址栏

LOCAL loWebBrowser
loWebBrowser = CREATEOBJECT("InternetExplorer.Application")
loWebBrowser.Navigate("http://www.163.com")
loWebBrowser.AddressBar=.F. &&不显示地址栏
loWebBrowser.Visible = .T.
loWebBrowser.FullScreen=.T. &&全屏
MESSAGEBOX('点击确定关闭IE',64,'信息提示')
loWebBrowser.Quit &&关闭