AHK: Прогресс бар скачивания торрент файла с программы uTorrent

{"build":28705,"label": [
]
,"torrents": [

["A5246C18C4BD5E29C84059CE17C3E0E33E172BD9",201,"Dark.Matter.S02E01.400p.HDTV.ColdFilm.Ru.avi",354526918,368,130580480,0,0,32,25622,8857,"",0,54,12,27,810439,1,223946438,"","","Загрузка","10cfcd8f",1467667675,0,"","G:\\TORRENTS",0,"C87B3D90"]]
,"torrentc": "82972423"
,"rssfeeds": []
,"rssfilters": []
}

Encore Working

proDAD VitaScene v.2.0.232 (32+64)

VideoHive - 3D Abstract Logo R",999\

Adobe.Premiere.Pro.CS6.v6.0.1.014.Multilingual.mundomanuales.com

Text=Shadowed

TextColor=ff00ff
ShadowColor=0725e6
TransColor=000003
Gui, Margin, 0, 0
;Gui, Color, %TransColor%  
Gui, -SysMenu -ToolWindow -Caption -Border +AlwaysOnTop +E0x20
                              
Gui +LastFound                                     
WinSet, TransColor, %TransColor%
WinSet, ExStyle, ^0x80,
WinSet, Transparent, 190
 
Gui, Font, s7 q5, Verdana
Gui, Add, Text, x4 y0 w1660 h8 Center c%ShadowColor%  BackgroundTrans vProg +0x201 , 
Gui, Add, Progress, w1678 h4 x0 y10 cBlue vMyProgress
Gui, Show, x1 y1037, AlwaysOnTop Window
;Gui, Show, HIDE NA
;WinSet Transparent, 100, ahk_id %Gui1%
Loop
{

ip := "192.168.1.107"
port := "8080"
user := "admin"
pass := "*****"
url := "http://" ip ":" port "/gui/"
tokenUrl := url "token.html"
action := "?list=1"
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", tokenUrl, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
token := "&token=" RegExReplace(HTTP.ResponseText, "<.+?>")
HTTP.Open("GET", url action token, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
;msgbox % HTTP.ResponseText


JsonString := HTTP.ResponseText

JS := new ActiveScript("JScript")
JS.eval("delete ActiveXObject; delete GetObject;") 

obj := JS.eval("(" . JsonString . ")").torrents
SetFormat,Float,0.1

{
Loop % obj.length
{
   ;MsgBox % obj[A_Index - 1][4]/10
   p = % obj[A_Index - 1][4]/10
   n = % obj[A_Index - 1][2]
   s = % obj[A_Index - 1][9]/1000000
   t = % obj[A_Index - 1][10]/60
;MsgBox, % p
;Progress, ws10 Fs7 ZY0 ZX0 ZW0 zh5 x1 y1 b w1750 h17 p%p%, %p%`% - %n% = %s%мб/с -- %t%м , ,
;Progress, % p ; Set the position of the bar to 50%.

;ToolTip %t%

GuiControl,, MyProgress, %p% vPRBAR cFF7200
GuiControl, , Prog,  %n%   скорость %s% мб/с   осталось-%t% м   завершено %p%`%
WinSetTitle,prog,,%a_space%
;Gui, Font, cBlack
;GuiControl, Font, Prog, 

                     
;Gui, show,W600 H480 , test
;WinSetTitle,test,,%a_space%


}

/*
 *  ActiveScript for AutoHotkey v1.1
 *
 *  Provides an interface to Active Scripting languages like VBScript and JScript,
 *  without relying on Microsoft's ScriptControl, which is not available to 64-bit
 *  programs.
 *
 *  License: Use, modify and redistribute without limitation, but at your own risk.
 */
class ActiveScript extends ActiveScript._base
{
    __New(Language)
    {
        if this._script := ComObjCreate(Language, ActiveScript.IID)
            this._scriptParse := ComObjQuery(this._script, ActiveScript.IID_Parse)
        if !this._scriptParse
            throw Exception("Invalid language", -1, Language)
        this._site := new ActiveScriptSite(this)
        this._SetScriptSite(this._site.ptr)
        this._InitNew()
        this._objects := {}
        this.Error := ""
        this._dsp := this._GetScriptDispatch()  ; Must be done last.
        try
            if this.ScriptEngine() = "JScript"
                this.SetJScript58()
    }

    SetJScript58()
    {
        static IID_IActiveScriptProperty := "{4954E0D0-FBC7-11D1-8410-006008C3FBFC}"
        if !prop := ComObjQuery(this._script, IID_IActiveScriptProperty)
            return false
        VarSetCapacity(var, 24, 0), NumPut(2, NumPut(3, var, "short") + 6)
        hr := DllCall(NumGet(NumGet(prop+0)+4*A_PtrSize), "ptr", prop, "uint", 0x4000
            , "ptr", 0, "ptr", &var), ObjRelease(prop)
        return hr >= 0
    }
    
    Eval(Code)
    {
        pvar := NumGet(ComObjValue(arr:=ComObjArray(0xC,1)) + 8+A_PtrSize)
        this._ParseScriptText(Code, 0x20, pvar)  ; SCRIPTTEXT_ISEXPRESSION := 0x20
        return arr[0]
    }
    
    Exec(Code)
    {
        this._ParseScriptText(Code, 0x42, 0)  ; SCRIPTTEXT_ISVISIBLE := 2, SCRIPTTEXT_ISPERSISTENT := 0x40
        this._SetScriptState(2)  ; SCRIPTSTATE_CONNECTED := 2
    }
    
    AddObject(Name, DispObj, AddMembers := false)
    {
        static a, supports_dispatch ; Test for built-in IDispatch support.
            := a := ((a:=ComObjArray(0xC,1))[0]:=[42]) && a[0][1]=42
        if IsObject(DispObj) && !(supports_dispatch || ComObjType(DispObj))
            throw Exception("Adding a non-COM object requires AutoHotkey v1.1.17+", -1)
        this._objects[Name] := DispObj
        this._AddNamedItem(Name, AddMembers ? 8 : 2)  ; SCRIPTITEM_ISVISIBLE := 2, SCRIPTITEM_GLOBALMEMBERS := 8
    }
    
    _GetObjectUnk(Name)
    {
        return !IsObject(dsp := this._objects[Name]) ? dsp  ; Pointer
            : ComObjValue(dsp) ? ComObjValue(dsp)  ; ComObject
            : &dsp  ; AutoHotkey object
    }
    
    class _base
    {
        __Call(Method, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Method](Params*)
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Get(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Property, Params*]
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Set(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
            {
                Value := Params.Pop()
                try
                    return (this._dsp)[Property, Params*] := Value
                catch e
                    throw Exception(e.Message, -1, e.Extra)
            }
        }
    }
    
    _SetScriptSite(Site)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+3*A_PtrSize), "ptr", p, "ptr", Site)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptSite")
    }
    
    _SetScriptState(State)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+5*A_PtrSize), "ptr", p, "int", State)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptState")
    }
    
    _AddNamedItem(Name, Flags)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+8*A_PtrSize), "ptr", p, "wstr", Name, "uint", Flags)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::AddNamedItem")
    }
    
    _GetScriptDispatch()
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+10*A_PtrSize), "ptr", p, "ptr", 0, "ptr*", pdsp)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::GetScriptDispatch")
        return ComObject(9, pdsp, 1)
    }
    
    _InitNew()
    {
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+3*A_PtrSize), "ptr", p)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::InitNew")
    }
    
    _ParseScriptText(Code, Flags, pvarResult)
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+5*A_PtrSize), "ptr", p
            , "wstr", Code, "ptr", 0, "ptr", 0, "ptr", 0, "uptr", 0, "uint", 1
            , "uint", Flags, "ptr", pvarResult, "ptr", 0)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::ParseScriptText")
    }
    
    _HRFail(hr, what)
    {
        if e := this.Error
        {
            this.Error := ""
            throw Exception("`nError code:`t" this._HRFormat(e.HRESULT)
                . "`nSource:`t`t" e.Source "`nDescription:`t" e.Description
                . "`nLine:`t`t" e.Line "`nColumn:`t`t" e.Column
                . "`nLine text:`t`t" e.LineText, -3)
        }
        throw Exception(what " failed with code " this._HRFormat(hr), -2)
    }
    
    _HRFormat(hr)
    {
        return Format("0x{1:X}", hr & 0xFFFFFFFF)
    }
    
    _OnScriptError(err) ; IActiveScriptError err
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        DllCall(NumGet(NumGet(err+0)+3*A_PtrSize), "ptr", err, "ptr", &excp) ; GetExceptionInfo
        DllCall(NumGet(NumGet(err+0)+4*A_PtrSize), "ptr", err, "uint*", srcctx, "uint*", srcline, "int*", srccol) ; GetSourcePosition
        DllCall(NumGet(NumGet(err+0)+5*A_PtrSize), "ptr", err, "ptr*", pbstrcode) ; GetSourceLineText
        code := StrGet(pbstrcode, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstrcode)
        if fn := NumGet(excp, 6 * A_PtrSize) ; pfnDeferredFillIn
            DllCall(fn, "ptr", &excp)
        wcode := NumGet(excp, 0, "ushort")
        hr := wcode ? 0x80040200 + wcode : NumGet(excp, 7 * A_PtrSize, "uint")
        this.Error := {HRESULT: hr, Line: srcline, Column: srccol, LineText: code}
        static Infos := "Source,Description,HelpFile"
        Loop Parse, % Infos, `,
            if pbstr := NumGet(excp, A_Index * A_PtrSize)
                this.Error[A_LoopField] := StrGet(pbstr, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstr)
        return 0x80004001 ; E_NOTIMPL (let Exec/Eval get a fail result)
    }
    
    __Delete()
    {
        if this._script
        {
            DllCall(NumGet(NumGet((p:=this._script)+0)+7*A_PtrSize), "ptr", p)  ; Close
            ObjRelease(this._script)
        }
        if this._scriptParse
            ObjRelease(this._scriptParse)
    }
    
    static IID := "{BB1A2AE1-A4F9-11cf-8F20-00805F2CD064}"
    static IID_Parse := A_PtrSize=8 ? "{C7EF7658-E1EE-480E-97EA-D52CB4D76D17}" : "{BB1A2AE2-A4F9-11cf-8F20-00805F2CD064}"
}

class ActiveScriptSite
{
    __New(Script)
    {
        ObjSetCapacity(this, "_site", 3 * A_PtrSize)
        NumPut(&Script
        , NumPut(ActiveScriptSite._vftable("_vft_w", "31122", 0x100)
        , NumPut(ActiveScriptSite._vftable("_vft", "31125232211", 0)
            , this.ptr := ObjGetAddress(this, "_site"))))
    }
    
    _vftable(Name, PrmCounts, EIBase)
    {
        if p := ObjGetAddress(this, Name)
            return p
        ObjSetCapacity(this, Name, StrLen(PrmCounts) * A_PtrSize)
        p := ObjGetAddress(this, Name)
        Loop Parse, % PrmCounts
        {
            cb := RegisterCallback("_ActiveScriptSite", "F", A_LoopField, A_Index + EIBase)
            NumPut(cb, p + (A_Index-1) * A_PtrSize)
        }
        return p
    }
}

_ActiveScriptSite(this, a1:=0, a2:=0, a3:=0, a4:=0, a5:=0)
{
    Method := A_EventInfo & 0xFF
    if A_EventInfo >= 0x100  ; IActiveScriptSiteWindow
    {
        if Method = 4  ; GetWindow
        {
            NumPut(0, a1+0) ; *phwnd := 0
            return 0 ; S_OK
        }
        if Method = 5  ; EnableModeless
        {
            return 0 ; S_OK
        }
        this -= A_PtrSize     ; Cast to IActiveScriptSite
    }
    ;else: IActiveScriptSite
    if Method = 1  ; QueryInterface
    {
        iid := _AS_GUIDToString(a1)
        if (iid = "{00000000-0000-0000-C000-000000000046}"  ; IUnknown
         || iid = "{DB01A1E3-A42B-11cf-8F20-00805F2CD064}") ; IActiveScriptSite
        {
            NumPut(this, a2+0)
            return 0 ; S_OK
        }
        if (iid = "{D10F6761-83E9-11cf-8F20-00805F2CD064}") ; IActiveScriptSiteWindow
        {
            NumPut(this + A_PtrSize, a2+0)
            return 0 ; S_OK
        }
        NumPut(0, a2+0)
        return 0x80004002 ; E_NOINTERFACE
    }
    if Method = 5  ; GetItemInfo
    {
        a1 := StrGet(a1, "UTF-16")
        , (a3 && NumPut(0, a3+0))  ; *ppiunkItem := NULL
        , (a4 && NumPut(0, a4+0))  ; *ppti := NULL
        if (a2 & 1) ; SCRIPTINFO_IUNKNOWN
        {
            if !(unk := Object(NumGet(this + A_PtrSize*2))._GetObjectUnk(a1))
                return 0x8002802B ; TYPE_E_ELEMENTNOTFOUND
            ObjAddRef(unk), NumPut(unk, a3+0)
        }
        return 0 ; S_OK
    }
    if Method = 9  ; OnScriptError
        return Object(NumGet(this + A_PtrSize*2))._OnScriptError(a1)
    
    ; AddRef and Release don't do anything because we want to avoid circular references.
    ; The site and IActiveScript are both released when the AHK script releases its last
    ; reference to the ActiveScript object.
    
    ; All of the other methods don't require implementations.
    return 0x80004001 ; E_NOTIMPL
}

_AS_GUIDToString(pGUID)
{
    VarSetCapacity(String, 38*2)
    DllCall("ole32\StringFromGUID2", "ptr", pGUID, "str", String, "int", 39)
    return String
}

}

sleep 3000
}

return 
GuiEscape:
ExitApp

obj := JS.eval("(" . JsonString . ")").torrents
Loop % obj.length
{
   folder := obj[A_Index - 1][26]
   hash := obj[A_Index - 1][0]
   action := "?action=getfiles&hash=" hash 
   HTTP.Open("GET", url action token, false)
   HTTP.SetCredentials(user, pass, 0)
   HTTP.Send()
   JsonString := HTTP.ResponseText
   file := JS.eval("(" . JsonString . ")").files
   loop % file[1].length
      msgbox % folder "\" file[1][A_Index-1][0]
}

ip := "192.168.0.150"
port := "8080"
user := "log"
pass := "pass"

url := "http://" ip ":" port "/gui/"
tokenUrl := url "token.html"
action := "?list=1"
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", tokenUrl, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
token := "&token=" RegExReplace(HTTP.ResponseText, "<.+?>")
HTTP.Open("GET", url action token, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
JsonString := HTTP.ResponseText

JS := new ActiveScript("JScript")
JS.eval("delete ActiveXObject; delete GetObject;") 

obj := JS.eval("(" . JsonString . ")").torrents
SetFormat,Float,0.1
Loop % obj.length
{
   folder := obj[A_Index - 1][26]
   hash := obj[A_Index - 1][0]
   action := "?action=getfiles&hash=" hash 
   HTTP.Open("GET", url action token, false)
   HTTP.SetCredentials(user, pass, 0)
   HTTP.Send()
   JsonString := HTTP.ResponseText
   file := JS.eval("(" . JsonString . ")").files
   loop % file[1].length
      msgbox % folder "\" file[1][A_Index-1][0]
}

ip := "192.168.0.150"
port := "8080"
user := "user"
pass := "pass"

url := "http://" ip ":" port "/gui/"
tokenUrl := url "token.html"
action := "?list=1"
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", tokenUrl, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
token := "&token=" RegExReplace(HTTP.ResponseText, "<.+?>")
HTTP.Open("GET", url action token, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
JsonString := StrGet(pText, cBytes, "utf-8")

JS := new ActiveScript("JScript")
JS.eval("delete ActiveXObject; delete GetObject;") 

obj := JS.eval("(" . JsonString . ")").torrents
SetFormat,Float,0.1
Loop % obj.length
{
   folder := obj[A_Index - 1][26]
   hash := obj[A_Index - 1][0]
   action := "?action=getfiles&hash=" hash 
   HTTP.Open("GET", url action token, false)
   HTTP.SetCredentials(user, pass, 0)
   HTTP.Send()
   Body := HTTP.ResponseBody
   pArr := ComObjValue(Body)
   cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
   pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
   JsonString := StrGet(pText, cBytes, "utf-8")
   file := JS.eval("(" . JsonString . ")").files
   loop % file[1].length
      msgbox % folder "\" file[1][A_Index-1][0]
}

path1 := % folder "\" file[1][A_Index-1][0]

WM_LBUTTONDOWN(wParam, lParam)
{
   ; X := lParam & 0xFFFF
   ; Y := lParam >> 16
    ;if A_GuiControl
       Control := "`n(in control " . A_GuiControl . ")"
    ToolTip path1 %path1%
}
ToolTip 2%path1%

