如何最大化IE視窗

出自VFP Wiki

參考資料

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

代碼

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  &&关闭