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 '释放对象