利用IE控件访问Internet

这里向大家介绍另外一种方法：利用IE3.X提供的控件编程访问。
　　
　　IE控件
　　如果机器中安装了IE3.X，在VB5.0的控件（Component）列表窗口中就会有一个名为MicrosoftInternetControls的控件，选取该控件，并将它加到Form中。
　　该控件有以下几个重要的方法:
　　
　　GoHome：装入IE设定的起始页。
　　用法:object.GoHome
　　
　　Navigate:装入页面。
　　用法:object.Navigateurl
　　url为URL地址，如"http://www.microsoft.com"
　　
　　GoBack:返回上一个页面。
　　用法:object.GoBack
　　
　　GoForward:进入下一个页面。
　　用法:object.GoForward
　　
　　Stop:停止载入页面。
　　用法:object.Stop
　　该控件有以下重要事件:
　　BeforNavigateEvent:在每次装入页面前调用，声明如下：
　　PrivateSubobject_BeforeNavigate(ByValURLAsString,ByValFlagsAsLong,ByValTargetFrameNameAsString,PostDataAsVariant,ByValHeadersAsString,CancelAsBoolean)
　　其中的URL参数为将要装入的页面地址。
　　
　　StatusTextChangEvent:每次浏览器的操作状态改变时调用，声明如下：
　　PrivateSubWebBrowser1_StatusTextChange(ByValTextAsString)
　　Text:浏览器的操作状态。
　　访问方法
　　下面介绍如何通过编程实现对WWW的访问。
　　在Form中添加MicrosoftInternetControl控件显示页面。
　　在Form中添加4个CommandButton控件,Name属性分别为:GoButton、BackButton、ForwardButton、StopButton，用这4个CommandButton可以实现对浏览器的操作。
　　在Form中添加一个TextBox控件,用来输入和显示当前的页面地址。
　　在Form中添加Label控件,用来显示当前浏览器操作状态。
　　程序如下:
　　PrivateSubBackButton_Click()
　　'返回上一个页面
　　WebBrowser1.GoBack
　　EndSub
　　
　　PrivateSubForm_Load()
　　'程序装入后进入IE设定的起始页
　　WebBrowser1.GoHome
　　EndSub
　　
　　PrivateSubForm_Resize()
　　'改变窗口大小后同时改变控件的大小
　　WebBrowser1.Width=Form1.ScaleWidth
　　WebBrowser1.Height=Form1.ScaleHeight-900
　　Label1.Width=Form1.ScaleWidth
　　Label1.Top=Form1.ScaleHeight-300
　　EndSub
　　
　　PrivateSubForwardButton_Click()
　　'进入下一个页面
　　WebBrowser1.GoForward
　　EndSub
　　
　　PrivateSubGOButton_Click()
　　'浏览输入的页面
　　WebBrowser1.Navigate(Text1.Text)
　　EndSub
　　
　　PrivateSubStopButton_Click()
　　'停止浏览
　　WebBrowser1.Stop
　　EndSub
　　
　　PrivateSubText1_KeyPress(KeyAsciiAsInteger)
　　'浏览输入的页面
　　IfKeyAscii=13Then
　　WebBrowser1.Navigate(Text1.Text)
　　EndIf
　　EndSub
　　
　　PrivateSubWebBrowser1_BeforeNavigate
　　(ByValURLAsString,ByValFlagsAsLong,
　　ByValTargetFrameNameAsString,PostDataAsVariant,
　　ByValHeadersAsString,CancelAsBoolean)
　　'将当前显示的页面的URL地址显示在Text1上
　　Text1.Text=URL
　　EndSub
　　
　　PrivateSubWebBrowser1_StatusTextChange(ByValTextAsString)
　　'Label1显示当前页面装入情况
　　Label1.Caption=Text
　　EndSub
　　该程序在Win95、VB5.0下运行通过。->