AHK: Отправка сообщения через Skype

#SingleInstance Force
#Persistent 
#NoEnv   
#UseHook 
DllCall("LoadLibrary","Str","oleacc","Ptr") 
ContactName = Name  ;  оригинальное имя контакта, может отличатся от отображаемого в списке 

1:: 
    Message = My Message`n%A_TickCount%`n-----------
    WinExist("ahk_class tSkMainForm ahk_exe Skype.exe")
    ControlGet, hList, Hwnd,, TConversationsControl1
    Acc := Acc__NeedChildren(Acc__ObjectFromWindow(hList), 2)  
    Loop % Acc.accChildCount - 1
        If InStr(Acc.accName(A_Index + 1), "`, " ContactName "`,")
        { 
            Acc.accSelect(3, A_Index + 1)
            ControlSend, , {Enter}, ahk_id %hList%
            WinActivate
            WinWaitActive, , , 1 
            If ErrorLevel
                Break
            WinGet, Controls, ControlList 
            RegExMatch(Controls, ".*TChatEntryControl(\d+)", m)
            ControlSetText, % "TChatRichEdit" m1, %Message%
            ControlSend, % "TChatEntryControl" m1, {enter}
            Break
        }
    Return
    
Acc__NeedChildren(Acc, Index) {  
    if DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int",0, "Int", Index, "Ptr",VarSetCapacity(varChildren, Index*(8+2*A_PtrSize),0)*0+&varChildren, "Int*", Index)=0 {
        Loop %Index%
            i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren, i), Obj := (NumGet(varChildren,i-8)=9 ? ComObj(9,ComObjQuery(child, "{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1) : child), NumGet(varChildren,i-8)=9 ? ObjRelease(child) : 0
        Return Obj
    }
}

Acc__ObjectFromWindow(hWnd, idObject = 0) { 
    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)
} 

#SingleInstance Force
#Persistent 
#NoEnv   
#UseHook 
DllCall("LoadLibrary","Str","oleacc","Ptr") 
ContactName = Name  ;  оригинальное имя контакта, может отличатся от отображаемого в списке 

1:: 
    Message = My Message`n%A_TickCount%`n-----------
    WinExist("ahk_class tSkMainForm ahk_exe Skype.exe")
    ControlGet, hList, Hwnd,, TConversationsControl1
    Acc := Acc__NeedChildren(Acc__ObjectFromWindow(hList), 2)  
    Loop % Acc.accChildCount - 1
        If InStr(Acc.accName(A_Index + 1), "`, " ContactName "`,")
        { 
            Acc.accSelect(3, A_Index + 1)  
            ControlSend, , {Down}{Up}, ahk_id %hList%  
            Acc.accSelect(3, A_Index + 1) 
            WinGet, Controls, ControlList 
            RegExMatch(Controls, ".*TChatRichEdit(\d+)", m)
            ControlSetText, % "TChatRichEdit" m1, %Message%
            ControlSend, % "TChatRichEdit" m1, {LCtrl Down}{Enter}{LCtrl Up}
            Break
        }
    Return
    
Acc__NeedChildren(Acc, Index) {  
    if DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int",0, "Int", Index, "Ptr",VarSetCapacity(varChildren, Index*(8+2*A_PtrSize),0)*0+&varChildren, "Int*", Index)=0 {
        Loop %Index%
            i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren, i), Obj := (NumGet(varChildren,i-8)=9 ? ComObj(9,ComObjQuery(child, "{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1) : child), NumGet(varChildren,i-8)=9 ? ObjRelease(child) : 0
        Return Obj
    }
}

Acc__ObjectFromWindow(hWnd, idObject = 0) { 
    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)
} 

run, skype:%SkypeName%?chat

DetectHiddenWindows, On

PostMessage, 0x111, 172, 0, , ahk_class tSkMainForm    ; Переключение с вкладки "последние" на "контакты"

    Acc := Acc__NeedChildren(Acc__ObjectFromWindow(hList), 2)  

    Acc := Acc__NeedChildren(Acc__ObjectFromWindow(hList), 3)  

