//ṩĺҪٿIEԶҳ
//֧IEIEΪں˵ҳ

//v1.02 (2009.12.24): ҳԪصID֧ͨ
                      Сbug
//v1.01 (2009.11.1) : ҳͬʱʱһbug
//v1.0  (2009.10.26): һİ汾


//Ҫɫ
//1֧IEںҳԶ
//2֧ͬʱű/̲߳ͬҳ
//3֧ʹҳԪַ׼ȷλҳԪؽز
//4Ͻűʦ̨꼰ͼɫȺܣɽҳĺ̨

//ҳԪַ
//֧ʹҳַλҳԪزв
//  ַṹΪ1:ֵ1,2:ֵ2,
//  ֵðŷָ2֮ӢĶŷָ
//  ֵţ˫: 1:ֵ1,"2:ֵ2",....
//  ֵ֧Ժܶ࣬оٵΪԣHTMLԪԶ֧֣(οHTMLĵʽ˵)
//  tag: ǣõa(),input(ť),Select(б)
//  texttxt: ҳԪʾı
//  name: ҳԪص
//  value: ҳԪصvalue
//  type: ҳԪص
//  href: ҳԪصĳ
//  id: ҳԪصid
//  selected: ҳԪصselected(бѡ)
//  (ԪԶ֧֣ﲻһһо)
//  ⣬˼ķҳԪԣ
//  Frame: ҳжʱָҳԪڵĿܱţ0ʼ
//  idx: ҳϷԪ1ʱʹidxʾڼҳԪ

//ͨʹ:
//*Աʾκεַַ
//?ֻܱʾַ

::IEGetHwnd
function IEGetHwnd(IE: IEObject): integer;
IE󣬷ظöĵھ
IE: ĿIE
ֵ: IEĵڵľ
˵: صľIEڵľIEIEںʾҳĵھʹøþк̨ģ
set IEWnd=IEGetHwnd(IE)

::IEGetObjByHwnd
function IEGetObjByHwnd(HWND:integer): IEObject;
IEĵھҳӦIE
HWND: ΪInternet Explorer_ServerĵھҲIEʾĵӴڣע⣬IEھŶ
ֵ: HWNDӦIE
: 
set IEWnd=WindowFromMouse()
set IE=IEGetObjByHwnd(IEWnd)

::IEGetObjByUrl
function IEGetObjByUrl(Url:string): IEObject;
ѰҵǰϵͳеIEַطַIE
Url: һʾַַʹͨ*/?
ֵ: һIE䵱ǰ򿪵ַUrlҪ
: set IE=IEGetObjByUrl("*.sina.com*")

::IEGetObjByTitle
function IEGetObjByTitle(Title:string): IEObject;
ѰҵǰϵͳеIEı⣬طϱIE
Title: һʾҳַʹͨ*/?
ֵ: һIE䵱ǰ򿪵ҳTitleҪ
: set IE=IEGetObjByTitle("*ҳ*")

::IEValid
IEValid(IE:IEObject):integer;
ָIEǷЧЧķ1Ч򷵻0
IE: ǷЧIE
ֵ: IEЧ1Ч0
: set i=IEValid(IE)

::IEWaitComplete
procedure IEWaitComplete(IE: IEObject; TimeOut:integer [; FrameIndex:integer]);
ȴIEҳ
IE: ĿIEöЧֱ˳
TimeOut: ĵȴʱ䣬ʱֱ˳ҳǷɣȡֵΪ-1ʱΪ޵ȴ
FrameIndex: ѡҳʱָȴĸܵҳɣܱŴ0ʼ
: do IEWaitComplete(IE,-1)  //ڵĵȴIEҳ

::IEStatus
function IEStatus(IE: IEObject; [FrameIndex:integer]): string;
IE״̬
IE: ĿIE
FrameIndex: ѡҳΪܽṹʱָĸܵҳ״̬ܱŴ0ʼ
ֵ: ĿIE״̬¼ַ:
    "UNINITIALIZED"  : δʼ
    "LOADING"        : 
    "LOADED"         : ʼ
    "INTERACTIVE"    : Խвݶ
    "COMPLETE"       : е
: set s=IEStatus(IE)

