问专家-利用VB实现对Internet Explorer的调用与控制

利用VB实现对Internet Explorer的调用与控制

编号：	QA004874
建立日期：	2004年8月30日	最后修改日期：	2004年8月30日
所属类别：	Visual Basic - Web浏览器

    操作系统: win2000
    编程工具: vb6.0 sp5
    问题: 这是利用VB实现对Internet Explorer的调用与控制的源代码。可是这个是在新的Internet Explorer窗口里面进行控制的我想知道如何利用vb控制一个已经存在的Internet Explorer???

    Dim WithEvents ieView As InternetExplorer
    '在通用模块中定义Internet Explorer对象
    Private Sub Form_Load()
    cmdForward.Visible = False
    cmdBackward.Visible = False
    cmdCloseView.Visible = False
    '窗体调入时隐藏Internet Explorer控制按钮
    End Sub

    Private Sub cmdView_Click()
    Dim txtAddress As String
    On Error Resume Next '设置错误陷阱
    Set ieView = GetObject("", "InternetExplorer.Application")
    ieView.Visible = True
    '创建Internet Explorer对象的一个实例,并设为可见
    txtAddress = Trim(Text1.Text)
    ieView.Navigate txtAddress, navNoReadFromCache
    '按text1控件的内容进行浏览
    cmdView.Enabled = False
    cmdExit.Enabled = False
    cmdForward.Visible = True
    cmdBackward.Visible = True
    cmdCloseView.Visible = True
    '使浏览、退出命令钮无效，使IE控制命令钮可见
    End Sub

    Private Sub cmdForward_Click()
    On Error Resume Next '设置错误陷阱
    ieView.GoForward
    End Sub

    Private Sub cmdBackward_Click()
    On Error Resume Next '设置错误陷阱
    ieView.GoBack
    End Sub

    Private Sub cmdCloseView_Click()
    On Error Resume Next '设置错误陷阱
    ieView.Quit
    End Sub

    Private Sub ieView_OnQuit()
    Set ieView = Nothing
    '消除ieView对象
    cmdForward.Visible = False
    cmdBackward.Visible = False
    cmdCloseView.Visible = False
    cmdView.Enabled = True
    cmdExit.Enabled = True
    '恢复初始按钮状态
    End Sub

    Private Sub cmdExit_Click()
    End
    End Sub


    水平: 中级(vbstudy)

    基本思路是这样的:
    Private a As New SHDocVw.ShellWindows
    Private b As SHDocVw.InternetExplorer

    Private Sub Command1_Click()
    Form1.Caption = a.Count
    Set b = a.Item(0)
    Form1.Caption = Form1.Caption + b.LocationName
    Set b = Nothing
    Set a = Nothing
    End Sub


    我想这就是那些填表软件的原理

此问题由vbstudy回答。

附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, Web浏览器, ie, netscape。

	把这个问题推荐给朋友

Web Designed by ZebraStudio