Acc := Acc__NeedChildren(Acc__ObjectFromWindow(hList), 2)  
if (Acc.accName(1) != "Весь список контактов")
   SendMessage, 0x0000bd04, 0x00000031, 0x20020001

With CreateObject("Skype4COM.Skype", "Skype_")
  If Not .Client.IsRunning Then .Client.Start
  .SendMessage "SkypeName", "Hello!"
End With

PostMessage, 0x111, 172, 0

#SingleInstance Force
#Persistent 
#NoEnv   
#UseHook 
DllCall("LoadLibrary","Str","oleacc","Ptr") 
ContactName = Name  ;  оригинальное имя контакта, может отличатся от отображаемого в списке  

1:: 
    Message = My Message`n%A_TickCount%`n-----------
    WinExist("ahk_class tSkMainForm ahk_exe Skype.exe")
    ControlGet, hList, Hwnd,, TConversationsControl1  
    AccList := Acc__ObjectFromWindow(hList)
    Acc := Acc__NeedChildren(AccList, 1) 
    If Acc.accRole(1) = 30 
        Acc.accDoDefaultAction(1) 
    Acc := Acc__NeedChildren(AccList, 2)  
    Loop % Acc.accChildCount - 1
        If InStr(Acc.accName(A_Index + 1), "`, " ContactName "`,")
        {  
            Acc.accSelect(3, A_Index + 1)  
            ControlSend, , {Down}{Up}, ahk_id %hList%   
            Acc.accSelect(3, A_Index + 1)
            WinGet, Controls, ControlList 
            RegExMatch(Controls, ".*TChatRichEdit(\d+)", m)
            ControlSetText, % "TChatRichEdit" m1, %Message%
            ControlSend, % "TChatRichEdit" m1, {LCtrl Down}{Enter}{LCtrl Up}
            Break
        }
    Return 
    
Acc__NeedChildren(Acc, Index) {  
    if DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int",0, "Int", Index, "Ptr",VarSetCapacity(varChildren, Index*(8+2*A_PtrSize),0)*0+&varChildren, "Int*", Index)=0 {
        Loop %Index%
            i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren, i), Obj := (NumGet(varChildren,i-8)=9 ? ComObj(9,ComObjQuery(child, "{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1) : child), NumGet(varChildren,i-8)=9 ? ObjRelease(child) : 0
        Return Obj
    }
}

Acc__ObjectFromWindow(hWnd, idObject = 0) { 
    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)
} 

MsgBox, % IsObject(ComObjCreate("Skype4COM.Skype", "Skype_"))

oSkype := ComObjCreate("Skype4COM.Skype")
oSkype.PlaceCall("echo123")

MsgBox, % IsObject(ComObjCreate("Skype4COM.Skype", "Skype_"))

ContactName =  
oSkype := ComObjCreate("Skype4COM.Skype")    

1::   
    oSkype.Client.OpenMessageDialog(ContactName, "Message")   
    Send, {LCtrl Down}{Enter}{LCtrl Up}
    Return

ContactName =  

1::
    If !oSkype
        oSkype := ComObjCreate("Skype4COM.Skype")    
    If !oSkype.Client.IsRunning 
        oSkype.Client.Start()
    While !oSkype.Client.IsRunning
        Sleep 10  
    oSkype.Client.OpenContactsTab()
    oSkype.Client.OpenMessageDialog(ContactName, "")
    WinExist("ahk_class tSkMainForm ahk_exe Skype.exe")
    WinGet, Controls, ControlList 
    RegExMatch(Controls, ".*TChatRichEdit(\d+)", m)
    ControlSetText, % "TChatRichEdit" m1, Message
    ControlSend, % "TChatRichEdit" m1, {LCtrl Down}{Enter}{LCtrl Up}
    Return