Серый форум — AHK: Создание Com объектов в цикле

Re: AHK: Создание Com объектов в цикле

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

Да, его незачем получать каждый раз.

Re: AHK: Создание Com объектов в цикле

null@example.com (Malcev) — Sun, 23 Aug 2015 21:24:23 +0000

То есть правильней ComObjCreate выносить за цикл, да?
Например, как в моем примере - отправить одно и то же сообщение получателям от "1" до бесконечности?

Re: AHK: Создание Com объектов в цикле

null@example.com (serzh82saratov) — Sun, 23 Aug 2015 20:47:09 +0000

Ну ComObjCreate можно вынести за цикл, а остальное зависит от задачи, которой нет.
Если в данном примере надо отправить нескольким контактам одинаковое сообщение, то наверное так:


oSkype := ComObjCreate("Skype4COM.Skype")   
oMembers := ComObjCreate("Skype4COM.UserCollection") 
 
For i, ContactName in ["А","Б","В","Г"] 
   oMembers.Add(oSkype.User(ContactName))
   
oChat := oSkype.CreateChatMultiple(oMembers)  
oChat.OpenWindow  ; показать окно, необязательно 
oChat.Topic := "Skype is cool"
oMsg := oChat.SendMessage("Greetings!")
oChat.Leave

AHK: Создание Com объектов в цикле

null@example.com (Malcev) — Sun, 23 Aug 2015 19:56:23 +0000

Как правильней сделать?
Так:

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

Или так?


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