Add(MainForm,13676178,189,147)
{
 Left=20
 Top=105
 Height=313
}
Add(VBJScript,13328302,329,203)
{
 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|
 link(onEvent,9312528:doAdd,[])
 link(fl,1031942:Value,[])
}
Add(Memo,9312528,399,203)
{
 Left=10
 Top=10
 Width=360
 Height=235
 ScrollBars=2
}
Add(ODialog,12985673,280,147)
{
 Filter="Текстовые документы (*.txt)|*.txt"
 link(onExecute,1031942:doValue,[])
}
Add(Memory,1031942,329,147)
{
 link(onData,13328302:dowork,[(373,153)(373,181)(317,181)(317,209)])
}
Add(Button,8014494,189,210)
{
 Left=315
 Top=250
 Caption="Open"
 link(onClick,14908778:doEvent1,[])
}
Add(Hub,14908778,238,210)
{
 link(onEvent1,9312528:doClear,[])
 link(onEvent2,12985673:doExecute,[(275,223)(275,153)])
}