Add(MainForm,14681279,63,84)
{
 link(onCreate,188991:doString,[])
}
Add(WinExec,9513980,161,84)
{
 FileName="powershell.exe"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,3924364:doString,[])
}
Add(FormatStr,188991,112,98)
{
 Mask="Add-Type -AssemblyName System.Windows.Forms\r\n$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{ \r\n    InitialDirectory = [Environment]::GetFolderPath('Desktop')\r\n    Title = 'Выберите документ Word '\r\n    Multiselect = $true \r\n    Filter = 'Documents (*.doc*)|*.doc*|All|*.*'\r\n}\r\n[void] $FileBrowser.ShowDialog()\r\n$FileBrowser.FileNames\r\n "
 link(onFString,9513980:doConsoleExec,[])
}
Add(WinExec,13614633,259,84)
{
 FileName="powershell.exe"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,13388704:doWork2,[])
 link(onConsoleError,13388704:doWork3,[(312,111)])
}
Add(Memo,7717528,392,98)
{
 Left=550
 Top=160
 Align=5
 ScrollBars=3
}
Add(Charset,12271718,336,98)
{
 link(onCharset,7717528:doAdd,[])
}
Add(HubEx,13388704,308,98)
{
 link(onEvent,12271718:doCharset,[])
}
Add(FormatStr,3924364,210,98)
{
 DataCount=1
 Mask="$tmp = Get-ChildItem %1 \r\n$pathname = $tmp.DirectoryName \r\n$filename = $tmp.Name \r\n\r\n$shellobj = New-Object -ComObject Shell.Application \r\n$folderobj = $shellobj.namespace($pathname) \r\n$fileobj = $folderobj.parsename($filename) \r\n$results = $($folderobj.getDetailsOf($fileobj, $index))\r\n$($folderobj.getDetailsOf($fileobj, 2)) + ' - ' + $($folderobj.getDetailsOf($fileobj, 165))\r\n'Расположение - ' + $($folderobj.getDetailsOf($fileobj, 194))\r\n'Количество страниц - ' + $($folderobj.getDetailsOf($fileobj, 157))\r\n'Количество слов - ' + $($folderobj.getDetailsOf($fileobj, 160))\r\n\r\n\r\n"
 link(onFString,13614633:doConsoleExec,[])
}

Add(MainForm,14681279,105,84)
{
 Width=665
 Height=432
 Caption="Получение всех не пустых свойст файла"
 link(onCreate,188991:doString,[])
}
Add(Memo,7717528,322,98)
{
 Width=649
 Height=393
 Align=5
 Font=[Consolas,12,0,0,204]
 ScrollBars=3
}
Add(Charset,12271718,273,98)
{
 link(onCharset,7717528:doAdd,[])
}
Add(HubEx,13388704,252,98)
{
 link(onEvent,12271718:doCharset,[])
}
Add(WinExec,9513980,210,84)
{
 FileName="powershell.exe"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,13388704:doWork2,[])
 link(onConsoleError,13388704:doWork3,[(256,111)])
}
Add(FormatStr,188991,161,98)
{
 Mask="Add-Type -AssemblyName System.Windows.Forms\r\nAdd-Type -AssemblyName System.IO.Compression.FileSystem\r\n\r\n$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{ \r\n    InitialDirectory = [Environment]::GetFolderPath('Desktop')\r\n    Title = 'Выберите документ Word '\r\n    Multiselect = $true \r\n    Filter = 'Documents (*.docx)|*.docx|All|*.*'\r\n}\r\n[void] $FileBrowser.ShowDialog()\r\n\r\n$filename = $FileBrowser.FileNames\r\n\r\n$zip = [System.IO.Compression.ZipFile]::Open($filename, 'Read')\r\n$propsentry = $zip.GetEntry('docProps/app.xml')\r\nIf ($propsentry -ne $null) {\r\n    $stream = $propsentry.Open()\r\n    $reader = New-Object System.IO.StreamReader $stream\r\n    $content = $reader.ReadToEnd()\r\n    $xmldoc = [xml]$content\r\n    $xmldoc.Properties \r\n}\r\n$zip.Dispose() "
 link(onFString,9513980:doConsoleExec,[])
}

1 VERSIONINFO
 FILEVERSION 1,0,0,1
 PRODUCTVERSION 1,0,0,1
 FILEFLAGSMASK 0x17L
 FILEOS 0x4L
 FILETYPE 0x1L
 FILESUBTYPE 0x0L
