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

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

2015-08-23T23:28:31Z

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

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

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

2015-08-22T11:12:59Z

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

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

2015-08-22T11:06:45Z

После

oSkype.Client.OpenMessageDialog(ContactName, "")

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

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

2015-08-22T09:59:31Z

Если не смущает активация окна, в 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

2015-08-21T21:43:04Z

Думаю никак, со 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

2015-08-21T19:11:51Z

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

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

2015-08-21T18:07:33Z

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

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

2015-08-21T16:47:37Z

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

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

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

2015-08-21T16:15:46Z

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

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

2015-08-21T16:14:00Z

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

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

2015-08-21T16:11:49Z

х32 запускай.

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

2015-08-21T16:09:10Z

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

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

2015-08-21T16:04:47Z

teadrinker пишет:

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

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

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

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

2015-08-21T16:03:14Z

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

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

2015-08-21T15:54:34Z

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

Как и у тебя.

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

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