#bas
Set oShellLink = WshShell.CreateShortcut(Data)

Add(MainForm,12764865,378,301)
{
 link(onCreate,528607:doString,[])
}
Add(VBJScript,5105322,490,315)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 VarPoints=#4:var1|
 DataPoints=#4:Link|
 Script=#23:Sub doWork(Data, Index)|44:Set WshShell = CreateObject("WScript.Shell")|46:Set oShellLink = WshShell.CreateShortcut(data)|34:sys.onEvent(oShellLink.TargetPath)|40:sys.onEvent(oShellLink.WorkingDirectory)|36:sys.onEvent(oShellLink.IconLocation)|33:sys.onEvent(oShellLink.Arguments)|34:sys.var(oShellLink.TargetPath) '<<|7:End Sub|
 link(onEvent,15470677:doAdd,[])
}
Add(Dir,3388591,427,259)
{
}
Add(FormatStr,528607,434,315)
{
 DataCount=1
 Mask="%1Ярлык для AIMP2.exe.lnk"
 link(onFString,5105322:doWork,[])
 link(Str1,3388591:DesktopDir,[])
}
Add(Memo,15470677,553,315)
{
 Left=390
 Top=285
 Align=5
 ScrollBars=2
 link(Str,5105322:var1,[(559,303)(527,303)(527,359)(496,359)])
}