Add(MainForm,2953706,21,105)
{
 link(onCreate,7434626:doWork,[])
}
Add(Message,12252830,119,119)
{
}
Add(VBJScript,7434626,74,119)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onEnd|
 Script=#78:    intSslErrorIgnoreFlags = 13056 ' 13056 = ignore all err, 0 = accept no err|24:Sub doWork (Data, Index)|54:    Set x = CreateObject("WinHttp.WinHttpRequest.5.1")|40:    x.Option(4) = intSslErrorIgnoreFlags|55:    call x.Open("GET", "https://stat.byfly.by/", false)|13:    x.Send() |29:    sys.onEnd(x.ResponseText)|47:End Sub                                        |
 UseName=0
 link(onEnd,12252830:doMessage,[])
}

Add(MainForm,2953706,21,105)
{
 link(onCreate,7434626:doWork,[])
}
Add(VBJScript,7434626,88,119)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onEnd|
 Script=#78:    intSslErrorIgnoreFlags = 13056 ' 13056 = ignore all err, 0 = accept no err|24:Sub doWork (Data, Index)|78:    Set x = CreateObject("WinHttp.WinHttpRequest.5.1")                        |40:    x.Option(4) = intSslErrorIgnoreFlags|54:    call x.Open("GET", "https://stat.byfly.by", false)|15:    x.Send()   |47:    sys.onEnd(BinaryToString(x.ResponseBody))  |13:End Sub      |32: Function BinaryToString(Binary)|37:  Dim cl1, cl2, cl3, pl1, pl2, pl3, L|9:  cl1 = 1|9:  cl2 = 1|9:  cl3 = 1|18:  L = LenB(Binary)|17:  Do While cl1<=L|47:    pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))  |17:    cl1 = cl1 + 1|17:    cl3 = cl3 + 1|21:    If cl3 > 300 Then|21:      pl2 = pl2 & pl3|14:      pl3 = ""|13:      cl3 = 1|19:      cl2 = cl2 + 1|23:      If cl2 > 200 Then|23:        pl1 = pl1 & pl2|16:        pl2 = ""|15:        cl2 = 1|12:      End If|10:    End If|6:  Loop|34:  BinaryToString = pl1 & pl2 & pl3|42:End Function                              |
 UseName=0
 link(onEnd,8653212:doMessage,[])
}
Add(Message,8653212,140,119)
{
}