Global path1 := folder "\" file[1][A_Index-1][0]

#NoTrayIcon
#SingleInstance, force
SetTitleMatchMode, 2
DetectHiddenWindows, On
Gui, Color, 000000 
Gui, -SysMenu -ToolWindow -Caption -Border +AlwaysOnTop ; (+E0x20 - клик сквозь)
Gui +LastFound                                     
WinSet, Transparent, 200
WinSet, ExStyle, ^0x80,
Gui, Font, s7 q5, Verdana
Gui, Add, Text, x1 y-1 w1660 h12 Center cf2ee11  BackgroundTrans vProg +0x201 , 
Gui, Add, Text, x792 y-1 w1660 h12 Center cf2ee11  BackgroundTrans vtime +0x201 ,
Gui, Add, Progress, w1678 h1 x0 y12 cBlue vMyProgress
runonce = 0

OnMessage(0x201, "WM_LBUTTONDOWN")
onmessage(0x207,"WM_MBUTTONDOWN")
onmessage(0x204,"WM_RBUTTONDOWN")

WM_LBUTTONDOWN()
{
    run,  %path1%
}

WM_MBUTTONDOWN()
{
    WinGet, utid, ID,  / ahk_exe uTorrent.exe
   
    if state = Загрузка
    {
      DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,62, Int,0 ) ; pouse https://autohotkey.com/board/topic/46880-utorrent-wm-command-wparam-values-for-menu-items/
      GuiControl, , Prog,  Загрузка останавлливается...
    }
if state = Пауза
    {
 DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,61, Int,0 ) ; resume
 GuiControl, , Prog,  Загрузка востанавлливается... 
   }
}

WM_RBUTTONDOWN()
{
    winactivate, / ahk_exe uTorrent.exe
}

Loop
{
Process, Exist, uTorrent.exe
status = %ErrorLevel% 
if status = 0
{
run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\destroy margin 0.hss" ; убрать кусок отрезаного от приложений экрана
Process, close, uTorrent_osd.exe
}
ip := "192.168.*.*"
port := "******"
user := "*****"
pass := "*****"
url := "http://" ip ":" port "/gui/"
tokenUrl := url "token.html"
action := "?list=1"
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", tokenUrl, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
token := "&token=" RegExReplace(HTTP.ResponseText, "<.+?>")
HTTP.Open("GET", url action token, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
;MsgBox, % StrGet(pText, cBytes, "utf-8")
;msgbox % HTTP.ResponseText
JsonString := StrGet(pText, cBytes, "utf-8")
JS := new ActiveScript("JScript")
JS.eval("delete ActiveXObject; delete GetObject;") 
obj := JS.eval("(" . JsonString . ")").torrents
SetFormat,Float,0.1
{
Loop % obj.length
{
   ;MsgBox % obj[A_Index - 1][4]/10
   
   folder := obj[A_Index - 1][26]
   hash := obj[A_Index - 1][0]
   action := "?action=getfiles&hash=" hash 
   HTTP.Open("GET", url action token, false)
   HTTP.SetCredentials(user, pass, 0)
   HTTP.Send()
   Body := HTTP.ResponseBody
   pArr := ComObjValue(Body)
   cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
   pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
   JsonString := StrGet(pText, cBytes, "utf-8")
   file := JS.eval("(" . JsonString . ")").files
   
   global state = % obj[A_Index - 1][21]
   p = % obj[A_Index - 1][4]/10
   n = % obj[A_Index - 1][2]
   s = % obj[A_Index - 1][9]/1000000
   size = % obj[A_Index - 1][3]/1000000
   t = % obj[A_Index - 1][10]/60
   loop % file[1].length
   Global path1 := % folder "\" file[1][A_Index-1][0]



var1 := RegExMatch(p, "(.*)\.", match)
if t contains -
{
var2 := RegExMatch(t, "-(.*)", matchh)
t = 
}

IfNotEqual, match1, 100  
{
    if runonce = 0
    {
    runonce = 1
    run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\margin bottom 15.hss"
    Gui, Show, x1 y1037, uTorrent_osd
    
}

GuiControl,, MyProgress, %p% ;vPRBAR cFF7200

GuiControl, , Prog,  %n% - %size%мб   скорость %s%мб/с   осталось %matchh1%м   завершено %p%`% %state%  ;%path1%
formattime,date,,dd/MM/yy
GuiControl,, Time, %A_Hour%:%A_Min% %A_DDD% %date% 


sleep, 3000
}


/*
 *  ActiveScript for AutoHotkey v1.1
 *
 *  Provides an interface to Active Scripting languages like VBScript and JScript,
 *  without relying on Microsoft's ScriptControl, which is not available to 64-bit
 *  programs.
 *
 *  License: Use, modify and redistribute without limitation, but at your own risk.
 */
class ActiveScript extends ActiveScript._base
{
    __New(Language)
    {
        if this._script := ComObjCreate(Language, ActiveScript.IID)
            this._scriptParse := ComObjQuery(this._script, ActiveScript.IID_Parse)
        if !this._scriptParse
            throw Exception("Invalid language", -1, Language)
        this._site := new ActiveScriptSite(this)
        this._SetScriptSite(this._site.ptr)
        this._InitNew()
        this._objects := {}
        this.Error := ""
        this._dsp := this._GetScriptDispatch()  ; Must be done last.
        try
            if this.ScriptEngine() = "JScript"
                this.SetJScript58()
    }

    SetJScript58()
    {
        static IID_IActiveScriptProperty := "{4954E0D0-FBC7-11D1-8410-006008C3FBFC}"
        if !prop := ComObjQuery(this._script, IID_IActiveScriptProperty)
            return false
        VarSetCapacity(var, 24, 0), NumPut(2, NumPut(3, var, "short") + 6)
        hr := DllCall(NumGet(NumGet(prop+0)+4*A_PtrSize), "ptr", prop, "uint", 0x4000
            , "ptr", 0, "ptr", &var), ObjRelease(prop)
        return hr >= 0
    }
    
    Eval(Code)
    {
        pvar := NumGet(ComObjValue(arr:=ComObjArray(0xC,1)) + 8+A_PtrSize)
        this._ParseScriptText(Code, 0x20, pvar)  ; SCRIPTTEXT_ISEXPRESSION := 0x20
        return arr[0]
    }
    
    Exec(Code)
    {
        this._ParseScriptText(Code, 0x42, 0)  ; SCRIPTTEXT_ISVISIBLE := 2, SCRIPTTEXT_ISPERSISTENT := 0x40
        this._SetScriptState(2)  ; SCRIPTSTATE_CONNECTED := 2
    }
    
    AddObject(Name, DispObj, AddMembers := false)
    {
        static a, supports_dispatch ; Test for built-in IDispatch support.
            := a := ((a:=ComObjArray(0xC,1))[0]:=[42]) && a[0][1]=42
        if IsObject(DispObj) && !(supports_dispatch || ComObjType(DispObj))
            throw Exception("Adding a non-COM object requires AutoHotkey v1.1.17+", -1)
        this._objects[Name] := DispObj
        this._AddNamedItem(Name, AddMembers ? 8 : 2)  ; SCRIPTITEM_ISVISIBLE := 2, SCRIPTITEM_GLOBALMEMBERS := 8
    }
    
    _GetObjectUnk(Name)
    {
        return !IsObject(dsp := this._objects[Name]) ? dsp  ; Pointer
            : ComObjValue(dsp) ? ComObjValue(dsp)  ; ComObject
            : &dsp  ; AutoHotkey object
    }
    
    class _base
    {
        __Call(Method, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Method](Params*)
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Get(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Property, Params*]
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Set(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
            {
                Value := Params.Pop()
                try
                    return (this._dsp)[Property, Params*] := Value
                catch e
                    throw Exception(e.Message, -1, e.Extra)
            }
        }
    }
    
    _SetScriptSite(Site)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+3*A_PtrSize), "ptr", p, "ptr", Site)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptSite")
    }
    
    _SetScriptState(State)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+5*A_PtrSize), "ptr", p, "int", State)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptState")
    }
    
    _AddNamedItem(Name, Flags)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+8*A_PtrSize), "ptr", p, "wstr", Name, "uint", Flags)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::AddNamedItem")
    }
    
    _GetScriptDispatch()
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+10*A_PtrSize), "ptr", p, "ptr", 0, "ptr*", pdsp)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::GetScriptDispatch")
        return ComObject(9, pdsp, 1)
    }
    
    _InitNew()
    {
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+3*A_PtrSize), "ptr", p)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::InitNew")
    }
    
    _ParseScriptText(Code, Flags, pvarResult)
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+5*A_PtrSize), "ptr", p
            , "wstr", Code, "ptr", 0, "ptr", 0, "ptr", 0, "uptr", 0, "uint", 1
            , "uint", Flags, "ptr", pvarResult, "ptr", 0)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::ParseScriptText")
    }
    
    _HRFail(hr, what)
    {
        if e := this.Error
        {
            this.Error := ""
            throw Exception("`nError code:`t" this._HRFormat(e.HRESULT)
                . "`nSource:`t`t" e.Source "`nDescription:`t" e.Description
                . "`nLine:`t`t" e.Line "`nColumn:`t`t" e.Column
                . "`nLine text:`t`t" e.LineText, -3)
        }
        throw Exception(what " failed with code " this._HRFormat(hr), -2)
    }
    
    _HRFormat(hr)
    {
        return Format("0x{1:X}", hr & 0xFFFFFFFF)
    }
    
    _OnScriptError(err) ; IActiveScriptError err
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        DllCall(NumGet(NumGet(err+0)+3*A_PtrSize), "ptr", err, "ptr", &excp) ; GetExceptionInfo
        DllCall(NumGet(NumGet(err+0)+4*A_PtrSize), "ptr", err, "uint*", srcctx, "uint*", srcline, "int*", srccol) ; GetSourcePosition
        DllCall(NumGet(NumGet(err+0)+5*A_PtrSize), "ptr", err, "ptr*", pbstrcode) ; GetSourceLineText
        code := StrGet(pbstrcode, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstrcode)
        if fn := NumGet(excp, 6 * A_PtrSize) ; pfnDeferredFillIn
            DllCall(fn, "ptr", &excp)
        wcode := NumGet(excp, 0, "ushort")
        hr := wcode ? 0x80040200 + wcode : NumGet(excp, 7 * A_PtrSize, "uint")
        this.Error := {HRESULT: hr, Line: srcline, Column: srccol, LineText: code}
        static Infos := "Source,Description,HelpFile"
        Loop Parse, % Infos, `,
            if pbstr := NumGet(excp, A_Index * A_PtrSize)
                this.Error[A_LoopField] := StrGet(pbstr, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstr)
        return 0x80004001 ; E_NOTIMPL (let Exec/Eval get a fail result)
    }
    
    __Delete()
    {
        if this._script
        {
            DllCall(NumGet(NumGet((p:=this._script)+0)+7*A_PtrSize), "ptr", p)  ; Close
            ObjRelease(this._script)
        }
        if this._scriptParse
            ObjRelease(this._scriptParse)
    }
    
    static IID := "{BB1A2AE1-A4F9-11cf-8F20-00805F2CD064}"
    static IID_Parse := A_PtrSize=8 ? "{C7EF7658-E1EE-480E-97EA-D52CB4D76D17}" : "{BB1A2AE2-A4F9-11cf-8F20-00805F2CD064}"
}

class ActiveScriptSite
{
    __New(Script)
    {
        ObjSetCapacity(this, "_site", 3 * A_PtrSize)
        NumPut(&Script
        , NumPut(ActiveScriptSite._vftable("_vft_w", "31122", 0x100)
        , NumPut(ActiveScriptSite._vftable("_vft", "31125232211", 0)
            , this.ptr := ObjGetAddress(this, "_site"))))
    }
    
    _vftable(Name, PrmCounts, EIBase)
    {
        if p := ObjGetAddress(this, Name)
            return p
        ObjSetCapacity(this, Name, StrLen(PrmCounts) * A_PtrSize)
        p := ObjGetAddress(this, Name)
        Loop Parse, % PrmCounts
        {
            cb := RegisterCallback("_ActiveScriptSite", "F", A_LoopField, A_Index + EIBase)
            NumPut(cb, p + (A_Index-1) * A_PtrSize)
        }
        return p
    }
}

_ActiveScriptSite(this, a1:=0, a2:=0, a3:=0, a4:=0, a5:=0)
{
    Method := A_EventInfo & 0xFF
    if A_EventInfo >= 0x100  ; IActiveScriptSiteWindow
    {
        if Method = 4  ; GetWindow
        {
            NumPut(0, a1+0) ; *phwnd := 0
            return 0 ; S_OK
        }
        if Method = 5  ; EnableModeless
        {
            return 0 ; S_OK
        }
        this -= A_PtrSize     ; Cast to IActiveScriptSite
    }
    ;else: IActiveScriptSite
    if Method = 1  ; QueryInterface
    {
        iid := _AS_GUIDToString(a1)
        if (iid = "{00000000-0000-0000-C000-000000000046}"  ; IUnknown
         || iid = "{DB01A1E3-A42B-11cf-8F20-00805F2CD064}") ; IActiveScriptSite
        {
            NumPut(this, a2+0)
            return 0 ; S_OK
        }
        if (iid = "{D10F6761-83E9-11cf-8F20-00805F2CD064}") ; IActiveScriptSiteWindow
        {
            NumPut(this + A_PtrSize, a2+0)
            return 0 ; S_OK
        }
        NumPut(0, a2+0)
        return 0x80004002 ; E_NOINTERFACE
    }
    if Method = 5  ; GetItemInfo
    {
        a1 := StrGet(a1, "UTF-16")
        , (a3 && NumPut(0, a3+0))  ; *ppiunkItem := NULL
        , (a4 && NumPut(0, a4+0))  ; *ppti := NULL
        if (a2 & 1) ; SCRIPTINFO_IUNKNOWN
        {
            if !(unk := Object(NumGet(this + A_PtrSize*2))._GetObjectUnk(a1))
                return 0x8002802B ; TYPE_E_ELEMENTNOTFOUND
            ObjAddRef(unk), NumPut(unk, a3+0)
        }
        return 0 ; S_OK
    }
    if Method = 9  ; OnScriptError
        return Object(NumGet(this + A_PtrSize*2))._OnScriptError(a1)
    
    ; AddRef and Release don't do anything because we want to avoid circular references.
    ; The site and IActiveScript are both released when the AHK script releases its last
    ; reference to the ActiveScript object.
    
    ; All of the other methods don't require implementations.
    return 0x80004001 ; E_NOTIMPL
}

_AS_GUIDToString(pGUID)
{
    VarSetCapacity(String, 38*2)
    DllCall("ole32\StringFromGUID2", "ptr", pGUID, "str", String, "int", 39)
    return String
}

}

sleep 3000

}

}

return 
GuiEscape:
ExitApp


EncodeInteger( p_value, p_size, p_address, p_offset )
{
	loop, %p_size%
		DllCall( "RtlFillMemory"
			, "uint", p_address+p_offset+A_Index-1
			, "uint", 1
			, "uchar", ( p_value >> ( 8*( A_Index-1 ) ) ) & 0xFF )
}

Gui +LastFound
hWnd:=WinExist()
DllCall("SetClassLong","UInt",hWnd,"Int",-26,"UInt",0x8)

OnMessage(0x203,"WM_LBUTTONDBLCLK")
WM_LBUTTONDBLCLK()
{	
	Run, % vlc " " urlVlc "?sid=" sid "&file=0"
}

Gui, Add, Text,, Click anywhere in this window.
Gui, Add, Edit, w200 vMyEdit
Gui, Show
OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x203,"WM_LBUTTONDBLCLK")
return

WM_LBUTTONDOWN(wParam, lParam)
{
   Global click := 1
   SetTimer, check, -250
   return

   check:
   if click = 1
      msgbox 1
   else
      msgbox 2
   return
}

WM_LBUTTONDBLCLK(wParam, lParam)
{
   Global click := 2
   return
}

GuiClose:
ExitApp

list_files(Directory)
{
	files =
	Loop %Directory%\*.*
	{
		files = %files%`n%A_LoopFileName%
	}
	return files
}

