开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 浏览器 > 查看源码
LEOutPort.cls
资源名称：IE_VB.rar　[点击查看]
上传用户：davilee3
上传日期：2015-04-22
资源大小：986k
文件大小：2k
源码类别：

浏览器

开发平台：

Visual Basic

LEOutPort.cls：源码内容
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cLEInfo"
  10. Attribute VB_GlobalNameSpace = True
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. '---------------------------------------------------------------------------------------
  15. ' Module    : cLEInfo
  16. ' DateTime  : 2005-5-13 12:13
  17. ' Author    : Lingll
  18. ' Purpose   : LE对外提供信息的接口
  19. '---------------------------------------------------------------------------------------
  21. Option Explicit
  24. '---------------------------------------------------------------------------------------
  25. ' Procedure : GetMainWindowObj
  26. ' DateTime  : 2005-5-13 12:13
  27. ' Author    : Lingll
  28. ' Purpose   : 获取主窗口
  29. '---------------------------------------------------------------------------------------
  30. Public Function GetMainWindowObj() As Object
  32. End Function
  37. '---------------------------------------------------------------------------------------
  38. ' Procedure : GetActiveWindow
  39. ' DateTime  : 2005-5-13 12:14
  40. ' Author    : Lingll
  41. ' Purpose   : 获取当前子窗口
  42. '---------------------------------------------------------------------------------------
  43. Public Function GetActiveWindow() As Object
  45. End Function
  47. '---------------------------------------------------------------------------------------
  48. ' Procedure : GetForegroundWebObj
  49. ' DateTime  : 2005-5-13 12:16
  50. ' Author    : Lingll
  51. ' Purpose   : 获取当前webbrowser object
  52. '---------------------------------------------------------------------------------------
  53. Public Function GetForegroundWebObj() As IUnknown
  55. End Function