Что нового

[Автоматизация] Автоматизация выписки счета в QIWI

vaf

Новичок
Сообщения
186
Репутация
2
Добрый день и всех с праздниками.
У меня такой вопрос. Возможно ли как то автоматизировать выписку счетов со своего QIWI кошелька, на другие кошельки ? Кроме как средствами эмуляции клавиатуры и мыши ?
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Ну да, можно. Вот примерно так:
Код:
#include <IE.au3>
Global $sUrl, $oIE
$sUrl = "https://qiwi.com/"
$oIE = _IECreate($sUrl)
If StringInStr(_IEBodyReadHTML($oIE), ">Войти в мой кошелек</div>") > 0 Then
$oPhone = _IEGetObjById($oIE, "phone")
$oPassword = _IEGetObjByName($oIE, "password")
$oButtonLogin = _IETagNameGetCollection($oIE, "button", 0)
_IEFormElementSetValue($oPhone, "+79123456789"); ваш номер телефона
_IEFormElementSetValue($oPassword, "superqwert"); ваш пароль
_IEAction($oButtonLogin, "click"); Войти
EndIf

$sUrl = "https://qiwi.com/payment/form.action?provider=99"
_IENavigate($oIE, $sUrl)
$oAccount = _IEGetObjById($oIE, "account")
$oAmountInteger = _IEGetObjByName($oIE, "amountInteger")
$oAmountFraction = _IEGetObjByName($oIE, "amountFraction")
$oExtraComment = _IEGetObjByName($oIE, "extra['comment']")
$oButtons = _IETagNameGetCollection($oIE, "button")
For $oButton In $oButtons
If StringInStr(_IEPropertyGet($oButton, "innerhtml"), "<span>Оплатить</span>") > 0 Then
$oButtonPay = $oButton
ExitLoop
EndIf
Next
_IEFormElementSetValue($oAccount, "+79048765432"); кому отправить деньги
_IEFormElementSetValue($oAmountInteger, "100"); сумма в рублях
_IEFormElementSetValue($oAmountFraction, "00"); копейки
_IEFormElementSetValue($oExtraComment, "Проверка: оплата из скрипта"); комментарий
_IEAction($oButtonPay, "click"); Оплатить
 
Автор
V

vaf

Новичок
Сообщения
186
Репутация
2
alex33 сказал(а):
Ну да, можно. Вот примерно так:
Код:
#include <IE.au3>
Global $sUrl, $oIE
$sUrl = "https://qiwi.com/"
$oIE = _IECreate($sUrl)
If StringInStr(_IEBodyReadHTML($oIE), ">Войти в мой кошелек</div>") > 0 Then
$oPhone = _IEGetObjById($oIE, "phone")
$oPassword = _IEGetObjByName($oIE, "password")
$oButtonLogin = _IETagNameGetCollection($oIE, "button", 0)
_IEFormElementSetValue($oPhone, "+79123456789"); ваш номер телефона
_IEFormElementSetValue($oPassword, "superqwert"); ваш пароль
_IEAction($oButtonLogin, "click"); Войти
EndIf

$sUrl = "https://qiwi.com/payment/form.action?provider=99"
_IENavigate($oIE, $sUrl)
$oAccount = _IEGetObjById($oIE, "account")
$oAmountInteger = _IEGetObjByName($oIE, "amountInteger")
$oAmountFraction = _IEGetObjByName($oIE, "amountFraction")
$oExtraComment = _IEGetObjByName($oIE, "extra['comment']")
$oButtons = _IETagNameGetCollection($oIE, "button")
For $oButton In $oButtons
If StringInStr(_IEPropertyGet($oButton, "innerhtml"), "<span>Оплатить</span>") > 0 Then
$oButtonPay = $oButton
ExitLoop
EndIf
Next
_IEFormElementSetValue($oAccount, "+79048765432"); кому отправить деньги
_IEFormElementSetValue($oAmountInteger, "100"); сумма в рублях
_IEFormElementSetValue($oAmountFraction, "00"); копейки
_IEFormElementSetValue($oExtraComment, "Проверка: оплата из скрипта"); комментарий
_IEAction($oButtonPay, "click"); Оплатить
Это как я понимаю перевод со своего кошелька на другой. А как именно выставить счет кому то ?
 
Верх