WM_LBUTTONDBLCLK()
{	
	Global click := 2
   ;ToolTip, % vlc " " urlVlc "?sid=" sid "&file=0"
	;return
	 
fold = %folder%\
Gui,2:default
; Create the ListView with two columns, Name and Size:
Gui, 2:Add, ListView, r20 w700 gMyListView, Name|Size (KB)

; Gather a list of file names from a folder and put them into the ListView:
;ToolTip, %folder%\*.* %A_MyDocuments%\*.*

Loop, %folder%\*.*
    LV_Add("", A_LoopFileName, A_LoopFileSizeKB)

LV_ModifyCol()  ; Auto-size each column to fit its contents.
LV_ModifyCol(2, "Integer")  ; For sorting purposes, indicate that column 2 is an integer.
; Display the window and return. The script will be notified whenever the user double clicks a row.
Gui, 2:Show, x1 y537, choose
global dblclk = 1

MyListView:
;KeyWait, LButton, D
;While !(GetKeyState("LButton","P"))
Loop
{
    ToolTip, while a=%a%
    sleep, 200
    
        
	
if A_GuiEvent = DoubleClick
{
	
	Run, % vlc " " urlVlc "?sid=" sid "&file=" A_EventInfo-1
    ;ToolTip You double-clicked row number %A_EventInfo%. Text: "%RowText%" %b%
	Global a := 1
    ToolTip,  a=%a%
	GuiClose:
	Gui, 2:Destroy
	break
}
While (a = 1)
    return

}
return
}

#NoTrayIcon
#SingleInstance, force
SetTitleMatchMode, 2
DetectHiddenWindows, On
Gui, Color, 000000 
Gui, -SysMenu -ToolWindow -Caption -Border +AlwaysOnTop ; (+E0x20 - клик сквозь)
Gui +LastFound 
hWnd:=WinExist()
DllCall("SetClassLong","UInt",hWnd,"Int",-26,"UInt",0x8)
WinSet, Transparent, 200
WinSet, ExStyle, ^0x80,
Gui, Font, s7 q5, Verdana
Gui, 1:Add, Text, x1 y-1 w1660 h12 Center cf2ee11  BackgroundTrans vProg +0x201 , 
Gui, Add, Text, x792 y-1 w1660 h12 Center cf2ee11  BackgroundTrans vtime +0x201 ,
Gui, Add, Progress, w1678 h1 x0 y12 cBlue vMyProgress
runonce = 0
global dblclk = 0
Global a := 0


OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x203,"WM_LBUTTONDBLCLK")
onmessage(0x207,"WM_MBUTTONDOWN")
onmessage(0x204,"WM_RBUTTONDOWN")
OnMessage(0x100, "WM_KEYDOWN")