BEGIN
    BLOCK "StringFileInfo"
    BEGIN
        BLOCK "041904b0"
        BEGIN
            VALUE "FileDescription", "%fdesname"
            VALUE "FileVersion", "%ver"
            VALUE "InternalName", "%pname"
            VALUE "LegalCopyright", "Copyright (C) 2022"
            VALUE "OriginalFilename", "%fname"
            VALUE "ProductName", "%pname"
            VALUE "ProductVersion", "%ver"
            VALUE "E-mail", "%mail"
        END
    END
    BLOCK "VarFileInfo"
    BEGIN
        VALUE "Translation", 0x419, 1200
    END
END

Add(MainForm,2953706,154,105)
{
 Height=162
 Caption="Domain name to integer"
 link(onCreate,3095644:doEvent1,[])
}
Add(Host,1760141,266,161)
{
 link(onIPByHost,3196710:doEvent1,[])
 link(HostName,8865534:Var2,[])
}
Add(VisualStrings,7962421,273,56)
{
 Lines=#15:forum.hiasm.com|
 Width=88
}
Add(Hub,3196710,315,168)
{
 link(onEvent1,3045089:doStrCatDlm,[])
 link(onEvent2,5258912:doEnum,[(340,181)(340,209)(144,209)(144,223)])
}
Add(ConvertorEx,3409500,210,217)
{
 Mode=6
 link(onResult,2271008:doValue,[])
}
Add(Str_Enum,5258912,154,217)
{
 Delimiter="."
 link(onEnum,3409500:doConvert,[])
 link(onEndEnum,5651232:doString,[(200,230)(200,272)])
}
Add(MemFIFO,2271008,266,217)
{
 Count=4
}
Add(FormatStr,5651232,266,266)
{
 DataCount=4
 Mask="%4%3%2%1 "
 link(onFString,14063332:doWork,[])
 link(Str1,2271008:Value1,[])
 link(Str2,2271008:Value2,[])
 link(Str3,2271008:Value3,[])
 link(Str4,2271008:Value4,[])
}
Add(VBJScript,14063332,322,266)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|0:|
 Language=1
 Script=#27:function doWork(data,index)|5:		 { |36:		   sys.onEvent(parseInt(data,16));|5: 		 }|5:		   |
 UseName=0
 link(onEvent,9409233:doStrCatDlm,[])
}
Add(StrCatDelim,3045089,378,168)
{
 Str1="https://"
 Str2="/forum/0"
 Point(Delimiter)
 link(onStrCatDlm,6274648:doText,[])
}
Add(StrCatDelim,9409233,378,266)
{
 Str1="https://"
 Str2="/forum/0"
 Point(Delimiter)
 link(onStrCatDlm,1776293:doText,[])
}
Add(WinExec,10475682,504,112)
{
}
Add(Label,14772331,434,119)
{
 Left=20
 Top=15
 Height=20
 Font=[MS Sans Serif,12,0,-16777203,1]
 Underline=0
 CaptionOnClick=0
 link(onClick,15332757:doWork2,[])
}
Add(Label,6274648,434,168)
{
 Left=20
 Top=45
 Height=20
 Font=[MS Sans Serif,12,0,-16777203,1]
 Underline=0
 CaptionOnClick=0
 link(onClick,740295:doWork2,[])
}
Add(Label,1776293,434,266)
{
 Left=20
 Top=75
 Height=20
 Font=[MS Sans Serif,12,0,-16777203,1]
 Underline=0
 CaptionOnClick=0
 link(onClick,740295:doWork3,[(487,272)])
}
Add(Hub,3095644,196,119)
{
 link(onEvent1,12016116:doStrCatDlm,[])
 link(onEvent2,1760141:doIPByHost,[(221,132)(221,174)])
}
Add(StrCatDelim,12016116,378,119)
{
 Str1="https://"
 Str2="/forum/0"
 Point(Delimiter)
 link(onStrCatDlm,14772331:doText,[])
 link(Delimiter,8865534:Var3,[(398,103)])
}
Add(GetDataEx,8865534,273,98)
{
 link(Data,7962421:Text,[])
}
Add(HubEx,15332757,483,119)
{
 link(onEvent,10475682:doShellExec,[])
}
Add(HubEx,740295,483,168)
{
 Angle=3
 link(onEvent,15332757:doWork3,[])
}