13518219792
我不得不说，楼主很贪心！
成都创新互联专注于企业营销型网站建设、网站重做改版、冠县网站定制设计、自适应品牌网站建设、H5场景定制、商城网站制作、集团公司官网建设、外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为冠县等各大城市提供网站开发制作服务。
“选项卡”的已经很不错了，人家勉强可以无偿提供给你
“网页缩放”，呵呵，楼主太天真了，人家有也不会把功能这么完善的给你！
谁愿意把自己辛辛苦苦做的东西送给人家呢！
建议楼主还是先去下载一个单窗口、能前进、后退、刷新、地址栏的小作品！然后再在这个基础上自己完善一下！
简单的可以提供给你，复杂的也有，但是不免费提供！
如果楼主需要简单的，可以HI我！
首先，必须有COM的基础知识，因为IE本身就是COM技术的典型应用。我们看到最上层是WebBrowser的宿主（Host），也就是任何你想重用 (ReUse)webbrowser control的应用程序，可以是vb程序，也可以是vc或者任何其他语言的应用程序。应用程序必须是可容纳activex控件的容器。
Webbrowser control既是activex control也是activex document 的宿主。作为控件，它可以置于任何activex容器，作为文档容器，它针对特殊的类型，调用特殊类型注册的文档server以显示文档。如果你想显示一 个.doc文档，webbrowser control装载windows word,，对于html文档，webbrowser装载名为mshtml的组件(如图所示)。针对不同的文档，你不需要开发不同的应用，仅仅是调用 webbrowser control即可。
Shdocvw
Shdocvw.dll包含了webbrowser control ，控制webbrowser control (就像控制其他任何activex com 控件一样)，提供浏览能力给上层宿主。请注意webbrowser control位于第二级中。甚至IE也不直接而是通过shdocw.dll来使用webbrowser control的。尽管shdocvw提供了大部分的浏览功能，但是并不提供IE窗口的呈现功能。尽管如此，shdocvw还是提供了简单创建web 应用程序的能力。之后章节会讲到如何将ie的高级特性加入到你的应用程序。
MSHTML
早期的mshtml具有读取显示html的功能。MSHTML实际上是一个active 文档服务器，但是却可以作为其他控件的容器（如图中所示的）。记得吗，你可以将activex控件置于html中，此时mshtml就是一个 activex宿主，还可以控制其他的控件如vbscript 脚本引擎和javas
部分代码如下：
在窗口及WebBrowser创建完以后，写此代码：
WebBrowser.OnNewWindow2:=IE1NewWindow2;
给主窗口创建一个方法：
procedure TBrowForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);
Var NewForm:TBrowForm;
begin
try
NewForm :=TPopBrowerForm.Create(application);
NewForm.WebBrowser.OnNewWindow2 :=IE1NewWindow2;//如果在窗口的Oncreate事件
//有此代码，此处就可以省略
ppDisp := NewForm.WebBrowser.Application;
NewForm.Show;
Cancel:=false;
except
end;
end;
VB.NET调用IE代码示例：
Dim p As New Process
'获得URL
aURL = GetURL()
'获得IE路径
p.StartInfo.FileName =
System.Environment.
GetFolderPath( _
Environment.SpecialFolder.
ProgramFiles).Trim() _
"\Internet Explorer\
IEXPLORE.EXE"
p.StartInfo.Arguments
= aDenURL
'启动IE
'p.Start(aDenURL)
p.Start()
'主程序开始等待IE结束
p.WaitForExit()
另一种VB.NET调用IE的方法
Imports System.Threading
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e
As System.EventArgs) Handles
Button1.Click
Dim webobj As Object
webobj = CreateObject("Internet
Explorer.Application")
With webobj
.visible = True
.Navigate2(";)
Do While (.busy Or .readyState 4)
Thread.Sleep(100)
Loop
.Document.f.q.Value = Me.TextBox1.Text
.Document.f.btng.Click()
End With
MsgBox("completed.")
End Sub