WM_LBUTTONDBLCLK()
{	
	Global click := 2
   ;ToolTip, % vlc " " urlVlc "?sid=" sid "&file=0"
	;return
	global dblclk = 1 
fold = %folder%\
Gui,2:default
; Create the ListView with two columns, Name and Size:
Gui, 2:Add, ListView, r20 w700 gMyListView, Name|Size (KB)

; Gather a list of file names from a folder and put them into the ListView:
;ToolTip, %folder%\*.* %A_MyDocuments%\*.*

Loop, %folder%\*.*
    LV_Add("", A_LoopFileName, A_LoopFileSizeKB)

LV_ModifyCol()  ; Auto-size each column to fit its contents.
LV_ModifyCol(2, "Integer")  ; For sorting purposes, indicate that column 2 is an integer.
; Display the window and return. The script will be notified whenever the user double clicks a row.
Gui, 2:Show, x1 y537, choose


MyListView:
;KeyWait, LButton, D
;While !(GetKeyState("LButton","P"))
Loop
{
    ToolTip, while a=%a% `n dblclkmylistview = %dblclk%
    sleep 200
    
    
        
	
if A_GuiEvent = DoubleClick
{
	
	Run, % vlc " " urlVlc "?sid=" sid "&file=" A_EventInfo-1
    ;ToolTip You double-clicked row number %A_EventInfo%. Text: "%RowText%" %b%
	Global a := 1
    ToolTip,  a=%a%
	GuiClose:
	Gui, 2:Destroy
	break
}
While (a = 1)
    return

}
return
}

WM_LBUTTONDOWN()
{
	 Global click := 1
   SetTimer, check, -950
   return

   check:
   ToolTip, dblclkcheck = %dblclk%
   if ((click = 1) & (dblclk = 0))

    run %path1%	
   

      return
	
}






WM_MBUTTONDOWN()
{
    WinGet, utid, ID,  / ahk_exe uTorrent.exe
   
    if state = Загрузка
    {
      DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,62, Int,0 ) ; pouse https://autohotkey.com/board/topic/46880-utorrent-wm-command-wparam-values-for-menu-items/
      GuiControl, , Prog,  Загрузка останавлливается...
    }
if state = Пауза
    {
 DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,61, Int,0 ) ; resume
 GuiControl, , Prog,  Загрузка востанавлливается... 
   }
}

WM_RBUTTONDOWN()
{
    winactivate, / ahk_exe uTorrent.exe
	}


Loop
{
Process, Exist, uTorrent.exe
status = %ErrorLevel% 
if status = 0
{
run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\destroy margin 0.hss" ; убрать кусок отрезаного от приложений экрана
Process, close, uTorrent_osd.exe
}
ip := "127.0.0.1"
port := "8080"
user := "admin"
pass := "pass"
url := "http://" ip ":" port "/gui/"
global vlc := "C:\Program Files\DAUM\PotPlayer\PotPlayerMini64.exe"
global urlVlc := "http://" ip ":" port "/proxy"
tokenUrl := url "token.html"
action := "?list=1"
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", tokenUrl, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
token := "&token=" RegExReplace(HTTP.ResponseText, "<.+?>")
HTTP.Open("GET", url action token, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
;MsgBox, % StrGet(pText, cBytes, "utf-8") 
;msgbox % HTTP.ResponseText
JsonString := StrGet(pText, cBytes, "utf-8")
JS := new ActiveScript("JScript")
JS.eval("delete ActiveXObject; delete GetObject;") 
obj := JS.eval("(" . JsonString . ")").torrents
SetFormat,Float,0.1
{
Loop % obj.length
{
   ;MsgBox % obj[A_Index - 1][4]/10
   global sid := obj[A_Index - 1][22]
   global folder := obj[A_Index - 1][26]
   hash := obj[A_Index - 1][0]
   action := "?action=getfiles&hash=" hash 
   HTTP.Open("GET", url action token, false)
   HTTP.SetCredentials(user, pass, 0)
   HTTP.Send()
   Body := HTTP.ResponseBody
   pArr := ComObjValue(Body)
   cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
   pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
   JsonString := StrGet(pText, cBytes, "utf-8")
   file := JS.eval("(" . JsonString . ")").files
   
   global state = % obj[A_Index - 1][21]
   p = % obj[A_Index - 1][4]/10
   n = % obj[A_Index - 1][2]
   s = % obj[A_Index - 1][9]/1000000
   size = % obj[A_Index - 1][3]/1000000
   t = % obj[A_Index - 1][10]/60
   loop % file[1].length
   Global path1 := % folder "\" file[1][A_Index-1][0]
   
;Run, % vlc " " urlVlc "?sid=" sid "&file=0" ; A_Index-1
     ; Msgbox play %urlVlc%


var1 := RegExMatch(p, "(.*)\.", match)
if t contains -
{
var2 := RegExMatch(t, "-(.*)", matchh)
t = 
}

IfNotEqual, match1, 100  
{
    if runonce = 0
    {
    runonce = 1
    run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\margin bottom 15.hss"
    Gui, 1:Show, x1 y1037, uTorrent_osd
    
}

GuiControl,, MyProgress, %p% ;vPRBAR cFF7200

GuiControl, , Prog,  %n% - %size%мб   скорость %s%мб/с   осталось %matchh1%м   завершено %p%`% %state%  ;%path1%
formattime,date,,dd/MM/yy
GuiControl,, Time, %A_Hour%:%A_Min% %A_DDD% %date% 


sleep, 3000
}


/*
 *  ActiveScript for AutoHotkey v1.1
 *
 *  Provides an interface to Active Scripting languages like VBScript and JScript,
 *  without relying on Microsoft's ScriptControl, which is not available to 64-bit
 *  programs.
 *
 *  License: Use, modify and redistribute without limitation, but at your own risk.
 */
class ActiveScript extends ActiveScript._base
{
    __New(Language)
    {
        if this._script := ComObjCreate(Language, ActiveScript.IID)
            this._scriptParse := ComObjQuery(this._script, ActiveScript.IID_Parse)
        if !this._scriptParse
            throw Exception("Invalid language", -1, Language)
        this._site := new ActiveScriptSite(this)
        this._SetScriptSite(this._site.ptr)
        this._InitNew()
        this._objects := {}
        this.Error := ""
        this._dsp := this._GetScriptDispatch()  ; Must be done last.
        try
            if this.ScriptEngine() = "JScript"
                this.SetJScript58()
    }

    SetJScript58()
    {
        static IID_IActiveScriptProperty := "{4954E0D0-FBC7-11D1-8410-006008C3FBFC}"
        if !prop := ComObjQuery(this._script, IID_IActiveScriptProperty)
            return false
        VarSetCapacity(var, 24, 0), NumPut(2, NumPut(3, var, "short") + 6)
        hr := DllCall(NumGet(NumGet(prop+0)+4*A_PtrSize), "ptr", prop, "uint", 0x4000
            , "ptr", 0, "ptr", &var), ObjRelease(prop)
        return hr >= 0
    }
    
    Eval(Code)
    {
        pvar := NumGet(ComObjValue(arr:=ComObjArray(0xC,1)) + 8+A_PtrSize)
        this._ParseScriptText(Code, 0x20, pvar)  ; SCRIPTTEXT_ISEXPRESSION := 0x20
        return arr[0]
    }
    
    Exec(Code)
    {
        this._ParseScriptText(Code, 0x42, 0)  ; SCRIPTTEXT_ISVISIBLE := 2, SCRIPTTEXT_ISPERSISTENT := 0x40
        this._SetScriptState(2)  ; SCRIPTSTATE_CONNECTED := 2
    }
    
    AddObject(Name, DispObj, AddMembers := false)
    {
        static a, supports_dispatch ; Test for built-in IDispatch support.
            := a := ((a:=ComObjArray(0xC,1))[0]:=[42]) && a[0][1]=42
        if IsObject(DispObj) && !(supports_dispatch || ComObjType(DispObj))
            throw Exception("Adding a non-COM object requires AutoHotkey v1.1.17+", -1)
        this._objects[Name] := DispObj
        this._AddNamedItem(Name, AddMembers ? 8 : 2)  ; SCRIPTITEM_ISVISIBLE := 2, SCRIPTITEM_GLOBALMEMBERS := 8
    }
    
    _GetObjectUnk(Name)
    {
        return !IsObject(dsp := this._objects[Name]) ? dsp  ; Pointer
            : ComObjValue(dsp) ? ComObjValue(dsp)  ; ComObject
            : &dsp  ; AutoHotkey object
    }
    
    class _base
    {
        __Call(Method, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Method](Params*)
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Get(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Property, Params*]
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Set(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
            {
                Value := Params.Pop()
                try
                    return (this._dsp)[Property, Params*] := Value
                catch e
                    throw Exception(e.Message, -1, e.Extra)
            }
        }
    }
    
    _SetScriptSite(Site)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+3*A_PtrSize), "ptr", p, "ptr", Site)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptSite")
    }
    
    _SetScriptState(State)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+5*A_PtrSize), "ptr", p, "int", State)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptState")
    }
    
    _AddNamedItem(Name, Flags)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+8*A_PtrSize), "ptr", p, "wstr", Name, "uint", Flags)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::AddNamedItem")
    }
    
    _GetScriptDispatch()
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+10*A_PtrSize), "ptr", p, "ptr", 0, "ptr*", pdsp)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::GetScriptDispatch")
        return ComObject(9, pdsp, 1)
    }
    
    _InitNew()
    {
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+3*A_PtrSize), "ptr", p)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::InitNew")
    }
    
    _ParseScriptText(Code, Flags, pvarResult)
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+5*A_PtrSize), "ptr", p
            , "wstr", Code, "ptr", 0, "ptr", 0, "ptr", 0, "uptr", 0, "uint", 1
            , "uint", Flags, "ptr", pvarResult, "ptr", 0)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::ParseScriptText")
    }
    
    _HRFail(hr, what)
    {
        if e := this.Error
        {
            this.Error := ""
            throw Exception("`nError code:`t" this._HRFormat(e.HRESULT)
                . "`nSource:`t`t" e.Source "`nDescription:`t" e.Description
                . "`nLine:`t`t" e.Line "`nColumn:`t`t" e.Column
                . "`nLine text:`t`t" e.LineText, -3)
        }
        throw Exception(what " failed with code " this._HRFormat(hr), -2)
    }
    
    _HRFormat(hr)
    {
        return Format("0x{1:X}", hr & 0xFFFFFFFF)
    }
    
    _OnScriptError(err) ; IActiveScriptError err
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        DllCall(NumGet(NumGet(err+0)+3*A_PtrSize), "ptr", err, "ptr", &excp) ; GetExceptionInfo
        DllCall(NumGet(NumGet(err+0)+4*A_PtrSize), "ptr", err, "uint*", srcctx, "uint*", srcline, "int*", srccol) ; GetSourcePosition
        DllCall(NumGet(NumGet(err+0)+5*A_PtrSize), "ptr", err, "ptr*", pbstrcode) ; GetSourceLineText
        code := StrGet(pbstrcode, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstrcode)
        if fn := NumGet(excp, 6 * A_PtrSize) ; pfnDeferredFillIn
            DllCall(fn, "ptr", &excp)
        wcode := NumGet(excp, 0, "ushort")
        hr := wcode ? 0x80040200 + wcode : NumGet(excp, 7 * A_PtrSize, "uint")
        this.Error := {HRESULT: hr, Line: srcline, Column: srccol, LineText: code}
        static Infos := "Source,Description,HelpFile"
        Loop Parse, % Infos, `,
            if pbstr := NumGet(excp, A_Index * A_PtrSize)
                this.Error[A_LoopField] := StrGet(pbstr, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstr)
        return 0x80004001 ; E_NOTIMPL (let Exec/Eval get a fail result)
    }
    
    __Delete()
    {
        if this._script
        {
            DllCall(NumGet(NumGet((p:=this._script)+0)+7*A_PtrSize), "ptr", p)  ; Close
            ObjRelease(this._script)
        }
        if this._scriptParse
            ObjRelease(this._scriptParse)
    }
    
    static IID := "{BB1A2AE1-A4F9-11cf-8F20-00805F2CD064}"
    static IID_Parse := A_PtrSize=8 ? "{C7EF7658-E1EE-480E-97EA-D52CB4D76D17}" : "{BB1A2AE2-A4F9-11cf-8F20-00805F2CD064}"
}

class ActiveScriptSite
{
    __New(Script)
    {
        ObjSetCapacity(this, "_site", 3 * A_PtrSize)
        NumPut(&Script
        , NumPut(ActiveScriptSite._vftable("_vft_w", "31122", 0x100)
        , NumPut(ActiveScriptSite._vftable("_vft", "31125232211", 0)
            , this.ptr := ObjGetAddress(this, "_site"))))
    }
    
    _vftable(Name, PrmCounts, EIBase)
    {
        if p := ObjGetAddress(this, Name)
            return p
        ObjSetCapacity(this, Name, StrLen(PrmCounts) * A_PtrSize)
        p := ObjGetAddress(this, Name)
        Loop Parse, % PrmCounts
        {
            cb := RegisterCallback("_ActiveScriptSite", "F", A_LoopField, A_Index + EIBase)
            NumPut(cb, p + (A_Index-1) * A_PtrSize)
        }
        return p
    }
}

_ActiveScriptSite(this, a1:=0, a2:=0, a3:=0, a4:=0, a5:=0)
{
    Method := A_EventInfo & 0xFF
    if A_EventInfo >= 0x100  ; IActiveScriptSiteWindow
    {
        if Method = 4  ; GetWindow
        {
            NumPut(0, a1+0) ; *phwnd := 0
            return 0 ; S_OK
        }
        if Method = 5  ; EnableModeless
        {
            return 0 ; S_OK
        }
        this -= A_PtrSize     ; Cast to IActiveScriptSite
    }
    ;else: IActiveScriptSite
    if Method = 1  ; QueryInterface
    {
        iid := _AS_GUIDToString(a1)
        if (iid = "{00000000-0000-0000-C000-000000000046}"  ; IUnknown
         || iid = "{DB01A1E3-A42B-11cf-8F20-00805F2CD064}") ; IActiveScriptSite
        {
            NumPut(this, a2+0)
            return 0 ; S_OK
        }
        if (iid = "{D10F6761-83E9-11cf-8F20-00805F2CD064}") ; IActiveScriptSiteWindow
        {
            NumPut(this + A_PtrSize, a2+0)
            return 0 ; S_OK
        }
        NumPut(0, a2+0)
        return 0x80004002 ; E_NOINTERFACE
    }
    if Method = 5  ; GetItemInfo
    {
        a1 := StrGet(a1, "UTF-16")
        , (a3 && NumPut(0, a3+0))  ; *ppiunkItem := NULL
        , (a4 && NumPut(0, a4+0))  ; *ppti := NULL
        if (a2 & 1) ; SCRIPTINFO_IUNKNOWN
        {
            if !(unk := Object(NumGet(this + A_PtrSize*2))._GetObjectUnk(a1))
                return 0x8002802B ; TYPE_E_ELEMENTNOTFOUND
            ObjAddRef(unk), NumPut(unk, a3+0)
        }
        return 0 ; S_OK
    }
    if Method = 9  ; OnScriptError
        return Object(NumGet(this + A_PtrSize*2))._OnScriptError(a1)
    
    ; AddRef and Release don't do anything because we want to avoid circular references.
    ; The site and IActiveScript are both released when the AHK script releases its last
    ; reference to the ActiveScript object.
    
    ; All of the other methods don't require implementations.
    return 0x80004001 ; E_NOTIMPL
}

_AS_GUIDToString(pGUID)
{
    VarSetCapacity(String, 38*2)
    DllCall("ole32\StringFromGUID2", "ptr", pGUID, "str", String, "int", 39)
    return String
}

}

sleep 3000

}

}

return 
GuiEscape:
ExitApp


EncodeInteger( p_value, p_size, p_address, p_offset )
{
	loop, %p_size%
		DllCall( "RtlFillMemory"
			, "uint", p_address+p_offset+A_Index-1
			, "uint", 1
			, "uchar", ( p_value >> ( 8*( A_Index-1 ) ) ) & 0xFF )
}

#NoTrayIcon
#SingleInstance, force
SetTitleMatchMode, 2
DetectHiddenWindows, On
Gui, Color, 000000 
Gui, -SysMenu -ToolWindow -Caption -Border +AlwaysOnTop ; (+E0x20 - клик сквозь)
Gui +LastFound 
hWnd:=WinExist()
DllCall("SetClassLong","UInt",hWnd,"Int",-26,"UInt",0x8)
WinSet, Transparent, 200
WinSet, ExStyle, ^0x80,
Gui, Font, s7 q5, Verdana
Gui, 1:Add, Text, x1 y-1 w1660 h12 Center cf2ee11  BackgroundTrans vProg +0x201 , 
Gui, Add, Text, x792 y-1 w1660 h12 Center cf2ee11  BackgroundTrans vtime +0x201 ,
Gui, Add, Progress, w1678 h1 x0 y12 cBlue vMyProgress
runonce = 0
global dblclk = 0
Global a := 0
global rundblclk = 0

OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x203,"WM_LBUTTONDBLCLK")
onmessage(0x207,"WM_MBUTTONDOWN")
onmessage(0x204,"WM_RBUTTONDOWN")
OnMessage(0x100, "WM_KEYDOWN")



WM_LBUTTONDBLCLK()
{	
	Global click := 2
   ;ToolTip, % vlc " " urlVlc "?sid=" sid "&file=0"
	;return
	global dblclk = 1 
fold = %folder%\
Gui,2:default
; Create the ListView with two columns, Name and Size:
Gui, 2:Add, ListView, r20 w700 AltSubMit gMyListView, Name|Size (KB)

; Gather a list of file names from a folder and put them into the ListView:
;ToolTip, %folder%\*.* %A_MyDocuments%\*.*

Loop, %folder%\*.*
    LV_Add("", A_LoopFileName, A_LoopFileSizeKB)

LV_ModifyCol()  ; Auto-size each column to fit its contents.
LV_ModifyCol(2, "Integer")  ; For sorting purposes, indicate that column 2 is an integer.
; Display the window and return. The script will be notified whenever the user double clicks a row.
Gui, 2:Show, x1 y537, choose


MyListView:
;KeyWait, LButton, D
;While !(GetKeyState("LButton","P"))
Loop
{
    ToolTip, while a=%a% `n dblclkmylistview = %dblclk% `n rundblclk= %rundblclk%
    sleep 200
    
    
     
	
if rundblclk = 1
{
	
	Run, % vlc " " urlVlc "?sid=" sid "&file=" A_EventInfo
    ;ToolTip You double-clicked row number %A_EventInfo%. Text: "%RowText%" %b%
	Global a := 1
    ToolTip,  a=%a%
	GuiClose:
	Gui, 2:Destroy
	break
}
While (a = 1)
    return

}
return
}

WM_LBUTTONDOWN()
{
	 Global click := 1
   SetTimer, check, -950
   return

   check:
   ToolTip, dblclkcheck = %dblclk%
   if ((click = 1) & (dblclk = 0))
    run %path1%	
   if ((click = 1) & (dblclk = 1)) 
global rundblclk = 1
      return
	
}






WM_MBUTTONDOWN()
{
    WinGet, utid, ID,  / ahk_exe uTorrent.exe
   
    if state = Загрузка
    {
      DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,62, Int,0 ) ; pouse https://autohotkey.com/board/topic/46880-utorrent-wm-command-wparam-values-for-menu-items/
      GuiControl, , Prog,  Загрузка останавлливается...
    }
if state = Пауза
    {
 DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,61, Int,0 ) ; resume
 GuiControl, , Prog,  Загрузка востанавлливается... 
   }
}

WM_RBUTTONDOWN()
{
    winactivate, / ahk_exe uTorrent.exe
	}


Loop
{
Process, Exist, uTorrent.exe
status = %ErrorLevel% 
if status = 0
{
run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\destroy margin 0.hss" ; убрать кусок отрезаного от приложений экрана
Process, close, uTorrent_osd.exe
}
ip := "127.0.0.1"
port := "8080"
user := "admin"
pass := "pass"
url := "http://" ip ":" port "/gui/"
global vlc := "C:\Program Files\DAUM\PotPlayer\PotPlayerMini64.exe"
global urlVlc := "http://" ip ":" port "/proxy"
tokenUrl := url "token.html"
action := "?list=1"
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", tokenUrl, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
token := "&token=" RegExReplace(HTTP.ResponseText, "<.+?>")
HTTP.Open("GET", url action token, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
;MsgBox, % StrGet(pText, cBytes, "utf-8") 
;msgbox % HTTP.ResponseText
JsonString := StrGet(pText, cBytes, "utf-8")
JS := new ActiveScript("JScript")
JS.eval("delete ActiveXObject; delete GetObject;") 
obj := JS.eval("(" . JsonString . ")").torrents
SetFormat,Float,0.1
{
Loop % obj.length
{
   ;MsgBox % obj[A_Index - 1][4]/10
   global sid := obj[A_Index - 1][22]
   global folder := obj[A_Index - 1][26]
   hash := obj[A_Index - 1][0]
   action := "?action=getfiles&hash=" hash 
   HTTP.Open("GET", url action token, false)
   HTTP.SetCredentials(user, pass, 0)
   HTTP.Send()
   Body := HTTP.ResponseBody
   pArr := ComObjValue(Body)
   cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
   pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
   JsonString := StrGet(pText, cBytes, "utf-8")
   file := JS.eval("(" . JsonString . ")").files
   
   global state = % obj[A_Index - 1][21]
   p = % obj[A_Index - 1][4]/10
   n = % obj[A_Index - 1][2]
   s = % obj[A_Index - 1][9]/1000000
   size = % obj[A_Index - 1][3]/1000000
   t = % obj[A_Index - 1][10]/60
   loop % file[1].length
   Global path1 := % folder "\" file[1][A_Index-1][0]
   
;Run, % vlc " " urlVlc "?sid=" sid "&file=0" ; A_Index-1
     ; Msgbox play %urlVlc%


var1 := RegExMatch(p, "(.*)\.", match)
if t contains -
{
var2 := RegExMatch(t, "-(.*)", matchh)
t = 
}

IfNotEqual, match1, 100  
{
    if runonce = 0
    {
    runonce = 1
    run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\margin bottom 15.hss"
    Gui, 1:Show, x1 y1037, uTorrent_osd
    
}

GuiControl,, MyProgress, %p% ;vPRBAR cFF7200

GuiControl, , Prog,  %n% - %size%мб   скорость %s%мб/с   осталось %matchh1%м   завершено %p%`% %state%  ;%path1%
formattime,date,,dd/MM/yy
GuiControl,, Time, %A_Hour%:%A_Min% %A_DDD% %date% 


sleep, 3000
}


/*
 *  ActiveScript for AutoHotkey v1.1
 *
 *  Provides an interface to Active Scripting languages like VBScript and JScript,
 *  without relying on Microsoft's ScriptControl, which is not available to 64-bit
 *  programs.
 *
 *  License: Use, modify and redistribute without limitation, but at your own risk.
 */
class ActiveScript extends ActiveScript._base
{
    __New(Language)
    {
        if this._script := ComObjCreate(Language, ActiveScript.IID)
            this._scriptParse := ComObjQuery(this._script, ActiveScript.IID_Parse)
        if !this._scriptParse
            throw Exception("Invalid language", -1, Language)
        this._site := new ActiveScriptSite(this)
        this._SetScriptSite(this._site.ptr)
        this._InitNew()
        this._objects := {}
        this.Error := ""
        this._dsp := this._GetScriptDispatch()  ; Must be done last.
        try
            if this.ScriptEngine() = "JScript"
                this.SetJScript58()
    }

    SetJScript58()
    {
        static IID_IActiveScriptProperty := "{4954E0D0-FBC7-11D1-8410-006008C3FBFC}"
        if !prop := ComObjQuery(this._script, IID_IActiveScriptProperty)
            return false
        VarSetCapacity(var, 24, 0), NumPut(2, NumPut(3, var, "short") + 6)
        hr := DllCall(NumGet(NumGet(prop+0)+4*A_PtrSize), "ptr", prop, "uint", 0x4000
            , "ptr", 0, "ptr", &var), ObjRelease(prop)
        return hr >= 0
    }
    
    Eval(Code)
    {
        pvar := NumGet(ComObjValue(arr:=ComObjArray(0xC,1)) + 8+A_PtrSize)
        this._ParseScriptText(Code, 0x20, pvar)  ; SCRIPTTEXT_ISEXPRESSION := 0x20
        return arr[0]
    }
    
    Exec(Code)
    {
        this._ParseScriptText(Code, 0x42, 0)  ; SCRIPTTEXT_ISVISIBLE := 2, SCRIPTTEXT_ISPERSISTENT := 0x40
        this._SetScriptState(2)  ; SCRIPTSTATE_CONNECTED := 2
    }
    
    AddObject(Name, DispObj, AddMembers := false)
    {
        static a, supports_dispatch ; Test for built-in IDispatch support.
            := a := ((a:=ComObjArray(0xC,1))[0]:=[42]) && a[0][1]=42
        if IsObject(DispObj) && !(supports_dispatch || ComObjType(DispObj))
            throw Exception("Adding a non-COM object requires AutoHotkey v1.1.17+", -1)
        this._objects[Name] := DispObj
        this._AddNamedItem(Name, AddMembers ? 8 : 2)  ; SCRIPTITEM_ISVISIBLE := 2, SCRIPTITEM_GLOBALMEMBERS := 8
    }
    
