Sergey2210
Осваивающий
- Сообщения
- 263
- Репутация
- 31
Версия AutoIt: 3.
Описание: Здравствуйте,помогите разобраться как получить контакт лист с сервера Mail.ru
Примечания: В UDF я использовал 2 функции,первая отправка SMS через сервер Mail.ru и вторая отправка сообщения контакту по примеру первого,сам исходник я взял у
Renz,за что ему большое спасибо
Описание: Здравствуйте,помогите разобраться как получить контакт лист с сервера 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