Серый форум — AHK: Отправка сообщения через Skype

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

null@example.com (serzh82saratov) — Sun, 23 Aug 2015 23:28:31 +0000

Видимо справка PDF не полная, CreateChatWith в ней нет, очень коротко получается.

oSkype := ComObjCreate("Skype4COM.Skype")     
oChat := oSkype.CreateChatWith(ContactName)  
oChat.SendMessage("Greetings!")
oChat.OpenWindow

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

null@example.com (serzh82saratov) — Sat, 22 Aug 2015 11:12:59 +0000

Наверное компактный режим просмотра, тогда 1 вариант.

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

null@example.com (teadrinker) — Sat, 22 Aug 2015 11:06:45 +0000

После

oSkype.Client.OpenMessageDialog(ContactName, "")

у меня диалог открывается в новом окне TConversationForm, так что дальнейший код не работает.

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

null@example.com (serzh82saratov) — Sat, 22 Aug 2015 09:59:31 +0000

Если не смущает активация окна, в 7 версии можно так:

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

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

null@example.com (serzh82saratov) — Fri, 21 Aug 2015 21:43:04 +0000

Думаю никак, со ScriptControl например нет решений.

В шапку таких скриптов, чтобы не создавть ярлыков, можно добавлять подобное:

If (!A_IsCompiled && A_PtrSize = 8) {
    Run, % SubStr(A_AhkPath, 1, InStr(A_AhkPath, "\", 0, 0)) "AutoHotkeyU32.exe " A_ScriptFullPath
    ExitApp
}

Кстати данная ситуация в дополнение к ответу на твой вопрос.

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

null@example.com (Malcev) — Fri, 21 Aug 2015 19:11:51 +0000

Да, на шестой отправляет сообщение.
Только как на 64 бит автохотки создавать 32 бит объекты?

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

null@example.com (serzh82saratov) — Fri, 21 Aug 2015 18:07:33 +0000

Примерно так должно работать:

ContactName =  

1::  
oSkype := ComObjCreate("Skype4COM.Skype")   
oSkypeConnect := ComObjConnect(oSkype, "Skype_")
If !oSkype.Client.IsRunning 
    oSkype.Client.Start()
oMembers := ComObjCreate("Skype4COM.UserCollection")
oMembers.Add(oSkype.User(ContactName)) 
oChat := oSkype.CreateChatMultiple(oMembers) 
    oChat.OpenWindow  ; показать окно, необязательно
oMsg := oChat.SendMessage("Greetings!")   
oChat.Leave  
MsgBox Leave
 
Skype_AttachmentStatus(aStatus) { 
    Global oSkype  
    MsgBox % oSkype.Convert.AttachmentStatusToText(aStatus)  
    If (aStatus = oSkype.Convert.TextToAttachmentStatus("AVAILABLE"))
        oSkype.Attach()   
}
Return

но не судьба теперь отправить так сообщения - https://support.skype.com/ru/faq/FA1238 … ut-na-nego. На 6 версии наверное должно.

У нас тут уже давно это было - http://forum.script-coding.com/viewtopic.php?id=6113. В принципе на 6 ещё проще должно быть:

oSkype := ComObjCreate("Skype4COM.Skype")   
oMembers := ComObjCreate("Skype4COM.UserCollection")
oMembers.Add(oSkype.User(ContactName)) 
oChat := oSkype.CreateChatMultiple(oMembers) 
    oChat.OpenWindow  ; показать окно, необязательно 
oMsg := oChat.SendMessage("Greetings!")

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

null@example.com (Flasher) — Fri, 21 Aug 2015 16:47:37 +0000

serzh82saratov
Вторую ссылку видел. А вот первая не качает. Переложил бы кто.

Add: Ладно, уже не надо. Забрал с Архива.

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

null@example.com (serzh82saratov) — Fri, 21 Aug 2015 16:15:46 +0000

До кучи вот описание - http://users.skynet.be/fa258239/bestand … pe4com.pdf.
Вот примеры скриптов - https://www.autoitscript.com/forum/topi … pe4comlib/, что успел проверить, всё работает.

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

null@example.com (teadrinker) — Fri, 21 Aug 2015 16:14:00 +0000

Да, на x32 создался.

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

null@example.com (serzh82saratov) — Fri, 21 Aug 2015 16:11:49 +0000

х32 запускай.

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

null@example.com (teadrinker) — Fri, 21 Aug 2015 16:09:10 +0000

Нет, у меня всё равно объект не создаётся.

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

null@example.com (Flasher) — Fri, 21 Aug 2015 16:04:47 +0000

teadrinker пишет:

У меня при попытке создать объект

Похоже, сейчас без второго параметра нужно либо "Skype4COM.Skype.1".

Скачал библиотеку, зарегил. Проблем с отправкой нет.

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

null@example.com (teadrinker) — Fri, 21 Aug 2015 16:03:14 +0000

Хм, у меня после нажатия "Контроль доступа других программ к Skype" появляется пустое окно с неактивными кнопками:

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

null@example.com (serzh82saratov) — Fri, 21 Aug 2015 15:54:34 +0000

А так что выдаёт?

Как и у тебя.

Да это полезно - http://devdelphi.ru/?p=1045
Теперь звонит, причём моментально!!!

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