row%A_Index% = %filenumber%

row%A_Index% = %filenumber%

; Допгуи будет сразу автоскрываться если имя скрипта отлично от uTorrent_osd.exe или uTorrent_osd.ahk, ниже вид отвечающего кода
;WinGetActiveTitle, OutputVar
;exe = 1
;ahk = 1
;if OutputVar != uTorrent_osd.exe
;    exe = 0
;if OutputVar != uTorrent_osd.ahk
;    ahk = 0
;activeornot = % exe+ahk
;if activeornot = 0
;global canceldblclk = 1
;
; Прогресс бар запустится только если есть не до конца скачанная загрузка.
; LMB - открыть путь для мульти файловых торрентов и открыть файл для однофайловых. 
; DLMB - запустить stream если один видео файл, открыть допгуи выбора файла если мульти видео файл, если не видео - открыть путь к файл(у|ам). 
; Перемотка в Steam бывает работает не с первого запуска, наверное связано с тем, что не хватает каких-то "служебных" данных видео. 
; Так как программа uTorrent запускает Stream в 2 этапа: 1 нажатие - запускается таймер с надписью "готово через ..." 
; после истечения времени таймера, кнопка "поток" заново появляется. 2 нажатие - запуск stream. DLMB запускает второй этап минуя первый.
; upd. УСТРАНЯЕТСЯ УСТАНОВКОЙ POTPLAYER 1.6.62377 - индексирует недокачанный файл как гомплеер и перемотка работает!)
; RMB - открыть окно программы uTorrent и переместить мышь в окно.
; DRMB - перезагрузить uTorrent (если раздача плохо качается - бывает помогает)
; MMB - пауза/запуск всех торрентов

#NoTrayIcon
#NoEnv
#SingleInstance, force
ComObjError(false) ; убрать вывод ошибок типа HTTP.Send() когда utorrent выключился

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 := A_ScreenHeight-13 ; высота гуи
global needh_gui2 := A_ScreenHeight-444
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 +0x200 +BackgroundTrans vtime +0x201 ,
Gui, Add, Progress, w%SsW% h1 x0 y11 cBlue vMyProgress +E0x20 
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
 Global rclick := 0
OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x203,"WM_LBUTTONDBLCLK")
onmessage(0x207,"WM_MBUTTONDOWN")
onmessage(0x204,"WM_RBUTTONDOWN")
OnMessage(0x206,"WM_RBUTTONDBLCLK")
OnMessage(0x100, "WM_KEYDOWN")

