georgmann писал(а):
Возможно ли в принципе такое сделать?Конечно.
Add(MainForm,2953706,147,154)
{
Width=477
link(onCreate,13695360:doString,[])
}
Add(HTTP_Get,16243313,252,168)
{
link(onDownload,13978849:doConvert,[])
}
Add(StreamConvertor,13978849,308,175)
{
Mode=6
link(onResult,5984309:doWork,[])
}
Add(FormatStr,13695360,203,168)
{
DataCount=1
Mask="https://linksly.co/api?api=ebe9fdbf04176bcb0a7d727e9c8857f8da8b5deb&url=%1"
link(onFString,16243313:doDownload,[])
link(Str1,3347710:Text,[])
}
Add(VisualStrings,3347710,203,112)
{
Lines=#35:https://forum.hiasm.com/topic/68217|
Width=221
}
Add(Label,2260200,406,175)
{
Width=461
Align=5
Font=[MS Sans Serif,23,0,0,1]
Caption=""
ColorHover=16711680
Underline=0
link(onClick,10724698:doPutText,[])
}
Add(VBJScript,5984309,357,175)
{
WorkPoints=#6:doWork|
EventPoints=#7:onEvent|0:|
Language=1
Script=#27:function doWork(data,index)|9: { |37: eval('var result = '+data); |48: sys.onEvent(result.shortenedUrl); |5: } |3: |
UseName=0
link(onEvent,2260200:doText,[])
}
Add(VisualStrings,14478949,203,49)
{
Lines=#23:https://forum.hiasm.com|
Width=165
}
Add(Clipboard,10724698,497,175)
{
Point(PutText)
link(PutText,2260200:Caption,[(503,166)(489,166)(489,215)(412,215)])
}