    _GetObjectUnk(Name)
    {
        return !IsObject(dsp := this._objects[Name]) ? dsp  ; Pointer
            : ComObjValue(dsp) ? ComObjValue(dsp)  ; ComObject
            : &dsp  ; AutoHotkey object
    }
    
    class _base
    {
        __Call(Method, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Method](Params*)
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Get(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Property, Params*]
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Set(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
            {
                Value := Params.Pop()
                try
                    return (this._dsp)[Property, Params*] := Value
                catch e
                    throw Exception(e.Message, -1, e.Extra)
            }
        }
    }
    
    _SetScriptSite(Site)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+3*A_PtrSize), "ptr", p, "ptr", Site)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptSite")
    }
    
    _SetScriptState(State)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+5*A_PtrSize), "ptr", p, "int", State)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptState")
    }
    
    _AddNamedItem(Name, Flags)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+8*A_PtrSize), "ptr", p, "wstr", Name, "uint", Flags)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::AddNamedItem")
    }
    
    _GetScriptDispatch()
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+10*A_PtrSize), "ptr", p, "ptr", 0, "ptr*", pdsp)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::GetScriptDispatch")
        return ComObject(9, pdsp, 1)
    }
    
    _InitNew()
    {
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+3*A_PtrSize), "ptr", p)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::InitNew")
    }
    
    _ParseScriptText(Code, Flags, pvarResult)
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+5*A_PtrSize), "ptr", p
            , "wstr", Code, "ptr", 0, "ptr", 0, "ptr", 0, "uptr", 0, "uint", 1
            , "uint", Flags, "ptr", pvarResult, "ptr", 0)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::ParseScriptText")
    }
    
    _HRFail(hr, what)
    {
        if e := this.Error
        {
            this.Error := ""
            throw Exception("`nError code:`t" this._HRFormat(e.HRESULT)
                . "`nSource:`t`t" e.Source "`nDescription:`t" e.Description
                . "`nLine:`t`t" e.Line "`nColumn:`t`t" e.Column
                . "`nLine text:`t`t" e.LineText, -3)
        }
        throw Exception(what " failed with code " this._HRFormat(hr), -2)
    }
    
    _HRFormat(hr)
    {
        return Format("0x{1:X}", hr & 0xFFFFFFFF)
    }
    
    _OnScriptError(err) ; IActiveScriptError err
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        DllCall(NumGet(NumGet(err+0)+3*A_PtrSize), "ptr", err, "ptr", &excp) ; GetExceptionInfo
        DllCall(NumGet(NumGet(err+0)+4*A_PtrSize), "ptr", err, "uint*", srcctx, "uint*", srcline, "int*", srccol) ; GetSourcePosition
        DllCall(NumGet(NumGet(err+0)+5*A_PtrSize), "ptr", err, "ptr*", pbstrcode) ; GetSourceLineText
        code := StrGet(pbstrcode, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstrcode)
        if fn := NumGet(excp, 6 * A_PtrSize) ; pfnDeferredFillIn
            DllCall(fn, "ptr", &excp)
        wcode := NumGet(excp, 0, "ushort")
        hr := wcode ? 0x80040200 + wcode : NumGet(excp, 7 * A_PtrSize, "uint")
        this.Error := {HRESULT: hr, Line: srcline, Column: srccol, LineText: code}
        static Infos := "Source,Description,HelpFile"
        Loop Parse, % Infos, `,
            if pbstr := NumGet(excp, A_Index * A_PtrSize)
                this.Error[A_LoopField] := StrGet(pbstr, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstr)
        return 0x80004001 ; E_NOTIMPL (let Exec/Eval get a fail result)
    }
    
    __Delete()
    {
        if this._script
        {
            DllCall(NumGet(NumGet((p:=this._script)+0)+7*A_PtrSize), "ptr", p)  ; Close
            ObjRelease(this._script)
        }
        if this._scriptParse
            ObjRelease(this._scriptParse)
    }
    
    static IID := "{BB1A2AE1-A4F9-11cf-8F20-00805F2CD064}"
    static IID_Parse := A_PtrSize=8 ? "{C7EF7658-E1EE-480E-97EA-D52CB4D76D17}" : "{BB1A2AE2-A4F9-11cf-8F20-00805F2CD064}"
}

class ActiveScriptSite
{
    __New(Script)
    {
        ObjSetCapacity(this, "_site", 3 * A_PtrSize)
        NumPut(&Script
        , NumPut(ActiveScriptSite._vftable("_vft_w", "31122", 0x100)
        , NumPut(ActiveScriptSite._vftable("_vft", "31125232211", 0)
            , this.ptr := ObjGetAddress(this, "_site"))))
    }
    
    _vftable(Name, PrmCounts, EIBase)
    {
        if p := ObjGetAddress(this, Name)
            return p
        ObjSetCapacity(this, Name, StrLen(PrmCounts) * A_PtrSize)
        p := ObjGetAddress(this, Name)
        Loop Parse, % PrmCounts
        {
            cb := RegisterCallback("_ActiveScriptSite", "F", A_LoopField, A_Index + EIBase)
            NumPut(cb, p + (A_Index-1) * A_PtrSize)
        }
        return p
    }
}

_ActiveScriptSite(this, a1:=0, a2:=0, a3:=0, a4:=0, a5:=0)
{
    Method := A_EventInfo & 0xFF
    if A_EventInfo >= 0x100  ; IActiveScriptSiteWindow
    {
        if Method = 4  ; GetWindow
        {
            NumPut(0, a1+0) ; *phwnd := 0
            return 0 ; S_OK
        }
        if Method = 5  ; EnableModeless
        {
            return 0 ; S_OK
        }
        this -= A_PtrSize     ; Cast to IActiveScriptSite
    }
    ;else: IActiveScriptSite
    if Method = 1  ; QueryInterface
    {
        iid := _AS_GUIDToString(a1)
        if (iid = "{00000000-0000-0000-C000-000000000046}"  ; IUnknown
         || iid = "{DB01A1E3-A42B-11cf-8F20-00805F2CD064}") ; IActiveScriptSite
        {
            NumPut(this, a2+0)
            return 0 ; S_OK
        }
        if (iid = "{D10F6761-83E9-11cf-8F20-00805F2CD064}") ; IActiveScriptSiteWindow
        {
            NumPut(this + A_PtrSize, a2+0)
            return 0 ; S_OK
        }
        NumPut(0, a2+0)
        return 0x80004002 ; E_NOINTERFACE
    }
    if Method = 5  ; GetItemInfo
    {
        a1 := StrGet(a1, "UTF-16")
        , (a3 && NumPut(0, a3+0))  ; *ppiunkItem := NULL
        , (a4 && NumPut(0, a4+0))  ; *ppti := NULL
        if (a2 & 1) ; SCRIPTINFO_IUNKNOWN
        {
            if !(unk := Object(NumGet(this + A_PtrSize*2))._GetObjectUnk(a1))
                return 0x8002802B ; TYPE_E_ELEMENTNOTFOUND
            ObjAddRef(unk), NumPut(unk, a3+0)
        }
        return 0 ; S_OK
    }
    if Method = 9  ; OnScriptError
        return Object(NumGet(this + A_PtrSize*2))._OnScriptError(a1)
    
    ; AddRef and Release don't do anything because we want to avoid circular references.
    ; The site and IActiveScript are both released when the AHK script releases its last
    ; reference to the ActiveScript object.
    
    ; All of the other methods don't require implementations.
    return 0x80004001 ; E_NOTIMPL
}

_AS_GUIDToString(pGUID)
{
    VarSetCapacity(String, 38*2)
    DllCall("ole32\StringFromGUID2", "ptr", pGUID, "str", String, "int", 39)
    return String
}

}

sleep 3000

}

}

return 
GuiEscape:
ExitApp


EncodeInteger( p_value, p_size, p_address, p_offset )
{
	loop, %p_size%
		DllCall( "RtlFillMemory"
			, "uint", p_address+p_offset+A_Index-1
			, "uint", 1
			, "uchar", ( p_value >> ( 8*( A_Index-1 ) ) ) & 0xFF )
}

#NoTrayIcon
#SingleInstance, force
SetTitleMatchMode, 2
DetectHiddenWindows, On
Gui, Color, 000000 
Gui, -SysMenu -ToolWindow -Caption -Border +AlwaysOnTop ; (+E0x20 - клик сквозь)
Gui +LastFound 
hWnd:=WinExist()
DllCall("SetClassLong","UInt",hWnd,"Int",-26,"UInt",0x8)
WinSet, Transparent, 200
WinSet, ExStyle, ^0x80,
Gui, Font, s7 q5, Verdana
Gui, 1:Add, Text, x1 y-1 w1660 h12 Center cf2ee11  BackgroundTrans vProg +0x201 , 
Gui, Add, Text, x792 y-1 w1660 h12 Center cf2ee11  BackgroundTrans vtime +0x201 ,
Gui, Add, Progress, w1678 h1 x0 y12 cBlue vMyProgress
runonce = 0
global dblclk = 0
Global a := 0
global rundblclk = 0

OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x203,"WM_LBUTTONDBLCLK")
onmessage(0x207,"WM_MBUTTONDOWN")
onmessage(0x204,"WM_RBUTTONDOWN")
OnMessage(0x100, "WM_KEYDOWN")



WM_LBUTTONDBLCLK()
{	
	Global click := 2
   ;ToolTip, % vlc " " urlVlc "?sid=" sid "&file=0"
	;return
	global dblclk = 1 
fold = %folder%\
Gui,2:default
; Create the ListView with two columns, Name and Size:
Gui, 2:Add, ListView, r20 w700 gMyListView, Name|Size (KB)

; Gather a list of file names from a folder and put them into the ListView:
;ToolTip, %folder%\*.* %A_MyDocuments%\*.*

Loop, %folder%\*.*
    LV_Add("", A_LoopFileName, A_LoopFileSizeKB)

LV_ModifyCol()  ; Auto-size each column to fit its contents.
LV_ModifyCol(2, "Integer")  ; For sorting purposes, indicate that column 2 is an integer.
; Display the window and return. The script will be notified whenever the user double clicks a row.
Gui, 2:Show, x1 y537, choose


MyListView:
;KeyWait, LButton, D
;While !(GetKeyState("LButton","P"))
Loop
{
    ToolTip, while a=%a% `n dblclkmylistview = %dblclk% `n rundblclk= %rundblclk%
    sleep 200
    
    
     
	
if rundblclk = 1
{
    Gui,2:default
	RowNumber := LV_GetNext("0")
	Run, % vlc " " urlVlc "?sid=" sid "&file=" RowNumber -1
    ;ToolTip You double-clicked row number %A_EventInfo%. Text: "%RowText%" %b%
	Global a := 1
    ToolTip,  a=%a%
	global rundblclk = 0
	Gui, 2:Destroy
	
}
While (a = 1)
{
    Global a := 0
    return
}
}
return
}

WM_LBUTTONDOWN()
{
	 Global click := 1
   SetTimer, check, -950
   return

   check:
   ToolTip, dblclkcheck = %dblclk% `n click= %click%
   sleep, 1000
   if ((click = 1) & (dblclk = 0))
    run %path1%	
   if ((click = 1) & (dblclk = 1)) 
global rundblclk = 1
      return
	
}






WM_MBUTTONDOWN()
{
    WinGet, utid, ID,  / ahk_exe uTorrent.exe
   
    if state = Загрузка
    {
      DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,62, Int,0 ) ; pouse https://autohotkey.com/board/topic/46880-utorrent-wm-command-wparam-values-for-menu-items/
      GuiControl, , Prog,  Загрузка останавлливается...
    }
if state = Пауза
    {
 DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,61, Int,0 ) ; resume
 GuiControl, , Prog,  Загрузка востанавлливается... 
   }
}

WM_RBUTTONDOWN()
{
    winactivate, / ahk_exe uTorrent.exe
	}


Loop
{
Process, Exist, uTorrent.exe
status = %ErrorLevel% 
if status = 0
{
run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\destroy margin 0.hss" ; убрать кусок отрезаного от приложений экрана
Process, close, uTorrent_osd.exe
}
ip := "127.0.0.1"
port := "8080"
user := "admin"
pass := "pass"
url := "http://" ip ":" port "/gui/"
global vlc := "C:\Program Files\DAUM\PotPlayer\PotPlayerMini64.exe"
global urlVlc := "http://" ip ":" port "/proxy"
tokenUrl := url "token.html"
action := "?list=1"
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", tokenUrl, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
token := "&token=" RegExReplace(HTTP.ResponseText, "<.+?>")
HTTP.Open("GET", url action token, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
;MsgBox, % StrGet(pText, cBytes, "utf-8") 
;msgbox % HTTP.ResponseText
JsonString := StrGet(pText, cBytes, "utf-8")
JS := new ActiveScript("JScript")
JS.eval("delete ActiveXObject; delete GetObject;") 
obj := JS.eval("(" . JsonString . ")").torrents
SetFormat,Float,0.1
{
Loop % obj.length
{
   ;MsgBox % obj[A_Index - 1][4]/10
   global sid := obj[A_Index - 1][22]
   global folder := obj[A_Index - 1][26]
   hash := obj[A_Index - 1][0]
   action := "?action=getfiles&hash=" hash 
   HTTP.Open("GET", url action token, false)
   HTTP.SetCredentials(user, pass, 0)
   HTTP.Send()
   Body := HTTP.ResponseBody
   pArr := ComObjValue(Body)
   cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
   pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
   JsonString := StrGet(pText, cBytes, "utf-8")
   file := JS.eval("(" . JsonString . ")").files
   
   global state = % obj[A_Index - 1][21]
   p = % obj[A_Index - 1][4]/10
   n = % obj[A_Index - 1][2]
   s = % obj[A_Index - 1][9]/1000000
   size = % obj[A_Index - 1][3]/1000000
   t = % obj[A_Index - 1][10]/60
   loop % file[1].length
   Global path1 := % folder "\" file[1][A_Index-1][0]
   
;Run, % vlc " " urlVlc "?sid=" sid "&file=0" ; A_Index-1
     ; Msgbox play %urlVlc%


var1 := RegExMatch(p, "(.*)\.", match)
if t contains -
{
var2 := RegExMatch(t, "-(.*)", matchh)
t = 
}

IfNotEqual, match1, 100  
{
    if runonce = 0
    {
    runonce = 1
    run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\margin bottom 15.hss"
    Gui, 1:Show, x1 y1037, uTorrent_osd
    
}

GuiControl,, MyProgress, %p% ;vPRBAR cFF7200

GuiControl, , Prog,  %n% - %size%мб   скорость %s%мб/с   осталось %matchh1%м   завершено %p%`% %state%  ;%path1%
formattime,date,,dd/MM/yy
GuiControl,, Time, %A_Hour%:%A_Min% %A_DDD% %date% 


sleep, 3000
}


/*
 *  ActiveScript for AutoHotkey v1.1
 *
 *  Provides an interface to Active Scripting languages like VBScript and JScript,
 *  without relying on Microsoft's ScriptControl, which is not available to 64-bit
 *  programs.
 *
 *  License: Use, modify and redistribute without limitation, but at your own risk.
 */
class ActiveScript extends ActiveScript._base
{
    __New(Language)
    {
        if this._script := ComObjCreate(Language, ActiveScript.IID)
            this._scriptParse := ComObjQuery(this._script, ActiveScript.IID_Parse)
        if !this._scriptParse
            throw Exception("Invalid language", -1, Language)
        this._site := new ActiveScriptSite(this)
        this._SetScriptSite(this._site.ptr)
        this._InitNew()
        this._objects := {}
        this.Error := ""
        this._dsp := this._GetScriptDispatch()  ; Must be done last.
        try
            if this.ScriptEngine() = "JScript"
                this.SetJScript58()
    }

    SetJScript58()
    {
        static IID_IActiveScriptProperty := "{4954E0D0-FBC7-11D1-8410-006008C3FBFC}"
        if !prop := ComObjQuery(this._script, IID_IActiveScriptProperty)
            return false
        VarSetCapacity(var, 24, 0), NumPut(2, NumPut(3, var, "short") + 6)
        hr := DllCall(NumGet(NumGet(prop+0)+4*A_PtrSize), "ptr", prop, "uint", 0x4000
            , "ptr", 0, "ptr", &var), ObjRelease(prop)
        return hr >= 0
    }
    
    Eval(Code)
    {
        pvar := NumGet(ComObjValue(arr:=ComObjArray(0xC,1)) + 8+A_PtrSize)
        this._ParseScriptText(Code, 0x20, pvar)  ; SCRIPTTEXT_ISEXPRESSION := 0x20
        return arr[0]
    }
    
    Exec(Code)
    {
        this._ParseScriptText(Code, 0x42, 0)  ; SCRIPTTEXT_ISVISIBLE := 2, SCRIPTTEXT_ISPERSISTENT := 0x40
        this._SetScriptState(2)  ; SCRIPTSTATE_CONNECTED := 2
    }
    
    AddObject(Name, DispObj, AddMembers := false)
    {
        static a, supports_dispatch ; Test for built-in IDispatch support.
            := a := ((a:=ComObjArray(0xC,1))[0]:=[42]) && a[0][1]=42
        if IsObject(DispObj) && !(supports_dispatch || ComObjType(DispObj))
            throw Exception("Adding a non-COM object requires AutoHotkey v1.1.17+", -1)
        this._objects[Name] := DispObj
        this._AddNamedItem(Name, AddMembers ? 8 : 2)  ; SCRIPTITEM_ISVISIBLE := 2, SCRIPTITEM_GLOBALMEMBERS := 8
    }
    
    _GetObjectUnk(Name)
    {
        return !IsObject(dsp := this._objects[Name]) ? dsp  ; Pointer
            : ComObjValue(dsp) ? ComObjValue(dsp)  ; ComObject
            : &dsp  ; AutoHotkey object
    }
    
    class _base
    {
        __Call(Method, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Method](Params*)
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Get(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Property, Params*]
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Set(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
            {
                Value := Params.Pop()
                try
                    return (this._dsp)[Property, Params*] := Value
                catch e
                    throw Exception(e.Message, -1, e.Extra)
            }
        }
    }
    
    _SetScriptSite(Site)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+3*A_PtrSize), "ptr", p, "ptr", Site)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptSite")
    }
    
    _SetScriptState(State)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+5*A_PtrSize), "ptr", p, "int", State)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptState")
    }
    
    _AddNamedItem(Name, Flags)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+8*A_PtrSize), "ptr", p, "wstr", Name, "uint", Flags)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::AddNamedItem")
    }
    
    _GetScriptDispatch()
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+10*A_PtrSize), "ptr", p, "ptr", 0, "ptr*", pdsp)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::GetScriptDispatch")
        return ComObject(9, pdsp, 1)
    }
    
    _InitNew()
    {
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+3*A_PtrSize), "ptr", p)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::InitNew")
    }
    
    _ParseScriptText(Code, Flags, pvarResult)
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+5*A_PtrSize), "ptr", p
            , "wstr", Code, "ptr", 0, "ptr", 0, "ptr", 0, "uptr", 0, "uint", 1
            , "uint", Flags, "ptr", pvarResult, "ptr", 0)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::ParseScriptText")
    }
    
    _HRFail(hr, what)
    {
        if e := this.Error
        {
            this.Error := ""
            throw Exception("`nError code:`t" this._HRFormat(e.HRESULT)
                . "`nSource:`t`t" e.Source "`nDescription:`t" e.Description
                . "`nLine:`t`t" e.Line "`nColumn:`t`t" e.Column
                . "`nLine text:`t`t" e.LineText, -3)
        }
        throw Exception(what " failed with code " this._HRFormat(hr), -2)
    }
    
    _HRFormat(hr)
    {
        return Format("0x{1:X}", hr & 0xFFFFFFFF)
    }
    
    _OnScriptError(err) ; IActiveScriptError err
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        DllCall(NumGet(NumGet(err+0)+3*A_PtrSize), "ptr", err, "ptr", &excp) ; GetExceptionInfo
        DllCall(NumGet(NumGet(err+0)+4*A_PtrSize), "ptr", err, "uint*", srcctx, "uint*", srcline, "int*", srccol) ; GetSourcePosition
        DllCall(NumGet(NumGet(err+0)+5*A_PtrSize), "ptr", err, "ptr*", pbstrcode) ; GetSourceLineText
        code := StrGet(pbstrcode, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstrcode)
        if fn := NumGet(excp, 6 * A_PtrSize) ; pfnDeferredFillIn
            DllCall(fn, "ptr", &excp)
        wcode := NumGet(excp, 0, "ushort")
        hr := wcode ? 0x80040200 + wcode : NumGet(excp, 7 * A_PtrSize, "uint")
        this.Error := {HRESULT: hr, Line: srcline, Column: srccol, LineText: code}
        static Infos := "Source,Description,HelpFile"
        Loop Parse, % Infos, `,
            if pbstr := NumGet(excp, A_Index * A_PtrSize)
                this.Error[A_LoopField] := StrGet(pbstr, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstr)
        return 0x80004001 ; E_NOTIMPL (let Exec/Eval get a fail result)
    }
    
    __Delete()
    {
        if this._script
        {
            DllCall(NumGet(NumGet((p:=this._script)+0)+7*A_PtrSize), "ptr", p)  ; Close
            ObjRelease(this._script)
        }
        if this._scriptParse
            ObjRelease(this._scriptParse)
    }
    
    static IID := "{BB1A2AE1-A4F9-11cf-8F20-00805F2CD064}"
    static IID_Parse := A_PtrSize=8 ? "{C7EF7658-E1EE-480E-97EA-D52CB4D76D17}" : "{BB1A2AE2-A4F9-11cf-8F20-00805F2CD064}"
}

class ActiveScriptSite
{
    __New(Script)
    {
        ObjSetCapacity(this, "_site", 3 * A_PtrSize)
        NumPut(&Script
        , NumPut(ActiveScriptSite._vftable("_vft_w", "31122", 0x100)
        , NumPut(ActiveScriptSite._vftable("_vft", "31125232211", 0)
            , this.ptr := ObjGetAddress(this, "_site"))))
    }
    
    _vftable(Name, PrmCounts, EIBase)
    {
        if p := ObjGetAddress(this, Name)
            return p
        ObjSetCapacity(this, Name, StrLen(PrmCounts) * A_PtrSize)
        p := ObjGetAddress(this, Name)
        Loop Parse, % PrmCounts
        {
            cb := RegisterCallback("_ActiveScriptSite", "F", A_LoopField, A_Index + EIBase)
            NumPut(cb, p + (A_Index-1) * A_PtrSize)
        }
        return p
    }
}

_ActiveScriptSite(this, a1:=0, a2:=0, a3:=0, a4:=0, a5:=0)
{
    Method := A_EventInfo & 0xFF
    if A_EventInfo >= 0x100  ; IActiveScriptSiteWindow
    {
        if Method = 4  ; GetWindow
        {
            NumPut(0, a1+0) ; *phwnd := 0
            return 0 ; S_OK
        }
        if Method = 5  ; EnableModeless
        {
            return 0 ; S_OK
        }
        this -= A_PtrSize     ; Cast to IActiveScriptSite
    }
    ;else: IActiveScriptSite
    if Method = 1  ; QueryInterface
    {
        iid := _AS_GUIDToString(a1)
        if (iid = "{00000000-0000-0000-C000-000000000046}"  ; IUnknown
         || iid = "{DB01A1E3-A42B-11cf-8F20-00805F2CD064}") ; IActiveScriptSite
        {
            NumPut(this, a2+0)
            return 0 ; S_OK
        }
        if (iid = "{D10F6761-83E9-11cf-8F20-00805F2CD064}") ; IActiveScriptSiteWindow
        {
            NumPut(this + A_PtrSize, a2+0)
            return 0 ; S_OK
        }
        NumPut(0, a2+0)
        return 0x80004002 ; E_NOINTERFACE
    }
    if Method = 5  ; GetItemInfo
    {
        a1 := StrGet(a1, "UTF-16")
        , (a3 && NumPut(0, a3+0))  ; *ppiunkItem := NULL
        , (a4 && NumPut(0, a4+0))  ; *ppti := NULL
        if (a2 & 1) ; SCRIPTINFO_IUNKNOWN
        {
            if !(unk := Object(NumGet(this + A_PtrSize*2))._GetObjectUnk(a1))
                return 0x8002802B ; TYPE_E_ELEMENTNOTFOUND
            ObjAddRef(unk), NumPut(unk, a3+0)
        }
        return 0 ; S_OK
    }
    if Method = 9  ; OnScriptError
        return Object(NumGet(this + A_PtrSize*2))._OnScriptError(a1)
    
    ; AddRef and Release don't do anything because we want to avoid circular references.
    ; The site and IActiveScript are both released when the AHK script releases its last
    ; reference to the ActiveScript object.
    
    ; All of the other methods don't require implementations.
    return 0x80004001 ; E_NOTIMPL
}

_AS_GUIDToString(pGUID)
{
    VarSetCapacity(String, 38*2)
    DllCall("ole32\StringFromGUID2", "ptr", pGUID, "str", String, "int", 39)
    return String
}

}

sleep 3000

}

}

return 
GuiEscape:
ExitApp


EncodeInteger( p_value, p_size, p_address, p_offset )
{
	loop, %p_size%
		DllCall( "RtlFillMemory"
			, "uint", p_address+p_offset+A_Index-1
			, "uint", 1
			, "uchar", ( p_value >> ( 8*( A_Index-1 ) ) ) & 0xFF )
}

n := 0
loop % file[1].length
{
   If .... ; если у файла нужное нам расширение
      n++
}
msgbox % n

loop % file[1].length
{
   If RegexMatch(file[1][A_Index-1][0], "\.(avi|mpg|mp4|mkv)$") 
      msgbox видеофайл
}

Loop, %folder%\*.*
    LV_Add("", A_LoopFileName, A_LoopFileSizeKB)

% obj[A_Index - 1][2]

Global path1 := % folder ; "\" file[1][A_Index-1][0]
Loop, % file[1].length
    LV_Add("", path1, A_LoopFileSizeKB)

Loop, % file[1].length
    LV_Add("", file[1][A_Index-1][0], A_LoopFileSizeKB)

; Create the ListView with two columns, Name and Size:
Gui, Add, ListView, r20 w700 , Name|Size (KB)
ip := "127.0.0.1"
port := "8080"
user := "log"
pass := "pass"
vlc := "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe"

urlVlc := "http://" ip ":" port "/proxy"
url := "http://" ip ":" port "/gui/"
tokenUrl := url "token.html"
action := "?list=1"
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", tokenUrl, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
token := "&token=" RegExReplace(HTTP.ResponseText, "<.+?>")
HTTP.Open("GET", url action token, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
JsonString := StrGet(pText, cBytes, "utf-8")

JS := new ActiveScript("JScript")
JS.eval("delete ActiveXObject; delete GetObject;") 

obj := JS.eval("(" . JsonString . ")").torrents
Loop % obj.length
{
   sid := obj[A_Index - 1][22]
   hash := obj[A_Index - 1][0]
   action := "?action=getfiles&hash=" hash 
   HTTP.Open("GET", url action token, false)
   HTTP.SetCredentials(user, pass, 0)
   HTTP.Send()
   Body := HTTP.ResponseBody
   pArr := ComObjValue(Body)
   cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
   pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
   JsonString := StrGet(pText, cBytes, "utf-8")
   file := JS.eval("(" . JsonString . ")").files
   loop % file[1].length
      LV_Add("", file[1][A_Index-1][0] , A_LoopFileSizeKB)
}
Gui, Show

/*
 *  ActiveScript for AutoHotkey v1.1
 *
 *  Provides an interface to Active Scripting languages like VBScript and JScript,
 *  without relying on Microsoft's ScriptControl, which is not available to 64-bit
 *  programs.
 *
 *  License: Use, modify and redistribute without limitation, but at your own risk.
 */
class ActiveScript extends ActiveScript._base
{
    __New(Language)
    {
        if this._script := ComObjCreate(Language, ActiveScript.IID)
            this._scriptParse := ComObjQuery(this._script, ActiveScript.IID_Parse)
        if !this._scriptParse
            throw Exception("Invalid language", -1, Language)
        this._site := new ActiveScriptSite(this)
        this._SetScriptSite(this._site.ptr)
        this._InitNew()
        this._objects := {}
        this.Error := ""
        this._dsp := this._GetScriptDispatch()  ; Must be done last.
        try
            if this.ScriptEngine() = "JScript"
                this.SetJScript58()
    }

    SetJScript58()
    {
        static IID_IActiveScriptProperty := "{4954E0D0-FBC7-11D1-8410-006008C3FBFC}"
        if !prop := ComObjQuery(this._script, IID_IActiveScriptProperty)
            return false
        VarSetCapacity(var, 24, 0), NumPut(2, NumPut(3, var, "short") + 6)
        hr := DllCall(NumGet(NumGet(prop+0)+4*A_PtrSize), "ptr", prop, "uint", 0x4000
            , "ptr", 0, "ptr", &var), ObjRelease(prop)
        return hr >= 0
    }
    
    Eval(Code)
    {
        pvar := NumGet(ComObjValue(arr:=ComObjArray(0xC,1)) + 8+A_PtrSize)
        this._ParseScriptText(Code, 0x20, pvar)  ; SCRIPTTEXT_ISEXPRESSION := 0x20
        return arr[0]
    }
    
    Exec(Code)
    {
        this._ParseScriptText(Code, 0x42, 0)  ; SCRIPTTEXT_ISVISIBLE := 2, SCRIPTTEXT_ISPERSISTENT := 0x40
        this._SetScriptState(2)  ; SCRIPTSTATE_CONNECTED := 2
    }
    
    AddObject(Name, DispObj, AddMembers := false)
    {
        static a, supports_dispatch ; Test for built-in IDispatch support.
            := a := ((a:=ComObjArray(0xC,1))[0]:=[42]) && a[0][1]=42
        if IsObject(DispObj) && !(supports_dispatch || ComObjType(DispObj))
            throw Exception("Adding a non-COM object requires AutoHotkey v1.1.17+", -1)
        this._objects[Name] := DispObj
        this._AddNamedItem(Name, AddMembers ? 8 : 2)  ; SCRIPTITEM_ISVISIBLE := 2, SCRIPTITEM_GLOBALMEMBERS := 8
    }
    
    _GetObjectUnk(Name)
    {
        return !IsObject(dsp := this._objects[Name]) ? dsp  ; Pointer
            : ComObjValue(dsp) ? ComObjValue(dsp)  ; ComObject
            : &dsp  ; AutoHotkey object
    }
    
    class _base
    {
        __Call(Method, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Method](Params*)
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Get(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Property, Params*]
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Set(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
            {
                Value := Params.Pop()
                try
                    return (this._dsp)[Property, Params*] := Value
                catch e
                    throw Exception(e.Message, -1, e.Extra)
            }
        }
    }
    
    _SetScriptSite(Site)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+3*A_PtrSize), "ptr", p, "ptr", Site)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptSite")
    }
    
    _SetScriptState(State)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+5*A_PtrSize), "ptr", p, "int", State)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptState")
    }
    
    _AddNamedItem(Name, Flags)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+8*A_PtrSize), "ptr", p, "wstr", Name, "uint", Flags)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::AddNamedItem")
    }
    
    _GetScriptDispatch()
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+10*A_PtrSize), "ptr", p, "ptr", 0, "ptr*", pdsp)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::GetScriptDispatch")
        return ComObject(9, pdsp, 1)
    }
    
    _InitNew()
    {
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+3*A_PtrSize), "ptr", p)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::InitNew")
    }
    
    _ParseScriptText(Code, Flags, pvarResult)
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+5*A_PtrSize), "ptr", p
            , "wstr", Code, "ptr", 0, "ptr", 0, "ptr", 0, "uptr", 0, "uint", 1
            , "uint", Flags, "ptr", pvarResult, "ptr", 0)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::ParseScriptText")
    }
    
    _HRFail(hr, what)
    {
        if e := this.Error
        {
            this.Error := ""
            throw Exception("`nError code:`t" this._HRFormat(e.HRESULT)
                . "`nSource:`t`t" e.Source "`nDescription:`t" e.Description
                . "`nLine:`t`t" e.Line "`nColumn:`t`t" e.Column
                . "`nLine text:`t`t" e.LineText, -3)
        }
        throw Exception(what " failed with code " this._HRFormat(hr), -2)
    }
    
    _HRFormat(hr)
    {
        return Format("0x{1:X}", hr & 0xFFFFFFFF)
    }
    
    _OnScriptError(err) ; IActiveScriptError err
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        DllCall(NumGet(NumGet(err+0)+3*A_PtrSize), "ptr", err, "ptr", &excp) ; GetExceptionInfo
        DllCall(NumGet(NumGet(err+0)+4*A_PtrSize), "ptr", err, "uint*", srcctx, "uint*", srcline, "int*", srccol) ; GetSourcePosition
        DllCall(NumGet(NumGet(err+0)+5*A_PtrSize), "ptr", err, "ptr*", pbstrcode) ; GetSourceLineText
        code := StrGet(pbstrcode, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstrcode)
        if fn := NumGet(excp, 6 * A_PtrSize) ; pfnDeferredFillIn
            DllCall(fn, "ptr", &excp)
        wcode := NumGet(excp, 0, "ushort")
        hr := wcode ? 0x80040200 + wcode : NumGet(excp, 7 * A_PtrSize, "uint")
        this.Error := {HRESULT: hr, Line: srcline, Column: srccol, LineText: code}
        static Infos := "Source,Description,HelpFile"
        Loop Parse, % Infos, `,
            if pbstr := NumGet(excp, A_Index * A_PtrSize)
                this.Error[A_LoopField] := StrGet(pbstr, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstr)
        return 0x80004001 ; E_NOTIMPL (let Exec/Eval get a fail result)
    }
    
    __Delete()
    {
        if this._script
        {
            DllCall(NumGet(NumGet((p:=this._script)+0)+7*A_PtrSize), "ptr", p)  ; Close
            ObjRelease(this._script)
        }
        if this._scriptParse
            ObjRelease(this._scriptParse)
    }
    
    static IID := "{BB1A2AE1-A4F9-11cf-8F20-00805F2CD064}"
    static IID_Parse := A_PtrSize=8 ? "{C7EF7658-E1EE-480E-97EA-D52CB4D76D17}" : "{BB1A2AE2-A4F9-11cf-8F20-00805F2CD064}"
}

class ActiveScriptSite
{
    __New(Script)
    {
        ObjSetCapacity(this, "_site", 3 * A_PtrSize)
        NumPut(&Script
        , NumPut(ActiveScriptSite._vftable("_vft_w", "31122", 0x100)
        , NumPut(ActiveScriptSite._vftable("_vft", "31125232211", 0)
            , this.ptr := ObjGetAddress(this, "_site"))))
    }
    
    _vftable(Name, PrmCounts, EIBase)
    {
        if p := ObjGetAddress(this, Name)
            return p
        ObjSetCapacity(this, Name, StrLen(PrmCounts) * A_PtrSize)
        p := ObjGetAddress(this, Name)
        Loop Parse, % PrmCounts
        {
            cb := RegisterCallback("_ActiveScriptSite", "F", A_LoopField, A_Index + EIBase)
            NumPut(cb, p + (A_Index-1) * A_PtrSize)
        }
        return p
    }
}

_ActiveScriptSite(this, a1:=0, a2:=0, a3:=0, a4:=0, a5:=0)
{
    Method := A_EventInfo & 0xFF
    if A_EventInfo >= 0x100  ; IActiveScriptSiteWindow
    {
        if Method = 4  ; GetWindow
        {
            NumPut(0, a1+0) ; *phwnd := 0
            return 0 ; S_OK
        }
        if Method = 5  ; EnableModeless
        {
            return 0 ; S_OK
        }
        this -= A_PtrSize     ; Cast to IActiveScriptSite
    }
    ;else: IActiveScriptSite
    if Method = 1  ; QueryInterface
    {
        iid := _AS_GUIDToString(a1)
        if (iid = "{00000000-0000-0000-C000-000000000046}"  ; IUnknown
         || iid = "{DB01A1E3-A42B-11cf-8F20-00805F2CD064}") ; IActiveScriptSite
        {
            NumPut(this, a2+0)
            return 0 ; S_OK
        }
        if (iid = "{D10F6761-83E9-11cf-8F20-00805F2CD064}") ; IActiveScriptSiteWindow
        {
            NumPut(this + A_PtrSize, a2+0)
            return 0 ; S_OK
        }
        NumPut(0, a2+0)
        return 0x80004002 ; E_NOINTERFACE
    }
    if Method = 5  ; GetItemInfo
    {
        a1 := StrGet(a1, "UTF-16")
        , (a3 && NumPut(0, a3+0))  ; *ppiunkItem := NULL
        , (a4 && NumPut(0, a4+0))  ; *ppti := NULL
        if (a2 & 1) ; SCRIPTINFO_IUNKNOWN
        {
            if !(unk := Object(NumGet(this + A_PtrSize*2))._GetObjectUnk(a1))
                return 0x8002802B ; TYPE_E_ELEMENTNOTFOUND
            ObjAddRef(unk), NumPut(unk, a3+0)
        }
        return 0 ; S_OK
    }
    if Method = 9  ; OnScriptError
        return Object(NumGet(this + A_PtrSize*2))._OnScriptError(a1)
    
    ; AddRef and Release don't do anything because we want to avoid circular references.
    ; The site and IActiveScript are both released when the AHK script releases its last
    ; reference to the ActiveScript object.
    
    ; All of the other methods don't require implementations.
    return 0x80004001 ; E_NOTIMPL
}

_AS_GUIDToString(pGUID)
{
    VarSetCapacity(String, 38*2)
    DllCall("ole32\StringFromGUID2", "ptr", pGUID, "str", String, "int", 39)
    return String
}

global file := JS.eval("(" . JsonString . ")").files

#NoTrayIcon
#NoEnv
#SingleInstance, force


global ip := "127.0.0.1"
global port := "8080"
global user := "admin"
global pass := "pass"

SetTitleMatchMode, 2
DetectHiddenWindows, On
Gui, Color, 000000 
Gui, -SysMenu -ToolWindow -Caption -Border +AlwaysOnTop ; (+E0x20 - клик сквозь)
Gui +LastFound 
hWnd:=WinExist()
DllCall("SetClassLong","UInt",hWnd,"Int",-26,"UInt",0x8)
WinSet, Transparent, 200
WinSet, ExStyle, ^0x80,
Gui, Font, s7 q5, Verdana
SysGet, SsW, 16
SysGet, Ssh, 62
Global ssw := SsW
Global ssh := Ssh
global needy_gui := ssh-17 ; высота гуи
global needh_gui2 := ssh-448
needx_text := Ssw-205 ; расположение даты с часами
;needw_text := SsW-100 ; ширина главного текста 

Gui, 1:Add, Text, x1 y-1 w%ssw% h12 Center cf2ee11  BackgroundTrans vProg +0x201 , 
Gui, Add, Text, x%needx_text% y-1 w200 h12 right cf2ee11  BackgroundTrans vtime +0x201 ,
Gui, Add, Progress, w%SsW% h1 x0 y12 cBlue vMyProgress
global runonce = 0
global dblclk = 0
Global a := 0
global rundblclk = 0
global canceldblclk = 0
 Global video := 0
 Global multivideo := 0
 Global RowNumber = 0
 global reload := 0
OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x203,"WM_LBUTTONDBLCLK")
onmessage(0x207,"WM_MBUTTONDOWN")
onmessage(0x204,"WM_RBUTTONDOWN")
OnMessage(0x100, "WM_KEYDOWN")

;MsgBox, needw = %needx_text% needh = %needh% h-%ssh%
WM_LBUTTONDBLCLK()
{	
	Global click := 2
   ;ToolTip, % vlc " " urlVlc "?sid=" sid "&file=0"
	;return
      ;MsgBox, multivideo %multivideo% video %video%
  if ((video = 1) & (multivideo = 0)) 
{
   Run, % vlc " " urlVlc "?sid=" sid "&file=0"
    ;MsgBox, multivideo %multivideo% video %video%
    return
}
    
    if ((video = 0) & (multivideo = 0)) 
{
    run, %path1%
        return
}
    if ((video = 0) & (multivideo = 1)) 
{
    run, %path1%
        return
}
    if ((video = 1) & (multivideo = 1)) 
    {
	global dblclk = 1 
fold = %folder%\
Gui,2:default
; Create the ListView with two columns, Name and Size:
Gui, 2:Add, ListView, cf2ee11 Background000000 r23 w600 gMyListView, Выберите файл для Stream просмотра:
Gui, Color, 000000 
Gui, -SysMenu -ToolWindow -Caption -Border +AlwaysOnTop  ; (+E0x20 - клик сквозь)
Gui +LastFound 
WinSet, Transparent, 200
WinSet, ExStyle, ^0x80,
Gui, Font, s7 q5, Verdana
; Gather a list of file names from a folder and put them into the ListView:
;ToolTip, %folder%\*.* %A_MyDocuments%\*.*

 loop % file[1].length

      LV_Add("", file[1][A_Index-1][0])


;LV_ModifyCol()  ; Auto-size each column to fit its contents.
LV_ModifyCol(2, "Integer")  ; For sorting purposes, indicate that column 2 is an integer.
; Display the window and return. The script will be notified whenever the user double clicks a row.
Gui, 2:Show, xcenter y%needh_gui2%
SendMode play
MouseMove, 150, 40, 0, 

}


MyListView:
;KeyWait, LButton, D
;While !(GetKeyState("LButton","P"))
Loop
{
    ;ToolTip, while a=%a% `n dblclkmylistview = %dblclk% `n rundblclk= %rundblclk%
    ;sleep 200
    
    
    if canceldblclk = 1 
    {
       Gui,2:default
	global RowNumber := LV_GetNext("0")
	;MsgBox клик в пустоту %A_EventInfo%. Text: "%RowNumber%" %b%
	Global a := 1
   ; ToolTip,  a=%a%
	global rundblclk = 0
    global canceldblclk = 0
	Gui, 2:Destroy 
    }
	
if rundblclk = 1
{
    Gui,2:default
	global RowNumber := LV_GetNext("0")
	Run, % vlc " " urlVlc "?sid=" sid "&file=" RowNumber -1
    ;MsgBox You clicked row number %A_EventInfo%. Text: "%RowNumber%" %b%
	Global a := 1
   ; ToolTip,  a=%a%
	global rundblclk = 0
	Gui, 2:Destroy
	
}
While (a = 1)
{
    Global a := 0
    return
}
}
return
}

WM_LBUTTONDOWN()
{
	 Global click := 1
   SetTimer, check, -550
   return
 
   check:
     Gui,2:default
global RowNumber := LV_GetNext("0")
   
  
   if ((click = 1) & (dblclk = 0))
    run %path1%	
   if ((click = 1) & (dblclk = 1) & (global RowNumber != 0)) 
global rundblclk = 1
if ((click = 1) & (dblclk = 1) & (global RowNumber = 0)) 
global canceldblclk = 1

   ; MsgBox, dblclkcheck = %dblclk% `n click= %click% `n RowNumber= %RowNumber% `n canceldblclk= %canceldblclk%
      return
  
}