;MsgBox, needw = %needx_text% needh = %needh% h-%ssh%
WM_LBUTTONDBLCLK()
{	
	Global click := 2
    global canceldblclk = 0
   ;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"
   GuiControl, , Prog,  uTorrent буфферизирует видео... 
    Loop
    {
        ;MsgBox, lop
       While (a = 1)
        {
            ;MsgBox, в while
            Global a := 0
           ;Global reload = 1
            return
        }
    ;ToolTip после слипа2
       sleep, 5000
       Run, % vlc " " urlVlc "?sid=" sid "&file=0"

       a = 1
       
    }
    ;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, 230
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
   {
          fileName := file[1][A_Index-1][0]
      global filenumber := A_Index-1
      If RegexMatch(fileName, "\.(avi|mpg|mp4|mkv)$") 
     {
         LV_Add("", filenumber, file[1][A_Index-1][0])
         ;global row := A_Index-1
         ;row%A_Index% = %filenumber%
       }
      ; MsgBox, r3%row3% r4%row4% 11 "LV_GetNex" LV_GetNext("0")
       ;MsgBox, row LV_GetNext("0")
       ;MsgBox, %row% %fileName%
      ; MsgBox,  rown = %row% %A_Index%-1 %fileName%
   }

       
LV_ModifyCol(1, 0)
;LV_ModifyCol(2, 0)
;LV_ModifyCol(1, "Sort")  ; 
;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, canceldblclk %canceldblclk% while a=%a% `n dblclkmylistview = %dblclk% `n rundblclk= %rundblclk% `n ahk %ahk% exe %exe% activeornot %activeornot%
    sleep 100
    
    
    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 
    }
    global canceldblclk = 0
	
    if rundblclk = 1
{
    Gui,2:default
	;;;global RowNumber := LV_GetNext("0")
    LV_GetText(RowText, LV_GetNext("0"), 1)
   ; MsgBox, % RowText
	Run, % vlc " " urlVlc "?sid=" sid "&file=" RowText ;%row LV_GetNext("0")%
    ;MsgBox You clicked row number %A_EventInfo%. Text: "%RowNumber%" %b%
	Global a := 1
   ; ToolTip,  a=%a%
	global rundblclk = 0
	Gui, 2:Destroy
	
}
WinGetActiveTitle, OutputVar
exe = 1
ahk = 1
if OutputVar != uTorrent_osd.exe
    exe = 0
if OutputVar != uTorrent_osd.ahk
ahk = 0
activeornot = % exe+ahk
;ToolTip, ahk %ahk% exe %exe% activeornot %activeornot%
if activeornot = 0
global canceldblclk = 1





While (a = 1)
{
    Global a := 0
    return
}
}
return
}

WM_LBUTTONDOWN()
{
	 Global click := 1
   SetTimer, check, -550
   return
 
   check:
   SetTimer, check, off
     Gui,2:default
global RowNumber := LV_GetNext("0")
   
  
   if ((click = 1) & (dblclk = 0) & (multivideo = 0)) 
    run %path%	
     if ((click = 1) & (dblclk = 0) & (multivideo = 1)) 
    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()
{
    global reload = 1
    WinGet, utid, ID,  / ahk_exe uTorrent.exe
   ;ToolTip, %state%
       if state = Загрузка
    {
      DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,62, Int,0 ) ; pause 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 ) ; pause 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_RBUTTONDBLCLK()
{
Global rclick = 2
if (rclick = 2)
{
    GuiControl, , Prog,  uTorrent перезагружается... 
    WinMenuSelectItem, ahk_class µTorrent4823DF041B09,, Файл, Выход
    Loop
    {
        
       While (a = 1)
        {
            
            Global a := 0
           Global reload = 1
            return
        }
    ;ToolTip после слипа2
       sleep, 15000
       run, C:\Program Files (x86)\uTorrent\uTorrent.exe /MINIMIZED
       sleep, 7000
       a = 1
       rclick = 0
    }

}
    
}


WM_RBUTTONDOWN()
{
   Global rclick = 1
   SetTimer, checkr, 250
   return
 
   checkr:
   SetTimer, checkr, off
 ;MsgBox, %rclick%

   if (rclick = 1)
    {
       winactivate, / ahk_exe uTorrent.exe
    WinGetpos, utx, uty, , , / ahk_exe uTorrent.exe
    MouseMove, utx+100, uty+100, 0
    rclick = 0
}
return

	}


Loop
{


url := "http://" ip ":" port "/gui/"
global vlc := "C:\Program Files\DAUM\PotPlayer\PotPlayerMini64.exe"
;global vlc := "C:\Program Files (x86)\PotPlayer\PotPlayerMini.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;") 
ComObjError(false)
obj := JS.eval("(" . JsonString . ")").torrents
SetFormat,Float,0.1
{
    
    
   
    
Loop % obj.length
{
            
        Global video := 0
        ;ToolTip, reload %reload%
        ;Sleep, 1000
        if 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 file1 := JS.eval("(" . JsonString . ")").files
    p = % obj[A_Index - 1][4]/10
   
   
   IfNotEqual, p, 100.0  ; отображение только недокачанных торрентов
{
   global state = % obj[A_Index - 1][21]
  
   Global n = % obj[A_Index - 1][2]
 
   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]
   Global path := % 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 -


;IfInString, t, -
;{
;var2 := RegExMatch(t, "-(.*)", matchh)
;t = 
;}
;IfNotInString, t, -
;  matchh1 =   
;IfNotEqual, match1, 100 




;tnorm := RegExReplace(t, "\D")

;MsgBox % var

;MsgBox % NewVar




     
        if runonce = 0
        {
        runonce = 1
        ;global needy_gui := A_ScreenHeight-13 ; высота гуи
       
        Gui, Show, x1 y%needy_gui%, uTorrent_osd
         run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\margin bottom 15.hss"
        
        }
;-------------------------------------
;-----------------------------размер
SetFormat, FloatFast, 0.2
if size > 1000
    mbgb = % obj[A_Index - 1][3]/1000000000  "гб"
else
    mbgb = % obj[A_Index - 1][3]/1000000 "мб"
;-------------------------------------
;------------------------------------

;-------------------------------------
;-----------------------------осталось
SetFormat, FloatFast, 0.2
RegExMatch(t, "\d+", tnorm)



        If tnorm > 60
        {
            hournotnorm = % tnorm/60
            RegExMatch(hournotnorm, "(.*)\.", hour)
            hour = % hour1 ":"
        SetFormat, FloatFast, 0.2
        RegExMatch(tnorm/60, "\.(\d+)", minnogood)

        minn = % minnogood*60/100
        RegExMatch(minn, "\.(..)", min)
        ;MsgBox, = %min1%
        
       ; ToolTip, hournotnorm %hournotnorm% hour %hour% hour1 %hour1% tnorm %tnorm% tnotnorm %tnotnorm% tnorm %tnorm% minnogood1 %minnogood1%
        }
    else
    {
        hour =
        RegExMatch(t, "\d+", tnorm)
   ; SetFormat, FloatFast, 0.2
    RegExMatch(tnorm/60, "\.([0-9])", minnogood)
;ToolTip tnorm %tnorm% minnogood %minnogood%
    min1 = % tnorm
    ;RegExMatch(minn, "\.(..)", min)
  ;  ToolTip, min %min1%
   ; ToolTip, hournotnorm %hournotnorm% hour %hour% hour1 %hour1% tnorm1 %tnorm1% tnotnorm %tnotnorm%
    }
    ;---------------------------------------------------------------------------------------
    ;-----------------------------осталось--------------------------------------------------   
    
    
     ;---------------------------------------------------------------------------------------
    ;-----------------------------скорость--------------------------------------------------
   ; s = % obj[A_Index - 1][9]/1000000
   SetFormat, FloatFast, 0.2
   s = % obj[A_Index - 1][9]/1000000 "мб/с"
   if s < 1
    {
    SetFormat, FloatFast, 0.0
    s = % obj[A_Index - 1][9]/1000 "кб/с"
    }
    ; ---------------------------------------------------------Защита от зависания скачки
    
    if ((s = "0кб/с") & (state != "Пауза"))
    {
        ;MsgBox
        RunWait, ping.exe www.microsoft.com,, Hide UseErrorlevel
        if !Errorlevel = 1
            ;ToolTip, % !Errorlevel
        prepare_to_reload += 1
       }
    
    
    if s != 0кб/с
        ;MsgBox
        prepare_to_reload = 0
    
    if prepare_to_reload = 50
        {
    GuiControl, , Prog,  uTorrent перезагружается... 
    WinMenuSelectItem, ahk_class µTorrent4823DF041B09,, Файл, Выход
    prepare_to_reload = 0
    Loop
    {
        
       While (a = 1)
        {
           ; ToolTip после слипа2
            Global a = 0
           ; ToolTip, a %a%
          reload
            return
        }
    ;ToolTip после слипа2
       sleep, 15000
       run, C:\Program Files (x86)\uTorrent\uTorrent.exe /MINIMIZED
       sleep, 7000
       global a = 1
       ;ToolTip, a %a%
       ;Sleep, 1000
       
        
    }
}
        
 ;ToolTip, s = %s% prepare_to_reload %prepare_to_reload% state %state%
    ; --------------------------------------------------------------------------------
SetFormat, FloatFast, 0.1
GuiControl,, MyProgress, %p% ;vPRBAR cFF7200
 
GuiControl, , Prog,  %n% - %mbgb%  скорость %s%   осталось %hour%%min1%м  завершено %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
        {
            ;MsgBox, reload 1
        global reload := 0
            break
        }  
 
sleep, 2000

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
}
;}




















/*
 *  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 1000

}

}
} ;
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 )
}


#IfWinActive  ahk_exe uTorrent.exe
~LButton::
;if GetTextUnderMouse() = Выход
{
CoordMode, Mouse, Screen
MouseGetPos, m_x, m_y, m_hw_target
SendMessage, 0x84,, ( m_y << 16 )|m_x,, ahk_id %m_hw_target%
;ToolTip, % errorlevel
if errorlevel = 1
{
    ;MsgBox, % GetTextUnderMouse()
   
    if GetTextUnderMouse() = "Выход"
    {
         run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\destroy margin 0.hss" ; убрать кусок отрезаного от приложений экрана
      WinMenuSelectItem, ahk_class µTorrent4823DF041B09,, Файл, Выход
          exitapp  
    }
    
	GetTextUnderMouse() {
	Acc := Acc_ObjectFromPoint(child)
	try value := Acc.accValue(child)
	if Not value
		try value := Acc.accName(child)
	return value
    
    
}
    
    
    
    
   
}

}


























































; http://www.autohotkey.com/board/topic/77303-acc-library-ahk-l-updated-09272012/
; https://dl.dropbox.com/u/47573473/Web%20Server/AHK_L/Acc.ahk
;------------------------------------------------------------------------------
; Acc.ahk Standard Library
; by Sean
; Updated by jethrow:
; 	Modified ComObjEnwrap params from (9,pacc) --> (9,pacc,1)
; 	Changed ComObjUnwrap to ComObjValue in order to avoid AddRef (thanks fincs)
; 	Added Acc_GetRoleText & Acc_GetStateText
; 	Added additional functions - commented below
; 	Removed original Acc_Children function
; last updated 2/25/2010
;------------------------------------------------------------------------------

Acc_Init()
{
	Static	h
	If Not	h
		h:=DllCall("LoadLibrary","Str","oleacc","Ptr")
}
Acc_ObjectFromEvent(ByRef _idChild_, hWnd, idObject, idChild)
{
	Acc_Init()
	If	DllCall("oleacc\AccessibleObjectFromEvent", "Ptr", hWnd, "UInt", idObject, "UInt", idChild, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
	Return	ComObjEnwrap(9,pacc,1), _idChild_:=NumGet(varChild,8,"UInt")
}

Acc_ObjectFromPoint(ByRef _idChild_ = "", x = "", y = "")
{
	Acc_Init()
	If	DllCall("oleacc\AccessibleObjectFromPoint", "Int64", x==""||y==""?0*DllCall("GetCursorPos","Int64*",pt)+pt:x&0xFFFFFFFF|y<<32, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
	Return	ComObjEnwrap(9,pacc,1), _idChild_:=NumGet(varChild,8,"UInt")
}

Acc_ObjectFromWindow(hWnd, idObject = -4)
{
	Acc_Init()
	If	DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject&=0xFFFFFFFF, "Ptr", -VarSetCapacity(IID,16)+NumPut(idObject==0xFFFFFFF0?0x46000000000000C0:0x719B3800AA000C81,NumPut(idObject==0xFFFFFFF0?0x0000000000020400:0x11CF3C3D618736E0,IID,"Int64"),"Int64"), "Ptr*", pacc)=0
	Return	ComObjEnwrap(9,pacc,1)
}

Acc_WindowFromObject(pacc)
{
	If	DllCall("oleacc\WindowFromAccessibleObject", "Ptr", IsObject(pacc)?ComObjValue(pacc):pacc, "Ptr*", hWnd)=0
	Return	hWnd
}

Acc_GetRoleText(nRole)
{
	nSize := DllCall("oleacc\GetRoleText", "Uint", nRole, "Ptr", 0, "Uint", 0)
	VarSetCapacity(sRole, (A_IsUnicode?2:1)*nSize)
	DllCall("oleacc\GetRoleText", "Uint", nRole, "str", sRole, "Uint", nSize+1)
	Return	sRole
}

Acc_GetStateText(nState)
{
	nSize := DllCall("oleacc\GetStateText", "Uint", nState, "Ptr", 0, "Uint", 0)
	VarSetCapacity(sState, (A_IsUnicode?2:1)*nSize)
	DllCall("oleacc\GetStateText", "Uint", nState, "str", sState, "Uint", nSize+1)
	Return	sState
}

Acc_SetWinEventHook(eventMin, eventMax, pCallback)
{
	Return	DllCall("SetWinEventHook", "Uint", eventMin, "Uint", eventMax, "Uint", 0, "Ptr", pCallback, "Uint", 0, "Uint", 0, "Uint", 0)
}

Acc_UnhookWinEvent(hHook)
{
	Return	DllCall("UnhookWinEvent", "Ptr", hHook)
}
/*	Win Events:
	pCallback := RegisterCallback("WinEventProc")
	WinEventProc(hHook, event, hWnd, idObject, idChild, eventThread, eventTime)
	{
		Critical
		Acc := Acc_ObjectFromEvent(_idChild_, hWnd, idObject, idChild)
		; Code Here:
	}
*/

; Written by jethrow
Acc_Role(Acc, ChildId=0) {
	try return ComObjType(Acc,"Name")="IAccessible"?Acc_GetRoleText(Acc.accRole(ChildId)):"invalid object"
}
Acc_State(Acc, ChildId=0) {
	try return ComObjType(Acc,"Name")="IAccessible"?Acc_GetStateText(Acc.accState(ChildId)):"invalid object"
}
Acc_Location(Acc, ChildId=0, byref Position="") { ; adapted from Sean's code
	try Acc.accLocation(ComObj(0x4003,&x:=0), ComObj(0x4003,&y:=0), ComObj(0x4003,&w:=0), ComObj(0x4003,&h:=0), ChildId)
	catch
		return
	Position := "x" NumGet(x,0,"int") " y" NumGet(y,0,"int") " w" NumGet(w,0,"int") " h" NumGet(h,0,"int")
	return	{x:NumGet(x,0,"int"), y:NumGet(y,0,"int"), w:NumGet(w,0,"int"), h:NumGet(h,0,"int")}
}
Acc_Parent(Acc) { 
	try parent:=Acc.accParent
	return parent?Acc_Query(parent):
}
Acc_Child(Acc, ChildId=0) {
	try child:=Acc.accChild(ChildId)
	return child?Acc_Query(child):
}
Acc_Query(Acc) { ; thanks Lexikos - www.autohotkey.com/forum/viewtopic.php?t=81731&p=509530#509530
	try return ComObj(9, ComObjQuery(Acc,"{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1)
}
Acc_Error(p="") {
	static setting:=0
	return p=""?setting:setting:=p
}
Acc_Children(Acc) {
	if ComObjType(Acc,"Name") != "IAccessible"
		ErrorLevel := "Invalid IAccessible Object"
	else {
		Acc_Init(), cChildren:=Acc.accChildCount, Children:=[]
		if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0 {
			Loop %cChildren%
				i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren,i), Children.Insert(NumGet(varChildren,i-8)=9?Acc_Query(child):child), NumGet(varChildren,i-8)=9?ObjRelease(child):
			return Children.MaxIndex()?Children:
		} else
			ErrorLevel := "AccessibleChildren DllCall Failed"
	}
	if Acc_Error()
		throw Exception(ErrorLevel,-1)
}
Acc_ChildrenByRole(Acc, Role) {
	if ComObjType(Acc,"Name")!="IAccessible"
		ErrorLevel := "Invalid IAccessible Object"
	else {
		Acc_Init(), cChildren:=Acc.accChildCount, Children:=[]
		if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0 {
			Loop %cChildren% {
				i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren,i)
				if NumGet(varChildren,i-8)=9
					AccChild:=Acc_Query(child), ObjRelease(child), Acc_Role(AccChild)=Role?Children.Insert(AccChild):
				else
					Acc_Role(Acc, child)=Role?Children.Insert(child):
			}
			return Children.MaxIndex()?Children:, ErrorLevel:=0
		} else
			ErrorLevel := "AccessibleChildren DllCall Failed"
	}
	if Acc_Error()
		throw Exception(ErrorLevel,-1)
}
Acc_Get(Cmd, ChildPath="", ChildID=0, WinTitle="", WinText="", ExcludeTitle="", ExcludeText="") {
	static properties := {Action:"DefaultAction", DoAction:"DoDefaultAction", Keyboard:"KeyboardShortcut"}
	AccObj :=   IsObject(WinTitle)? WinTitle
			:   Acc_ObjectFromWindow( WinExist(WinTitle, WinText, ExcludeTitle, ExcludeText), 0 )
	if ComObjType(AccObj, "Name") != "IAccessible"
		ErrorLevel := "Could not access an IAccessible Object"
	else {
		StringReplace, ChildPath, ChildPath, _, %A_Space%, All
		AccError:=Acc_Error(), Acc_Error(true)
		Loop Parse, ChildPath, ., %A_Space%
			try {
				if A_LoopField is digit
					Children:=Acc_Children(AccObj), m2:=A_LoopField ; mimic "m2" output in else-statement
				else
					RegExMatch(A_LoopField, "(\D*)(\d*)", m), Children:=Acc_ChildrenByRole(AccObj, m1), m2:=(m2?m2:1)
				if Not Children.HasKey(m2)
					throw
				AccObj := Children[m2]
			} catch {
				ErrorLevel:="Cannot access ChildPath Item #" A_Index " -> " A_LoopField, Acc_Error(AccError)
				if Acc_Error()
					throw Exception("Cannot access ChildPath Item", -1, "Item #" A_Index " -> " A_LoopField)
				return
			}
		Acc_Error(AccError)
		StringReplace, Cmd, Cmd, %A_Space%, , All
		properties.HasKey(Cmd)? Cmd:=properties[Cmd]:
		try {
			if (Cmd = "Location")
				AccObj.accLocation(ComObj(0x4003,&x:=0), ComObj(0x4003,&y:=0), ComObj(0x4003,&w:=0), ComObj(0x4003,&h:=0), ChildId)
			  , ret_val := "x" NumGet(x,0,"int") " y" NumGet(y,0,"int") " w" NumGet(w,0,"int") " h" NumGet(h,0,"int")
			else if (Cmd = "Object")
				ret_val := AccObj
			else if Cmd in Role,State
				ret_val := Acc_%Cmd%(AccObj, ChildID+0)
			else if Cmd in ChildCount,Selection,Focus
				ret_val := AccObj["acc" Cmd]
			else
				ret_val := AccObj["acc" Cmd](ChildID+0)
		} catch {
			ErrorLevel := """" Cmd """ Cmd Not Implemented"
			if Acc_Error()
				throw Exception("Cmd Not Implemented", -1, Cmd)
			return
		}
		return ret_val, ErrorLevel:=0
	}
	if Acc_Error()
		throw Exception(ErrorLevel,-1)
}

LV_ModifyCol(1, "Sort") 

   loop % file[1].length
      msgbox % folder "\" file[1][A_Index-1][0] "`nномер " A_Index-1

; Допгуи будет сразу автоскрываться если имя скрипта отлично от uTorrent_osd.exe или uTorrent_osd.ahk, ниже вид отвечающего кода
;WinGetActiveTitle, OutputVar
;exe = 1
;ahk = 1
;if OutputVar != uTorrent_osd.exe
;    exe = 0
;if OutputVar != uTorrent_osd.ahk
;    ahk = 0
;activeornot = % exe+ahk
;if activeornot = 0
;global canceldblclk = 1
;
; Прогресс бар запустится только если есть не до конца скачанная загрузка.
; LMB - открыть путь для мульти файловых торрентов и открыть файл для однофайловых. 
; DLMB - запустить stream если один видео файл, открыть допгуи выбора файла если мульти видео файл, если не видео - открыть путь к файл(у|ам). 
; Перемотка в Steam бывает работает не с первого запуска, наверное связано с тем, что не хватает каких-то "служебных" данных видео. 
; Так как программа uTorrent запускает Stream в 2 этапа: 1 нажатие - запускается таймер с надписью "готово через ..." 
; после истечения времени таймера, кнопка "поток" заново появляется. 2 нажатие - запуск stream. DLMB запускает второй этап минуя первый.
; upd. УСТРАНЯЕТСЯ УСТАНОВКОЙ POTPLAYER 1.6.62377 - индексирует недокачанный файл как гомплеер и перемотка работает!)
; RMB - открыть окно программы uTorrent и переместить мышь в окно.
; DRMB - перезагрузить uTorrent (если раздача плохо качается - бывает помогает)
; MMB - пауза/запуск всех торрентов