::IENewObj
function IENewObj(Url:string; [WaitCompleteTimeOut:integer]): IEObject
һµIEڣҷָҳַ
Url: IE󴰿ںָʵĬַ
WaitCompleteTimeOut: ѡʾIEںȴٺԱҳɣ-1ʾ޵ȴ0ʾȴòʡԣʾȴҳ
ֵ: ´򿪵IE
: set IE=IENewObj("www.sina.com")

::IEClose
procedure IEClose(IE: IEObject);
رIE
IE: ҪرյIE
: do IEClose(IE)

::IEGetSelText
funtion IEGetSelText(IE: IEObject): string;
ȡָIEĵУǰѡеַ
IE: ĿIE
ֵ: ǰIEѡеַ
: set s=IEGetSelText(IE)

::IEGetUrl
function IEGetUrl(IE: IEObject): string;
ȡָIEǰ򿪵Urlַ
IE: ĿIE
ֵ: ǰIE򿪵ַַ
: set Url=IEGetUrl(IE)

::IEGetTitle
function IEGetTitle(IE: IEObject): string;
ȡָIEǰҳıϢ
IE: ĿIE
ֵ: ǰIE򿪵ҳı
: set title=IEGetTitle(IE)

::IEGo
function IEGo(IE:IEObject; Url:string):integer;
IEԶָUrlַ
IE: ĿIE
Url: IEʵҳ
ֵ: ʳɹ1򷵻0
: do IEGo(IE,"www.baidu.com")

::IEBack
function IEBack(IE: IEObject):integer;
IEǰһҳ
IE: ĿIE
ֵ: ɹ1򷵻0
: do IEBack(IE)

::IEForward
function IEForward(IE: IEObject): integer;
IEǰһҳ
IE: ĿIE
ֵ: ɹ1򷵻0
: do IEForward(IE)

::IEHome
function IEHome(IE: IEObject): integer;
IEĬҳ
IE: ĿIE
ֵ: ɹ1򷵻0
: do IEHome(IE)

::IERefresh
function IERefresh(IE: IEObect; [id:integer]): integer;
IEˢҳ
IE: ĿIE
id: ѡʾˢ·ʽ0ʾһˢ£1ʾǿȫˢ£ʡԣĬΪһˢ
ֵ: ˢ³ɹ1򷵻0
: do IERefresh(IE,0) --> Ч do IERefresh(IE)

::IEexecScript
function IEexecScript(IE: IEObject; Code,Language:string):string;
ĿIEִָJavaScript/VBScriptű
IE: ĿIE
Code: ű
Language: űͣJavaScript/VBScript
: do IEexecScript(IE,"alert(3);","JavaScript")

::IEAlert
procedure IEAlert(IE: IEObject; Msg:string);
ʾһҳʾԻʾϢΪMsgַֻһȷť
IE: ĿIE
Msg: ҪʾʾԻڵϢ
: do IEAlert(IE,"test")

::IEConfirm
function IEConfirm(IE: IEObject; msg:string):integer;
ʾһҳʾԻ򣬲ʾûѡǡ򡰷
IE: ĿIE
Msg: ԻʾʾϢ
ֵ: ûѡˡǡ1򷵻0
: set i=IEConfirm(IE,"ѡǻ߷")

::IEPrompt
function IEPrompt(IE: IEObject; Msg,DefaultStr:string):string;
ʾһҳʾԻ򣬲ʾûϢ
IE: ĿIE
Msg: ԻʾʾϢ
DefaultStr: Ĭϵַûʲôֱӵȷť򷵻ظֵ
ֵ: ûַ
ע: IE7ϰ汾Ĭ£ϵͳԶInternetô˺ʹô˺轫Ŀվ
: set s=IEPrompt(IE,"һַ","Ĭϵַ")

::IEWidth
function IEWidth(IE: IEObject): integer;
ȡIE
IE: ĿIE
ֵ: IEڿ
: set wie=IEWidth(IE)

::IEHeight
function IEHeight(IE: IEObject): integer;
ȡIE߶
IE: ĿIE
ֵ: IEڸ߶
: set hie=IEHeight(IE)

::IEGetScrollLeft
function IEGetScrollLeft(IE: IEObject): integer;
ȡIE򿪵ҳǰλ
IE: ĿIE
ֵ: ǰIE򿪵ҳλ
: set i=IEGetScrollLeft(IE)

