Leonid Feclichev
Новичок
- Сообщения
- 3
- Репутация
- 1
Доброго времени суток!
Собственно для нужд понадобился скрипт для проверки баланса кошельков Qiwi. Не могу разобраться как скопировать значение баланса в текстовой документ. Бился долго, пересмотрел примеры, но так и не смог достичь результата. Само значение (100 баланс кошелька):
Также не смог разобраться как выйти из кошелька:
Буду рад любой помощи, сам скрипт:
Собственно для нужд понадобился скрипт для проверки баланса кошельков Qiwi. Не могу разобраться как скопировать значение баланса в текстовой документ. Бился долго, пересмотрел примеры, но так и не смог достичь результата. Само значение (100 баланс кошелька):
Код:
<div class="account_current_amount">
100
<span class="account_currency_RUB">Р
<span class="tick"></span>
</span>
</div>
Также не смог разобраться как выйти из кошелька:
Код:
<div class="logout">
<a href="#" data-action="logout">
Выйти
</a>
</div>
Буду рад любой помощи, сам скрипт:
Код:
#RequireAdmin
#include <IE.au3>
#include <MsgBoxConstants.au3>
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$telephone_1 = "телефон"
$telephone_2 = "телефон"
$telephone_password_1 = "пароль"
$telephone_password_2 = "пароль"
IE_Kill()
$oIE = _IECreate("https://www.qiwi.com")
WinSetState("[CLASS:IEFrame]", "", @SW_MAXIMIZE)
Local $i = 0
Do
$i = $i + 1
Start_1()
Start_2()
Until $i = 1
Exit
Func Start_1()
If StringInStr(_IEBodyReadHTML($oIE), ">Войти в мой кошелек</div>") > 0 Then
$oPhone = _IEGetObjById($oIE, "phone")
$oPassword = _IEGetObjByName($oIE, "password")
$oButtonLogin = _IETagNameGetCollection($oIE, "button", 0)
_IEFormElementSetValue($oPhone, $telephone_1)
_IEFormElementSetValue($oPassword, $telephone_password_1)
_IEAction($oButtonLogin, "click")
Sleep(5000)
EndIf
;~ Функция проверки и сохранения баланса кошелька в текстовой документ.
;~ Выход из кошелька.
EndFunc
Func Start_2()
If StringInStr(_IEBodyReadHTML($oIE), ">Войти в мой кошелек</div>") > 0 Then
$oPhone = _IEGetObjById($oIE, "phone")
$oPassword = _IEGetObjByName($oIE, "password")
$oButtonLogin = _IETagNameGetCollection($oIE, "button", 0)
_IEFormElementSetValue($oPhone, $telephone_2)
_IEFormElementSetValue($oPassword, $telephone_password_2)
_IEAction($oButtonLogin, "click")
Sleep(5000)
EndIf
;~ Функция проверки и сохранения баланса кошелька в текстовой документ. Дописать полученное значение после первого.
;~ Выход из кошелька.
EndFunc
Func IE_Kill()
TrayTip("Инфо", "Убиваем процессы IE", 5, 1)
WinMinimizeAll()
$PIDs = ProcessList('iexplore.exe')
For $i = 1 To $PIDs[0][0]
If ProcessExists($PIDs[$i][1]) Then ProcessClose($PIDs[$i][1])
Next
Sleep(5000)
EndFunc
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
TrayTip("Инфо", "Скрипт приостановлен", 50, 1)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc