Что нового

Варианты сбора информации.

saraconor

Новичок
Сообщения
387
Репутация
3
подскажите, какие есть еще способы получить текстовые данные от предмета воздействия?
помимо:
Код:
#include <Array.au3>
sleep(500)
$text= WinGetText("[ACTIVE]", "")
msgbox(0,"",$text)

позволяющего получить некоторую информацию об открытом документе.
К примеру возьмем скайп, как прочесть последнее входящее сообщение?
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Попробуйте так, получает активную переписку:
Код:
$oSkype = ObjCreate("Skype4COM.Skype")
If Not $oSkype.Client.IsRunning Then
	$oSkype.Client.Start()
EndIf
While 1
	If $oSkype.CurrentUserStatus = $oSkype.Convert.TextToUserStatus("ONLINE") Then
		ExitLoop
	Else
		$oSkype.ChangeUserStatus($oSkype.Convert.TextToUserStatus("ONLINE"))
	EndIf
	Sleep(1000)
WEnd
For $oChat In $oSkype.ActiveChats
	$msgstring=$oChat.FriendlyName
Next
$sMess=StringSplit($msgstring,"|",2)
MsgBox(0,"Message","Текущая переписка:"&@CRLF&"С кем : "&$sMess[0]&@CRLF&"Текст активной переписки : "&$sMess[1])

Skype в окне попросит вас о взаимодествии со скриптом, для работы нужно принять.
Собрал, точнее выковырял отсюда: Skype4ComExamples
Еще библиотека от того же автора вроде бы есть, не пробовал: Skype4Com UDF Library
 
Автор
S

saraconor

Новичок
Сообщения
387
Репутация
3
Ок. обязательно попробую, а всетаки есть способы собирать информацию об открытом приложении? Вроде бы чтение памяти?
как с помощью NomadMemory.au3 прочитать последнее сообщение в скайпе?

И кстати ваш пример не работает, выдает такую ошибку:
If Not $oSkype.Client.IsRunning Then
If Not $oSkype^ ERROR

ктонибудь, помогите
людииии, помогите!!
 
Верх