::IESetScrollLeft
function IESetScrollLeft(IE: IEObject; Left:integer): integer;
IE򿪵ҳָλ
IE: ĿIE
Left: Ҫλ
ֵ: ɹ1򷵻0
: set b=IESetScrollLeft(IE,50)

::IEGetScrollTop
function IEGetScrollTop(IE: IEObject): integer;
ȡIE򿪵ҳǰλ
IE: ĿIE
ֵ: ǰIE򿪵ҳλ
: set i=IEGetScrollTop(IE)

::IESetScrollTop
function IESetScrollTop(IE: IEObject; Left:integer): integer;
IE򿪵ҳָλ
IE: ĿIE
Left: Ҫλ
ֵ: ɹ1򷵻0
: set b=IESetScrollTop(IE,50)

::IEScrollTo
function IEScrollTo(IE: IEObject; x,y:integer; [FrameIndex:integer]):integer;
IEҳ棬ﵽxyλ
IE: ĿIE
x,y: λ
FrameIndex: ѡпʱָĸܵҳ
ֵ: IEЧ1򷵻0
: do IEScrollTo(IE,0,20)

::IEScrollBy
function IEScrollBy(IE: IEObject; x,y:integer; [FrameIndex:integer]):integer;
IEҳ棬λƺxy
IE: ĿIE
x,y: λ
FrameIndex: ѡпʱָĸܵҳ
ֵ: IEЧ1򷵻0
: do IEScrollBy(IE,0,20)

::IEMoveTo
function IEMoveTo(IE: IEObject; x,y:integer; [FrameIndex:integer]):integer;
IEڵΪ(x,y)
IE: ĿIE
x,y: ƶ
FrameIndex: ѡпʱָĸܵҳ
ֵ: IEЧ1򷵻0
ע: IEЧIEں˵Ч
: do IEMoveTo(IE,0,20)

::IEMoveBy
function IEMoveBy(IE: IEObject; x,y:integer; [FrameIndex:integer]):integer;
IEڵΪڵǰλƶ(x,y)
IE: ĿIE
x,y: ƶ
FrameIndex: ѡпʱָĸܵҳ
ֵ: IEЧ1򷵻0
ע: IEЧIEں˵Ч
: do IEMoveBy(IE,0,20)

::IEResizeTo
function IEResizeTo(IE: IEObject; x,y:integer; [FrameIndex:integer]):integer;
IEڵĴСΪx,y
IE: ĿIE
x,y: ڵĿ͸
FrameIndex: ѡпʱָĸܵҳ
ֵ: IEЧ1򷵻0
ע: IEЧIEں˵Ч
: do IEResizeTo(IE,0,20)

::IEResizeBy
function IEResizeBy(IE: IEObject; x,y:integer; [FrameIndex:integer]):integer;
IEڵĴСΪӿx,Ӹy
IE: ĿIE
x,y: ӵĴڿ͸
FrameIndex: ѡпʱָĸܵҳ
ֵ: IEЧ1򷵻0
ע: IEЧIEں˵Ч
: do IEResizeBy(IE,0,20)

::IESetCharSet
function IESetCharSet(IE: IEObject; ACharSet:string):integer;
IEʾĵַ
IE: ĿIE
ACharSet: ַ
ֵ: IEЧ1򷵻0
: do IESetCharSet(IE,"gb2312")

::IEGetCharSet
function IEGetCharSet(IE: IEObject): string;
ĿIEĵַ
IE: ĿIE
ֵ: ִгɹַ򷵻ؿַ
: set CharSet=IEGetCharSet(IE)

::IESetVisible
function IESetVisible(IE: IEObject; Value:integer): integer;
IEǷɼ
IE: ĿIE
Value: 1ʾôڿɼ0ʾô
ֵ: óɹ1򷵻0
ע: IEЧIEں˵Ч
: do IESetVisible(IE,0)  -> ָIE

::IEGetVisible
function IEGetVisible(IE: IEObject): integer;
鿴ָIE󴰿Ƿɼ
IE: ĿIE
ֵ: 1ʾΪɼ״̬0ʾΪ״̬
ע: IEЧIEں˵Ч
: set i=IEGetVisible(IE)

