Add(VBJScript,13328302,735,336)
{
 WorkPoints=#6:dowork|
 EventPoints=#7:onEvent|
 DataPoints=#2:fl|
 Script=#23:sub dowork(data, index)|13:    fl=sys.fl|10:    Dim ie|55:    Set ie=CreateObject("InternetExplorer.Application")|19:    ie.navigate(fl)|48:    text=ie.document.body.createTextRange().text|11:    ie.Quit|21:    sys.onEvent(text)|7:end sub|
 UseName=0
 link(onEvent,9312528:doAdd,[(873,342)(873,363)])
 link(fl,4153215:Value,[])
}
Add(Hub,14908778,532,420)
{
 link(onEvent1,9312528:doClear,[(661,426)(661,370)])
 link(onEvent2,6296588:doExecute,[(595,433)(595,293)])
}
Add(Memory,4153215,735,259)
{
 Default=String(c:\unicode.txt)
 Point(Data)
 link(onData,13328302:dowork,[(779,265)(779,317)(723,317)(723,342)])
}
Add(Button,5648175,753,431)
{
 Left=310
 Top=250
 Caption="Save"
 Data=String(c:\unic2.txt)
 link(onClick,9312528:doSave,[(819,437)(819,398)])
}
Add(MainForm,2224029,476,406)
{
 Width=398
 Height=512
 Caption="Пример использования StreamCopy"
 link(onCreate,14908778:doEvent1,[])
}
Add(ODialog,6296588,644,287)
{
 link(onExecute,4153215:doValue,[(688,293)(688,265)])
}
Add(Memo,9312528,980,357)
{
 Left=10
 Top=10
 Width=360
 Height=235
 Font=[Times New Roman,9,0,0,161]
 ScrollBars=2
 Point(doSetSelect)
}