WM_MBUTTONDOWN()
{
    WinGet, utid, ID,  / ahk_exe uTorrent.exe
   ;ToolTip, %state%
    global reload := 1
    if state = Загрузка
    {
      DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,62, Int,0 ) ; pouse https://autohotkey.com/board/topic/46880-utorrent-wm-command-wparam-values-for-menu-items/
      GuiControl, , Prog,  Загрузка останавлливается...
      
    }
    if state = [П] Загружается
    {
      DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,62, Int,0 ) ; pouse https://autohotkey.com/board/topic/46880-utorrent-wm-command-wparam-values-for-menu-items/
      GuiControl, , Prog,  Загрузка останавлливается...
      
    }
if state = Пауза
    {
 DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,61, Int,0 ) ; resume
 GuiControl, , Prog,  Загрузка востанавлливается... 
 
   }
}

WM_RBUTTONDOWN()
{
   
    winactivate, / ahk_exe uTorrent.exe
    WinGetpos, utx, uty, , , / ahk_exe uTorrent.exe
    MouseMove, utx+100, uty+100, 0
	}


Loop
{


url := "http://" ip ":" port "/gui/"
global vlc := "C:\Program Files\DAUM\PotPlayer\PotPlayerMini64.exe"
global urlVlc := "http://" ip ":" port "/proxy"
tokenUrl := url "token.html"
action := "?list=1"
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")

Process, Exist, uTorrent.exe
status = %ErrorLevel% 
if status = 0
   {
run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\destroy margin 0.hss" ; убрать кусок отрезаного от приложений экрана
Process, close, uTorrent_osd.exe
ExitApp
}

HTTP.Open("GET", tokenUrl, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
token := "&token=" RegExReplace(HTTP.ResponseText, "<.+?>")
HTTP.Open("GET", url action token, false)
HTTP.SetCredentials(user, pass, 0)
HTTP.Send()
Body := HTTP.ResponseBody
pArr := ComObjValue(Body)
cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
;MsgBox, % StrGet(pText, cBytes, "utf-8") 
;msgbox % HTTP.ResponseText
JsonString := StrGet(pText, cBytes, "utf-8")
JS := new ActiveScript("JScript")
JS.eval("delete ActiveXObject; delete GetObject;") 
obj := JS.eval("(" . JsonString . ")").torrents
SetFormat,Float,0.1
{
    
    
   
    
Loop % obj.length
{
    
        Global video := 0
        
        if reload = 1
        {
            ;MsgBox, reload 1
        global reload := 0
            break
        }

;global multiornot := % obj[A_Index - 1][23]   ; ([a-zA-Z0-9{7}])'', match)
  ;  global mm := % multiornot ",([0-9])"
  ;  ToolTip, mm = %mm%
  ;  OutputVar := % StrGet(pText, cBytes, "utf-8") 
;OutputVar := "12.456 h/ 5673 567-"
;var1 := RegExMatch(OutputVar, mm, mattch)
;var1 := RegExMatch(OutputVar, "%mm%([a-zA-Z0-9{7}])", match)
;if (match2 != "М" && match1 < 10)
;MsgBox % mattch1 "`n" mattch "`n" mattch3 "`n var1=" var1 "`n" mm

    
   ;MsgBox % obj[A_Index - 1][2]
   global sid := obj[A_Index - 1][22]
   global folder := obj[A_Index - 1][26]
   hash := obj[A_Index - 1][0]
   action := "?action=getfiles&hash=" hash 
   
   Process, Exist, uTorrent.exe
status = %ErrorLevel% 
if status = 0
   {
run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\destroy margin 0.hss" ; убрать кусок отрезаного от приложений экрана
Process, close, uTorrent_osd.exe
ExitApp
}
   
   
   HTTP.Open("GET", url action token, false)
   HTTP.SetCredentials(user, pass, 0)
   HTTP.Send()
   Body := HTTP.ResponseBody
   pArr := ComObjValue(Body)
   cBytes := NumGet(pArr+0, A_PtrSize = 8? 24:16, "uint")
   pText := NumGet(pArr+0, A_PtrSize = 8? 16:12, "ptr")
   JsonString := StrGet(pText, cBytes, "utf-8")
   global file := JS.eval("(" . JsonString . ")").files
   
   
   
   global state = % obj[A_Index - 1][21]
   p = % obj[A_Index - 1][4]/10
   Global n = % obj[A_Index - 1][2]
   s = % obj[A_Index - 1][9]/1000000
   size = % obj[A_Index - 1][3]/1000000
   t = % obj[A_Index - 1][10]/60
   loop % file[1].length
   Global path1 := % folder ; "\" file[1][A_Index-1][0]
   
   loop % file[1].length
{
   If RegexMatch(file[1][A_Index-1][0], "\.(avi|mpg|mp4|mkv)$") 
      Global video := 1
  }
      
    IfInString, path1, %n%
      Global multivideo := 1 
      
   IfnotInString, path1, %n%
      Global multivideo := 0
   
  
   
;Run, % vlc " " urlVlc "?sid=" sid "&file=0" ; A_Index-1
     ; Msgbox play %urlVlc%


var1 := RegExMatch(p, "(.*)\.", match)
if t contains -
{
var2 := RegExMatch(t, "-(.*)", matchh)
t = 
}

IfNotEqual, match1, 100  
{
    if runonce = 0
    {
    runonce = 1
    
global needy_gui := A_ScreenHeight-17 ; высота гуи
   
    Gui, Show, x1 y%needy_gui%, uTorrent_osd
     run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\margin bottom 15.hss"
    
}

GuiControl,, MyProgress, %p% ;vPRBAR cFF7200

GuiControl, , Prog,  %n% - %size%мб   скорость %s%мб/с   осталось %matchh1%%t%м   завершено %p%`% %state% ; video= %video% multiornot %multivideo% - %file% %path1%
formattime,date,,dd/MM/yy
GuiControl,, Time, %A_Hour%:%A_Min% %A_DDD% %date% 
;ToolTip, %mattch1%

if reload = 1
        {
        global reload = 0
            break
        }
sleep, 3000
}


/*
 *  ActiveScript for AutoHotkey v1.1
 *
 *  Provides an interface to Active Scripting languages like VBScript and JScript,
 *  without relying on Microsoft's ScriptControl, which is not available to 64-bit
 *  programs.
 *
 *  License: Use, modify and redistribute without limitation, but at your own risk.
 */
class ActiveScript extends ActiveScript._base
{
    __New(Language)
    {
        if this._script := ComObjCreate(Language, ActiveScript.IID)
            this._scriptParse := ComObjQuery(this._script, ActiveScript.IID_Parse)
        if !this._scriptParse
            throw Exception("Invalid language", -1, Language)
        this._site := new ActiveScriptSite(this)
        this._SetScriptSite(this._site.ptr)
        this._InitNew()
        this._objects := {}
        this.Error := ""
        this._dsp := this._GetScriptDispatch()  ; Must be done last.
        try
            if this.ScriptEngine() = "JScript"
                this.SetJScript58()
    }

    SetJScript58()
    {
        static IID_IActiveScriptProperty := "{4954E0D0-FBC7-11D1-8410-006008C3FBFC}"
        if !prop := ComObjQuery(this._script, IID_IActiveScriptProperty)
            return false
        VarSetCapacity(var, 24, 0), NumPut(2, NumPut(3, var, "short") + 6)
        hr := DllCall(NumGet(NumGet(prop+0)+4*A_PtrSize), "ptr", prop, "uint", 0x4000
            , "ptr", 0, "ptr", &var), ObjRelease(prop)
        return hr >= 0
    }
    
    Eval(Code)
    {
        pvar := NumGet(ComObjValue(arr:=ComObjArray(0xC,1)) + 8+A_PtrSize)
        this._ParseScriptText(Code, 0x20, pvar)  ; SCRIPTTEXT_ISEXPRESSION := 0x20
        return arr[0]
    }
    
    Exec(Code)
    {
        this._ParseScriptText(Code, 0x42, 0)  ; SCRIPTTEXT_ISVISIBLE := 2, SCRIPTTEXT_ISPERSISTENT := 0x40
        this._SetScriptState(2)  ; SCRIPTSTATE_CONNECTED := 2
    }
    
    AddObject(Name, DispObj, AddMembers := false)
    {
        static a, supports_dispatch ; Test for built-in IDispatch support.
            := a := ((a:=ComObjArray(0xC,1))[0]:=[42]) && a[0][1]=42
        if IsObject(DispObj) && !(supports_dispatch || ComObjType(DispObj))
            throw Exception("Adding a non-COM object requires AutoHotkey v1.1.17+", -1)
        this._objects[Name] := DispObj
        this._AddNamedItem(Name, AddMembers ? 8 : 2)  ; SCRIPTITEM_ISVISIBLE := 2, SCRIPTITEM_GLOBALMEMBERS := 8
    }
    
    _GetObjectUnk(Name)
    {
        return !IsObject(dsp := this._objects[Name]) ? dsp  ; Pointer
            : ComObjValue(dsp) ? ComObjValue(dsp)  ; ComObject
            : &dsp  ; AutoHotkey object
    }
    
    class _base
    {
        __Call(Method, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Method](Params*)
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Get(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
                try
                    return (this._dsp)[Property, Params*]
                catch e
                    throw Exception(e.Message, -1, e.Extra)
        }
        
        __Set(Property, Params*)
        {
            if ObjHasKey(this, "_dsp")
            {
                Value := Params.Pop()
                try
                    return (this._dsp)[Property, Params*] := Value
                catch e
                    throw Exception(e.Message, -1, e.Extra)
            }
        }
    }
    
    _SetScriptSite(Site)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+3*A_PtrSize), "ptr", p, "ptr", Site)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptSite")
    }
    
    _SetScriptState(State)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+5*A_PtrSize), "ptr", p, "int", State)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::SetScriptState")
    }
    
    _AddNamedItem(Name, Flags)
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+8*A_PtrSize), "ptr", p, "wstr", Name, "uint", Flags)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::AddNamedItem")
    }
    
    _GetScriptDispatch()
    {
        hr := DllCall(NumGet(NumGet((p:=this._script)+0)+10*A_PtrSize), "ptr", p, "ptr", 0, "ptr*", pdsp)
        if (hr < 0)
            this._HRFail(hr, "IActiveScript::GetScriptDispatch")
        return ComObject(9, pdsp, 1)
    }
    
    _InitNew()
    {
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+3*A_PtrSize), "ptr", p)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::InitNew")
    }
    
    _ParseScriptText(Code, Flags, pvarResult)
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        hr := DllCall(NumGet(NumGet((p:=this._scriptParse)+0)+5*A_PtrSize), "ptr", p
            , "wstr", Code, "ptr", 0, "ptr", 0, "ptr", 0, "uptr", 0, "uint", 1
            , "uint", Flags, "ptr", pvarResult, "ptr", 0)
        if (hr < 0)
            this._HRFail(hr, "IActiveScriptParse::ParseScriptText")
    }
    
    _HRFail(hr, what)
    {
        if e := this.Error
        {
            this.Error := ""
            throw Exception("`nError code:`t" this._HRFormat(e.HRESULT)
                . "`nSource:`t`t" e.Source "`nDescription:`t" e.Description
                . "`nLine:`t`t" e.Line "`nColumn:`t`t" e.Column
                . "`nLine text:`t`t" e.LineText, -3)
        }
        throw Exception(what " failed with code " this._HRFormat(hr), -2)
    }
    
    _HRFormat(hr)
    {
        return Format("0x{1:X}", hr & 0xFFFFFFFF)
    }
    
    _OnScriptError(err) ; IActiveScriptError err
    {
        VarSetCapacity(excp, 8 * A_PtrSize, 0)
        DllCall(NumGet(NumGet(err+0)+3*A_PtrSize), "ptr", err, "ptr", &excp) ; GetExceptionInfo
        DllCall(NumGet(NumGet(err+0)+4*A_PtrSize), "ptr", err, "uint*", srcctx, "uint*", srcline, "int*", srccol) ; GetSourcePosition
        DllCall(NumGet(NumGet(err+0)+5*A_PtrSize), "ptr", err, "ptr*", pbstrcode) ; GetSourceLineText
        code := StrGet(pbstrcode, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstrcode)
        if fn := NumGet(excp, 6 * A_PtrSize) ; pfnDeferredFillIn
            DllCall(fn, "ptr", &excp)
        wcode := NumGet(excp, 0, "ushort")
        hr := wcode ? 0x80040200 + wcode : NumGet(excp, 7 * A_PtrSize, "uint")
        this.Error := {HRESULT: hr, Line: srcline, Column: srccol, LineText: code}
        static Infos := "Source,Description,HelpFile"
        Loop Parse, % Infos, `,
            if pbstr := NumGet(excp, A_Index * A_PtrSize)
                this.Error[A_LoopField] := StrGet(pbstr, "UTF-16"), DllCall("OleAut32\SysFreeString", "ptr", pbstr)
        return 0x80004001 ; E_NOTIMPL (let Exec/Eval get a fail result)
    }
    
    __Delete()
    {
        if this._script
        {
            DllCall(NumGet(NumGet((p:=this._script)+0)+7*A_PtrSize), "ptr", p)  ; Close
            ObjRelease(this._script)
        }
        if this._scriptParse
            ObjRelease(this._scriptParse)
    }
    
    static IID := "{BB1A2AE1-A4F9-11cf-8F20-00805F2CD064}"
    static IID_Parse := A_PtrSize=8 ? "{C7EF7658-E1EE-480E-97EA-D52CB4D76D17}" : "{BB1A2AE2-A4F9-11cf-8F20-00805F2CD064}"
}

class ActiveScriptSite
{
    __New(Script)
    {
        ObjSetCapacity(this, "_site", 3 * A_PtrSize)
        NumPut(&Script
        , NumPut(ActiveScriptSite._vftable("_vft_w", "31122", 0x100)
        , NumPut(ActiveScriptSite._vftable("_vft", "31125232211", 0)
            , this.ptr := ObjGetAddress(this, "_site"))))
    }
    
    _vftable(Name, PrmCounts, EIBase)
    {
        if p := ObjGetAddress(this, Name)
            return p
        ObjSetCapacity(this, Name, StrLen(PrmCounts) * A_PtrSize)
        p := ObjGetAddress(this, Name)
        Loop Parse, % PrmCounts
        {
            cb := RegisterCallback("_ActiveScriptSite", "F", A_LoopField, A_Index + EIBase)
            NumPut(cb, p + (A_Index-1) * A_PtrSize)
        }
        return p
    }
}

_ActiveScriptSite(this, a1:=0, a2:=0, a3:=0, a4:=0, a5:=0)
{
    Method := A_EventInfo & 0xFF
    if A_EventInfo >= 0x100  ; IActiveScriptSiteWindow
    {
        if Method = 4  ; GetWindow
        {
            NumPut(0, a1+0) ; *phwnd := 0
            return 0 ; S_OK
        }
        if Method = 5  ; EnableModeless
        {
            return 0 ; S_OK
        }
        this -= A_PtrSize     ; Cast to IActiveScriptSite
    }
    ;else: IActiveScriptSite
    if Method = 1  ; QueryInterface
    {
        iid := _AS_GUIDToString(a1)
        if (iid = "{00000000-0000-0000-C000-000000000046}"  ; IUnknown
         || iid = "{DB01A1E3-A42B-11cf-8F20-00805F2CD064}") ; IActiveScriptSite
        {
            NumPut(this, a2+0)
            return 0 ; S_OK
        }
        if (iid = "{D10F6761-83E9-11cf-8F20-00805F2CD064}") ; IActiveScriptSiteWindow
        {
            NumPut(this + A_PtrSize, a2+0)
            return 0 ; S_OK
        }
        NumPut(0, a2+0)
        return 0x80004002 ; E_NOINTERFACE
    }
    if Method = 5  ; GetItemInfo
    {
        a1 := StrGet(a1, "UTF-16")
        , (a3 && NumPut(0, a3+0))  ; *ppiunkItem := NULL
        , (a4 && NumPut(0, a4+0))  ; *ppti := NULL
        if (a2 & 1) ; SCRIPTINFO_IUNKNOWN
        {
            if !(unk := Object(NumGet(this + A_PtrSize*2))._GetObjectUnk(a1))
                return 0x8002802B ; TYPE_E_ELEMENTNOTFOUND
            ObjAddRef(unk), NumPut(unk, a3+0)
        }
        return 0 ; S_OK
    }
    if Method = 9  ; OnScriptError
        return Object(NumGet(this + A_PtrSize*2))._OnScriptError(a1)
    
    ; AddRef and Release don't do anything because we want to avoid circular references.
    ; The site and IActiveScript are both released when the AHK script releases its last
    ; reference to the ActiveScript object.
    
    ; All of the other methods don't require implementations.
    return 0x80004001 ; E_NOTIMPL
}

_AS_GUIDToString(pGUID)
{
    VarSetCapacity(String, 38*2)
    DllCall("ole32\StringFromGUID2", "ptr", pGUID, "str", String, "int", 39)
    return String
}

}

sleep 3000

}

}

return 



EncodeInteger( p_value, p_size, p_address, p_offset )
{
	loop, %p_size%
		DllCall( "RtlFillMemory"
			, "uint", p_address+p_offset+A_Index-1
			, "uint", 1
			, "uchar", ( p_value >> ( 8*( A_Index-1 ) ) ) & 0xFF )
}