::IEItemExists
function IEItemExists(IE: IEObject; ElementStr:string):integer;
IEʾҳУָҳԪǷ
IE: ĿIE
ElementStr: ҳԪַڶλҳԪ
  ַṹΪ1:ֵ1,2:ֵ2,
  ֵ֧Ժܶ࣬оٵΪԣHTMLԪԶ֧֣(οHTMLĵʽ˵)
  tag: ǣõa(),input(ť),Select(б)
  texttxt: ҳԪʾı
  name: ҳԪص
  value: ҳԪصvalue
  type: ҳԪص
  href: ҳԪصĳ
  id: ҳԪصid
  selected: ҳԪصselected(бѡ)
  (ԪԶ֧֣ﲻһһо)
  ⣬˼ķҳԪԣ
  Frame: ҳжʱָҳԪڵĿܱţ0ʼ
  idx: ҳϷԪ1ʱʹidxʾڼҳԪ
ֵ: ҳԪشڣ1򷵻0
: set i=IEItemExists(IE,"tag:a,Text:**")  -> ҳǷһӣְء

::IEClick
function IEClick(IE: IEObject; ElementStr:string):integer;
ģҳϵĿԵҳԪأύťӵ
IE: ĿIE
ElementStr: ҳԪַڶλҳԪ
  ַṹΪ1:ֵ1,2:ֵ2,
  ֵ֧Ժܶ࣬оٵΪԣHTMLԪԶ֧֣(οHTMLĵʽ˵)
  tag: ǣõa(),input(ť),Select(б)
  texttxt: ҳԪʾı
  name: ҳԪص
  value: ҳԪصvalue
  type: ҳԪص
  href: ҳԪصĳ
  id: ҳԪصid
  selected: ҳԪصselected(бѡ)
  (ԪԶ֧֣ﲻһһо)
  ⣬˼ķҳԪԣ
  Frame: ҳжʱָҳԪڵĿܱţ0ʼ
  idx: ҳϷԪ1ʱʹidxʾڼҳԪ
ֵ: ģɹ1򷵻0

::IESetAttribute
function IESetAttribute(IE: IEObject; ElementStr:string; AttributeName:string; AttributeValue:string):integer;
޸ҳָҳԪص
IE: ĿIE
ElementStr: ҳԪַڶλҳԪ
  ַṹΪ1:ֵ1,2:ֵ2,
  ֵ֧Ժܶ࣬оٵΪԣHTMLԪԶ֧֣(οHTMLĵʽ˵)
  tag: ǣõa(),input(ť),Select(б)
  texttxt: ҳԪʾı
  name: ҳԪص
  value: ҳԪصvalue
  type: ҳԪص
  href: ҳԪصĳ
  id: ҳԪصid
  selected: ҳԪصselected(бѡ)
  (ԪԶ֧֣ﲻһһо)
  ⣬˼ķҳԪԣ
  Frame: ҳжʱָҳԪڵĿܱţ0ʼ
  idx: ҳϷԪ1ʱʹidxʾڼҳԪ
AttributeName: ƣValue,Text,Selected
AttributeValue: ֵ
ֵ: ޸ĳɹ1򷵻0

::IEGetAttribute
function IEGetAttribute(IE: IEObject; ElementStr:string; AttributeName:string):string;
ȡҳָҳԪص
IE: ĿIE
ElementStr: ҳԪַڶλҳԪ
  ַṹΪ1:ֵ1,2:ֵ2,
  ֵ֧Ժܶ࣬оٵΪԣHTMLԪԶ֧֣(οHTMLĵʽ˵)
  tag: ǣõa(),input(ť),Select(б)
  texttxt: ҳԪʾı
  name: ҳԪص
  value: ҳԪصvalue
  type: ҳԪص
  href: ҳԪصĳ
  id: ҳԪصid
  selected: ҳԪصselected(бѡ)
  (ԪԶ֧֣ﲻһһо)
  ⣬˼ķҳԪԣ
  Frame: ҳжʱָҳԪڵĿܱţ0ʼ
  idx: ҳϷԪ1ʱʹidxʾڼҳԪ
AttributeName: ҳԪصƣValue,Text,Selected
ֵ: ȡɹҳԪصֵ򷵻ؿַ
