Как получить контакт лист с сервера Mail.ru

[Sergey2210]

Версия AutoIt: 3.

Описание: Здравствуйте,помогите разобраться как получить контакт лист с сервера Mail.ru

Примечания: В UDF я использовал 2 функции,первая отправка SMS через сервер Mail.ru и вторая отправка сообщения контакту по примеру первого,сам исходник я взял у
Renz,за что ему большое спасибо

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <mra_udf.au3>

Global $My_login  = "" ; Login: [email protected]
Global $My_pass   = ""      ; Password
Global $mail_send = "" ; mail to send

$hForm = GUICreate("Mail.ru Агент", 290, 65)
$Text = GUICtrlCreateInput("текст", 0, 0, 140, 20)
$numb = GUICtrlCreateInput("+79XXXXXXXXX", 150, 0, 140, 20)
$Send = GUICtrlCreateButton("Отправить", 30, 30, 80, 25)
$SMS = GUICtrlCreateButton("SMS", 180, 30, 80, 25)
GUISetState()
ConnectServer($My_login,$My_pass)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
	    Case $GUI_EVENT_CLOSE
            Exit
		Case $Send
			$read = GUICtrlRead($Text)
            MessageSend($My_login, $My_pass, $mail_send, $read)
		Case $SMS
			$read = GUICtrlRead($Text)
			$mobile = GUICtrlRead($numb)
            SMSSend($My_login, $My_pass, $mobile, $read)			
	EndSwitch
WEnd

 

[Arei]

Интересный вопрос.