Set ie=CreateObject("InternetExplorer.application") '首先建立IE对象
With ie
.Visible=True '设置对象为可视
.MenuBar=false '菜单栏不可见
.ToolBar=false'工具栏不可见
.StatusBar=false '状态栏不可见
.Width =1024 '浏览器宽
.Height=768 '浏览器高
.Left=0 'X坐标
.Top=0 'Y坐标
.FullScreen=0 ' 1:全屏 0:非全屏
.Navigate "http://www.anjian.com" '打开网址
.Resizable=false '设置浏览器大小是否可以被改动 True:可以改动 False:不可以改动
End With
While ie.busy
delay 200
Wend
//ie.Quit '关闭浏览器
Set ie=Nothing '释放对象