Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > Browser Client > View Code
Info.inc
Package: IE_VB.rar　[view]
Upload User: davilee3
Upload Date: 2015-04-22
Package Size: 986k
Code Size: 4k
Category:

Browser Client

Development Platform:

Visual Basic

Info.inc：Code Content
  1. //---------------------------------------------------------------------------------------
  2. // Module    : ILEInfo
  3. // DateTime  : 2005-5-13 12:13
  4. // Author    : Lingll
  5. // Purpose   : LE对外提供信息的接口
  6. //---------------------------------------------------------------------------------------
  8. interface ILEInfo;
  9. [
  10.     odl,
  11.     uuid(4FA92263-EC09-4CDB-A3B5-E30722486E7D),
  12.     helpstring("ILEInfo LE对外提供信息的接口")
  13. ]
  15. interface ILEInfo : stdole.IDispatch
  16. {
  17.     //---------------------------------------------------------------------------------------
  18. // Procedure : GetMainWindowObj
  19. // DateTime  : 2005-5-13 12:13
  20. // Author    : Lingll
  21. // Purpose   : 获取主窗口
  22. //---------------------------------------------------------------------------------------
  23. [helpstring("获取主窗口")]
  24.     HRESULT GetMainWindowObj(        
  25.         [out, retval] IDispatch **rtn
  26.     );
  28. //---------------------------------------------------------------------------------------
  29. // Procedure : GetActiveWindow
  30. // DateTime  : 2005-5-13 12:14
  31. // Author    : Lingll
  32. // Purpose   : 获取当前子窗口
  33. //---------------------------------------------------------------------------------------
  34. [helpstring("获取当前子窗口")]
  35.     HRESULT GetActiveWindow(        
  36.         [out, retval] IDispatch **rtn
  37.     );
  40. //---------------------------------------------------------------------------------------
  41. // Procedure : GetForegroundWebObj
  42. // DateTime  : 2005-5-13 12:16
  43. // Author    : Lingll
  44. // Purpose   : 获取当前webbrowser object
  45. //---------------------------------------------------------------------------------------
  46. [helpstring("获取当前webbrowser object")]
  47.     HRESULT GetForegroundWebObj(        
  48.         [out, retval] stdole.IUnknown **rtn
  49.     );
  52. //---------------------------------------------------------------------------------------
  53. // Procedure : ShowPopupWindow
  54. // DateTime  : 2005-5-18 18:00
  55. // Author    : Lingll
  56. // Purpose   :
  57. //---------------------------------------------------------------------------------------
  58. //[helpstring("")]
  59.     HRESULT ShowPopupWindow(        
  60.      [in, out] IDispatch **vForm,
  61.         [out, retval] boolean *rtn
  62.     );
  64. //---------------------------------------------------------------------------------------
  65. // Procedure : NewWebWindow
  66. // DateTime  : 2005-5-28 12:12
  67. // Author    : Lingll
  68. // Purpose   : 新建浏览窗口
  69. //---------------------------------------------------------------------------------------
  70. [helpstring("新建浏览窗口")]
  71.     HRESULT NewWebWindow(        
  72.      [in,out, defaultvalue("")] BSTR *vUrl
  73.     );
  76. //---------------------------------------------------------------------------------------
  77. // Procedure : CreateLCmnCtrl
  78. // DateTime  : 2005-5-31 00:28
  79. // Author    : Lingll
  80. // Purpose   : 利用le创建windows common control
  81. //---------------------------------------------------------------------------------------
  82. [helpstring("利用le创建windows common control")]
  83.     HRESULT CreateLCmnCtrl(
  84.         [in] CmnCtrlType vCtrlType ,
  85.         [out, retval] IDispatch **rtn
  86.     );
  89. //---------------------------------------------------------------------------------------
  90. // Procedure : SendMessage
  91. // DateTime  : 2005-8-15 01:27
  92. // Author    : Lingll
  93. // Purpose   : 全能型函数,方便日后扩展
  94. //---------------------------------------------------------------------------------------
  95. [helpstring("方便日后扩展")]
  96.     HRESULT SendMessage(
  97.         [in] long uMsg,
  98.         [in] long wParam,
  99.         [in] long lParam,
  100.         [out, retval] long  *rtn
  101.     );
  103. };