#NoTrayIcon
#NoEnv
#SingleInstance, force
ComObjError(false) ; убрать вывод ошибок типа HTTP.Send() когда utorrent выключился

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 := A_ScreenHeight-13 ; высота гуи
global needh_gui2 := A_ScreenHeight-444
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 +0x200 +BackgroundTrans vtime +0x201 ,
Gui, Add, Progress, w%SsW% h1 x0 y11 cBlue vMyProgress +E0x20 
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
 Global rclick := 0
OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x203,"WM_LBUTTONDBLCLK")
onmessage(0x207,"WM_MBUTTONDOWN")
onmessage(0x204,"WM_RBUTTONDOWN")
OnMessage(0x206,"WM_RBUTTONDBLCLK")
OnMessage(0x100, "WM_KEYDOWN")

;MsgBox, needw = %needx_text% needh = %needh% h-%ssh%
WM_LBUTTONDBLCLK()
{	
	Global click := 2
    global canceldblclk = 0
   ;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"
   GuiControl, , Prog,  uTorrent буфферизирует видео... 
    Loop
    {
        ;MsgBox, lop
       While (a = 1)
        {
            ;MsgBox, в while
            Global a := 0
           ;Global reload = 1
            return
        }
    ;ToolTip после слипа2
       sleep, 5000
       Run, % vlc " " urlVlc "?sid=" sid "&file=0"

       a = 1
       
    }
    ;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, 230
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 % file1[1].length

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


LV_ModifyCol(1, "Sort")  ; 
;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, canceldblclk %canceldblclk% while a=%a% `n dblclkmylistview = %dblclk% `n rundblclk= %rundblclk% `n ahk %ahk% exe %exe% activeornot %activeornot%
    sleep 100
    
    
    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 
    }
    global canceldblclk = 0
	
    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
	
}
WinGetActiveTitle, OutputVar
exe = 1
ahk = 1
if OutputVar != uTorrent_osd.exe
    exe = 0
if OutputVar != uTorrent_osd.ahk
ahk = 0
activeornot = % exe+ahk
;ToolTip, ahk %ahk% exe %exe% activeornot %activeornot%
if activeornot = 0
global canceldblclk = 1





While (a = 1)
{
    Global a := 0
    return
}
}
return
}

WM_LBUTTONDOWN()
{
	 Global click := 1
   SetTimer, check, -550
   return
 
   check:
   SetTimer, check, off
     Gui,2:default
global RowNumber := LV_GetNext("0")
   
  
   if ((click = 1) & (dblclk = 0) & (multivideo = 0)) 
    run %path%	
     if ((click = 1) & (dblclk = 0) & (multivideo = 1)) 
    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()
{
    global reload = 1
    WinGet, utid, ID,  / ahk_exe uTorrent.exe
   ;ToolTip, %state%
       if state = Загрузка
    {
      DllCall( "PostMessage", UInt,utid, UInt,0x111, UInt,62, Int,0 ) ; pause 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 ) ; pause 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_RBUTTONDBLCLK()
{
Global rclick = 2
if (rclick = 2)
{
    GuiControl, , Prog,  uTorrent перезагружается... 
    WinMenuSelectItem, ahk_class µTorrent4823DF041B09,, Файл, Выход
    Loop
    {
        
       While (a = 1)
        {
            
            Global a := 0
           Global reload = 1
            return
        }
    ;ToolTip после слипа2
       sleep, 15000
       run, C:\Program Files (x86)\uTorrent\uTorrent.exe /MINIMIZED
       sleep, 7000
       a = 1
       rclick = 0
    }

}
    
}


WM_RBUTTONDOWN()
{
   Global rclick = 1
   SetTimer, checkr, 250
   return
 
   checkr:
   SetTimer, checkr, off
 ;MsgBox, %rclick%

   if (rclick = 1)
    {
       winactivate, / ahk_exe uTorrent.exe
    WinGetpos, utx, uty, , , / ahk_exe uTorrent.exe
    MouseMove, utx+100, uty+100, 0
    rclick = 0
}
return

	}


Loop
{


url := "http://" ip ":" port "/gui/"
global vlc := "C:\Program Files\DAUM\PotPlayer\PotPlayerMini64.exe"
;global vlc := "C:\Program Files (x86)\PotPlayer\PotPlayerMini.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;") 
ComObjError(false)
obj := JS.eval("(" . JsonString . ")").torrents
SetFormat,Float,0.1
{
    
    
   
    
Loop % obj.length
{
            
        Global video := 0
        ;ToolTip, reload %reload%
        ;Sleep, 1000
        if 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")
   file := JS.eval("(" . JsonString . ")").files
    global file1 := JS.eval("(" . JsonString . ")").files
    p = % obj[A_Index - 1][4]/10
   
   
   IfNotEqual, p, 100.0  ; отображение только недокачанных торрентов
{
   global state = % obj[A_Index - 1][21]
  
   Global n = % obj[A_Index - 1][2]
 
   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]
   Global path := % 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 -


;IfInString, t, -
;{
;var2 := RegExMatch(t, "-(.*)", matchh)
;t = 
;}
;IfNotInString, t, -
;  matchh1 =   
;IfNotEqual, match1, 100 




;tnorm := RegExReplace(t, "\D")

;MsgBox % var

;MsgBox % NewVar




     
        if runonce = 0
        {
        runonce = 1
        ;global needy_gui := A_ScreenHeight-13 ; высота гуи
       
        Gui, Show, x1 y%needy_gui%, uTorrent_osd
         run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\margin bottom 15.hss"
        
        }
;-------------------------------------
;-----------------------------размер
SetFormat, FloatFast, 0.2
if size > 1000
    mbgb = % obj[A_Index - 1][3]/1000000000  "гб"
else
    mbgb = % obj[A_Index - 1][3]/1000000 "мб"
;-------------------------------------
;------------------------------------

;-------------------------------------
;-----------------------------осталось
SetFormat, FloatFast, 0.2
RegExMatch(t, "\d+", tnorm)



        If tnorm > 60
        {
            hournotnorm = % tnorm/60
            RegExMatch(hournotnorm, "(.*)\.", hour)
            hour = % hour1 ":"
        SetFormat, FloatFast, 0.2
        RegExMatch(tnorm/60, "\.(\d+)", minnogood)

        minn = % minnogood*60/100
        RegExMatch(minn, "\.(..)", min)
        ;MsgBox, = %min1%
        
       ; ToolTip, hournotnorm %hournotnorm% hour %hour% hour1 %hour1% tnorm %tnorm% tnotnorm %tnotnorm% tnorm %tnorm% minnogood1 %minnogood1%
        }
    else
    {
        hour =
        RegExMatch(t, "\d+", tnorm)
   ; SetFormat, FloatFast, 0.2
    RegExMatch(tnorm/60, "\.([0-9])", minnogood)
;ToolTip tnorm %tnorm% minnogood %minnogood%
    min1 = % tnorm
    ;RegExMatch(minn, "\.(..)", min)
  ;  ToolTip, min %min1%
   ; ToolTip, hournotnorm %hournotnorm% hour %hour% hour1 %hour1% tnorm1 %tnorm1% tnotnorm %tnotnorm%
    }
    ;---------------------------------------------------------------------------------------
    ;-----------------------------осталось--------------------------------------------------   
    
    
     ;---------------------------------------------------------------------------------------
    ;-----------------------------скорость--------------------------------------------------
   ; s = % obj[A_Index - 1][9]/1000000
   SetFormat, FloatFast, 0.2
   s = % obj[A_Index - 1][9]/1000000 "мб/с"
   if s < 1
    {
    SetFormat, FloatFast, 0.0
    s = % obj[A_Index - 1][9]/1000 "кб/с"
    }
    ; ---------------------------------------------------------Защита от зависания скачки
    
    if ((s = "0кб/с") & (state != "Пауза"))
    {
        ;MsgBox
        RunWait, ping.exe www.microsoft.com,, Hide UseErrorlevel
        if !Errorlevel = 1
            ;ToolTip, % !Errorlevel
        prepare_to_reload += 1
       }
    
    
    if s != 0кб/с
        ;MsgBox
        prepare_to_reload = 0
    
    if prepare_to_reload = 50
        {
    GuiControl, , Prog,  uTorrent перезагружается... 
    WinMenuSelectItem, ahk_class µTorrent4823DF041B09,, Файл, Выход
    prepare_to_reload = 0
    Loop
    {
        
       While (a = 1)
        {
           ; ToolTip после слипа2
            Global a = 0
           ; ToolTip, a %a%
          reload
            return
        }
    ;ToolTip после слипа2
       sleep, 15000
       run, C:\Program Files (x86)\uTorrent\uTorrent.exe /MINIMIZED
       sleep, 7000
       global a = 1
       ;ToolTip, a %a%
       ;Sleep, 1000
       
        
    }
}
        
 ;ToolTip, s = %s% prepare_to_reload %prepare_to_reload% state %state%
    ; --------------------------------------------------------------------------------
SetFormat, FloatFast, 0.1
GuiControl,, MyProgress, %p% ;vPRBAR cFF7200
 
GuiControl, , Prog,  %n% - %mbgb%  скорость %s%   осталось %hour%%min1%м  завершено %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
        {
            ;MsgBox, reload 1
        global reload := 0
            break
        }  
 
sleep, 2000

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
}
;}




















/*
 *  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 1000

}

}
} ;
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 )
}


#IfWinActive  ahk_exe uTorrent.exe
~LButton::
;if GetTextUnderMouse() = Выход
{
CoordMode, Mouse, Screen
MouseGetPos, m_x, m_y, m_hw_target
SendMessage, 0x84,, ( m_y << 16 )|m_x,, ahk_id %m_hw_target%
;ToolTip, % errorlevel
if errorlevel = 1
{
    ;MsgBox, % GetTextUnderMouse()
   
    if GetTextUnderMouse() = "Выход"
    {
         run, "C:\staff\margin\margin hsi.exe" "C:\staff\margin\destroy margin 0.hss" ; убрать кусок отрезаного от приложений экрана
      WinMenuSelectItem, ahk_class µTorrent4823DF041B09,, Файл, Выход
          exitapp  
    }
    
	GetTextUnderMouse() {
	Acc := Acc_ObjectFromPoint(child)
	try value := Acc.accValue(child)
	if Not value
		try value := Acc.accName(child)
	return value
    
    
}
    
    
    
    
   
}

}


























































; http://www.autohotkey.com/board/topic/77303-acc-library-ahk-l-updated-09272012/
; https://dl.dropbox.com/u/47573473/Web%20Server/AHK_L/Acc.ahk
;------------------------------------------------------------------------------
; Acc.ahk Standard Library
; by Sean
; Updated by jethrow:
; 	Modified ComObjEnwrap params from (9,pacc) --> (9,pacc,1)
; 	Changed ComObjUnwrap to ComObjValue in order to avoid AddRef (thanks fincs)
; 	Added Acc_GetRoleText & Acc_GetStateText
; 	Added additional functions - commented below
; 	Removed original Acc_Children function
; last updated 2/25/2010
;------------------------------------------------------------------------------

Acc_Init()
{
	Static	h
	If Not	h
		h:=DllCall("LoadLibrary","Str","oleacc","Ptr")
}
Acc_ObjectFromEvent(ByRef _idChild_, hWnd, idObject, idChild)
{
	Acc_Init()
	If	DllCall("oleacc\AccessibleObjectFromEvent", "Ptr", hWnd, "UInt", idObject, "UInt", idChild, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
	Return	ComObjEnwrap(9,pacc,1), _idChild_:=NumGet(varChild,8,"UInt")
}

Acc_ObjectFromPoint(ByRef _idChild_ = "", x = "", y = "")
{
	Acc_Init()
	If	DllCall("oleacc\AccessibleObjectFromPoint", "Int64", x==""||y==""?0*DllCall("GetCursorPos","Int64*",pt)+pt:x&0xFFFFFFFF|y<<32, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
	Return	ComObjEnwrap(9,pacc,1), _idChild_:=NumGet(varChild,8,"UInt")
}

Acc_ObjectFromWindow(hWnd, idObject = -4)
{
	Acc_Init()
	If	DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject&=0xFFFFFFFF, "Ptr", -VarSetCapacity(IID,16)+NumPut(idObject==0xFFFFFFF0?0x46000000000000C0:0x719B3800AA000C81,NumPut(idObject==0xFFFFFFF0?0x0000000000020400:0x11CF3C3D618736E0,IID,"Int64"),"Int64"), "Ptr*", pacc)=0
	Return	ComObjEnwrap(9,pacc,1)
}

Acc_WindowFromObject(pacc)
{
	If	DllCall("oleacc\WindowFromAccessibleObject", "Ptr", IsObject(pacc)?ComObjValue(pacc):pacc, "Ptr*", hWnd)=0
	Return	hWnd
}

Acc_GetRoleText(nRole)
{
	nSize := DllCall("oleacc\GetRoleText", "Uint", nRole, "Ptr", 0, "Uint", 0)
	VarSetCapacity(sRole, (A_IsUnicode?2:1)*nSize)
	DllCall("oleacc\GetRoleText", "Uint", nRole, "str", sRole, "Uint", nSize+1)
	Return	sRole
}

Acc_GetStateText(nState)
{
	nSize := DllCall("oleacc\GetStateText", "Uint", nState, "Ptr", 0, "Uint", 0)
	VarSetCapacity(sState, (A_IsUnicode?2:1)*nSize)
	DllCall("oleacc\GetStateText", "Uint", nState, "str", sState, "Uint", nSize+1)
	Return	sState
}

Acc_SetWinEventHook(eventMin, eventMax, pCallback)
{
	Return	DllCall("SetWinEventHook", "Uint", eventMin, "Uint", eventMax, "Uint", 0, "Ptr", pCallback, "Uint", 0, "Uint", 0, "Uint", 0)
}

Acc_UnhookWinEvent(hHook)
{
	Return	DllCall("UnhookWinEvent", "Ptr", hHook)
}
/*	Win Events:
	pCallback := RegisterCallback("WinEventProc")
	WinEventProc(hHook, event, hWnd, idObject, idChild, eventThread, eventTime)
	{
		Critical
		Acc := Acc_ObjectFromEvent(_idChild_, hWnd, idObject, idChild)
		; Code Here:
	}
*/

; Written by jethrow
Acc_Role(Acc, ChildId=0) {
	try return ComObjType(Acc,"Name")="IAccessible"?Acc_GetRoleText(Acc.accRole(ChildId)):"invalid object"
}
Acc_State(Acc, ChildId=0) {
	try return ComObjType(Acc,"Name")="IAccessible"?Acc_GetStateText(Acc.accState(ChildId)):"invalid object"
}
Acc_Location(Acc, ChildId=0, byref Position="") { ; adapted from Sean's code
	try Acc.accLocation(ComObj(0x4003,&x:=0), ComObj(0x4003,&y:=0), ComObj(0x4003,&w:=0), ComObj(0x4003,&h:=0), ChildId)
	catch
		return
	Position := "x" NumGet(x,0,"int") " y" NumGet(y,0,"int") " w" NumGet(w,0,"int") " h" NumGet(h,0,"int")
	return	{x:NumGet(x,0,"int"), y:NumGet(y,0,"int"), w:NumGet(w,0,"int"), h:NumGet(h,0,"int")}
}
Acc_Parent(Acc) { 
	try parent:=Acc.accParent
	return parent?Acc_Query(parent):
}
Acc_Child(Acc, ChildId=0) {
	try child:=Acc.accChild(ChildId)
	return child?Acc_Query(child):
}
Acc_Query(Acc) { ; thanks Lexikos - www.autohotkey.com/forum/viewtopic.php?t=81731&p=509530#509530
	try return ComObj(9, ComObjQuery(Acc,"{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1)
}
Acc_Error(p="") {
	static setting:=0
	return p=""?setting:setting:=p
}
Acc_Children(Acc) {
	if ComObjType(Acc,"Name") != "IAccessible"
		ErrorLevel := "Invalid IAccessible Object"
	else {
		Acc_Init(), cChildren:=Acc.accChildCount, Children:=[]
		if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0 {
			Loop %cChildren%
				i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren,i), Children.Insert(NumGet(varChildren,i-8)=9?Acc_Query(child):child), NumGet(varChildren,i-8)=9?ObjRelease(child):
			return Children.MaxIndex()?Children:
		} else
			ErrorLevel := "AccessibleChildren DllCall Failed"
	}
	if Acc_Error()
		throw Exception(ErrorLevel,-1)
}
Acc_ChildrenByRole(Acc, Role) {
	if ComObjType(Acc,"Name")!="IAccessible"
		ErrorLevel := "Invalid IAccessible Object"
	else {
		Acc_Init(), cChildren:=Acc.accChildCount, Children:=[]
		if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0 {
			Loop %cChildren% {
				i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren,i)
				if NumGet(varChildren,i-8)=9
					AccChild:=Acc_Query(child), ObjRelease(child), Acc_Role(AccChild)=Role?Children.Insert(AccChild):
				else
					Acc_Role(Acc, child)=Role?Children.Insert(child):
			}
			return Children.MaxIndex()?Children:, ErrorLevel:=0
		} else
			ErrorLevel := "AccessibleChildren DllCall Failed"
	}
	if Acc_Error()
		throw Exception(ErrorLevel,-1)
}
Acc_Get(Cmd, ChildPath="", ChildID=0, WinTitle="", WinText="", ExcludeTitle="", ExcludeText="") {
	static properties := {Action:"DefaultAction", DoAction:"DoDefaultAction", Keyboard:"KeyboardShortcut"}
	AccObj :=   IsObject(WinTitle)? WinTitle
			:   Acc_ObjectFromWindow( WinExist(WinTitle, WinText, ExcludeTitle, ExcludeText), 0 )
	if ComObjType(AccObj, "Name") != "IAccessible"
		ErrorLevel := "Could not access an IAccessible Object"
	else {
		StringReplace, ChildPath, ChildPath, _, %A_Space%, All
		AccError:=Acc_Error(), Acc_Error(true)
		Loop Parse, ChildPath, ., %A_Space%
			try {
				if A_LoopField is digit
					Children:=Acc_Children(AccObj), m2:=A_LoopField ; mimic "m2" output in else-statement
				else
					RegExMatch(A_LoopField, "(\D*)(\d*)", m), Children:=Acc_ChildrenByRole(AccObj, m1), m2:=(m2?m2:1)
				if Not Children.HasKey(m2)
					throw
				AccObj := Children[m2]
			} catch {
				ErrorLevel:="Cannot access ChildPath Item #" A_Index " -> " A_LoopField, Acc_Error(AccError)
				if Acc_Error()
					throw Exception("Cannot access ChildPath Item", -1, "Item #" A_Index " -> " A_LoopField)
				return
			}
		Acc_Error(AccError)
		StringReplace, Cmd, Cmd, %A_Space%, , All
		properties.HasKey(Cmd)? Cmd:=properties[Cmd]:
		try {
			if (Cmd = "Location")
				AccObj.accLocation(ComObj(0x4003,&x:=0), ComObj(0x4003,&y:=0), ComObj(0x4003,&w:=0), ComObj(0x4003,&h:=0), ChildId)
			  , ret_val := "x" NumGet(x,0,"int") " y" NumGet(y,0,"int") " w" NumGet(w,0,"int") " h" NumGet(h,0,"int")
			else if (Cmd = "Object")
				ret_val := AccObj
			else if Cmd in Role,State
				ret_val := Acc_%Cmd%(AccObj, ChildID+0)
			else if Cmd in ChildCount,Selection,Focus
				ret_val := AccObj["acc" Cmd]
			else
				ret_val := AccObj["acc" Cmd](ChildID+0)
		} catch {
			ErrorLevel := """" Cmd """ Cmd Not Implemented"
			if Acc_Error()
				throw Exception("Cmd Not Implemented", -1, Cmd)
			return
		}
		return ret_val, ErrorLevel:=0
	}
	if Acc_Error()
		throw Exception(ErrorLevel,-1)
}

#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 )
}

Global n = % obj[A_Index - 1][2]
   
   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

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