请教：在VB中如何用IE打开一个网页，而且要求这个窗口没有菜单、工具栏！

Question

就是要弹出一个广告窗口

Answer 1

//问题不容易，分数太少，呵呵
//方法在VB中用Shell函数打开一个预启动页面，再由预启动页面打开新的广告页面(当然新的广告页面一定要在预启页面中打开，否则就开启了两个IE了 :)//建立一个预备文件：“c:\test.htm”
//假如你的广告Html文件是：“c:\123.htm”//在“c:\test.htm”文件中写入如下内容：//===========test.htm文件的内容==============
<script>
  opener=null;
  window.close();
  window.open ("c:/123.htm", "newwindow", "height=150, width=350, toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=yes,left=250,top=250")
</script>
//====================================
'=============VB程序中的内容================
'在你的VB代码中写一个开启页面的内容：Private Sub Form_Click()
    Shell "explorer.exe c:\test.htm", vbNormalFocus
End Sub

Answer 2

还有一种法。引用Microsoft Internet Controller
Private Sub Form_Load()
  Dim my As New InternetExplorer
  my.ToolBar = False
  my.MenuBar = False
  my.Navigate ("www.sohu.com")
  my.Visible = True
End Sub

Answer 3

qiqunet(瑞旗·广东) 你那样不行，不是最优算法，，，嘻嘻！
charlse168(心狂) 这招不错！结贴了，如果分不够可以说声，我可以再开帖给！

Answer 4

'这个就是这个贴子里目前最优的算法Private Sub Form_Load()
    Dim pathMe As String
    pathMe = App.Path & "\open.htm"
    If Dir(pathMe) = "" Then'文件不存在就创建文件,文件存在就直接执行文件
        Open pathMe For Binary As #1
            Put #1, , "<script>" & vbCrLf
            Put #1, , "opener=null;window.close();window.open (""http://www.163.com"", ""newwindow"", ""height=150, width=350, toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=yes,left=250,top=250"")" & vbCrLf
            Put #1, , "</script>"
        Close #1
    End If
    Shell "explorer.exe " & pathMe, vbNormalFocus
End Sub