ZloiKotFAQ
Новичок
- Сообщения
- 2
- Репутация
- 0
нужно было, что бы программа бот из текст файла брала по очереди логин майла и пароль, открывала браузер на майл.ру, логилась, создавала "мой мир" проходила по определённой ссылки ставила себе в мой мир игру, нажимала играть, создать игрока, и выходила, и так всё по кругу но с разными логинами и пасами......
написал я это (не без помощи) для интернет эксплорера (сам я юзаю либо оперу либо фаерфокс), почти до конца написал, и тут я вижу что ишак не грузит ту флэш игру О_о просит обновить флэш плеер, обнавляю тажа фигня =( другие игры майла работают а эта нет ((, на других компах тоже проверял, Alpha Empire - глобальная стратегия" - название той игры, пришлось переделовать скрипт на fierfox, но чтото не выходит, инфы мало, да и вообще... ниже приведу код IE и код FF который надо исправить
код для ишака(рабочий):
и код для лисы:
помогииииииииите
написал я это (не без помощи) для интернет эксплорера (сам я юзаю либо оперу либо фаерфокс), почти до конца написал, и тут я вижу что ишак не грузит ту флэш игру О_о просит обновить флэш плеер, обнавляю тажа фигня =( другие игры майла работают а эта нет ((, на других компах тоже проверял, Alpha Empire - глобальная стратегия" - название той игры, пришлось переделовать скрипт на fierfox, но чтото не выходит, инфы мало, да и вообще... ниже приведу код IE и код FF который надо исправить
код для ишака(рабочий):
Код:
#include <IE.au3> ; подключили библиотеку из автоита
#include <Array.au3>
Func Input() ;создаём массив лог/пас
Global $aLogin[1]
Global $aPassw[1]
$fFile = FileOpen(@ScriptDir & '\akki8') ; переменная открывает файл, @ScriptDir - универсальный путь к файлу
$sFileContent = FileRead($fFile) ; прочитать
$aLogin = StringRegExp($sFileContent, '([A-z\d]+?)@', 3) ; [A-z\d] -
$aPassw = StringRegExp($sFileContent, ';(.+)', 3)
FileClose($fFile)
EndFunc
Func Login(ByRef $sLogin, ByRef $sPass)
ConsoleWrite('запустили логин'&@CRLF)
$oForm = _IEFormGetObjByName($oIE, 'Auth') ; поймали форму
ConsoleWrite('вводим логин'&@CRLF)
$oMail = _IEFormElementGetObjByName($oForm, 'Login') ; получили элемент с именем Login
_IEFormElementSetValue($oMail, $sLogin) ; установили в объекте oMail значение sLogin,
ConsoleWrite('вводим пароль'&@CRLF)
$oPass = _IEFormElementGetObjByName($oForm, 'Password') ;тоже самое
_IEFormElementSetValue($oPass, $sPass)
ConsoleWrite('нажимаем ентер'&@CRLF)
_IEFormSubmit($oForm, 0) ;нажать КНОПУ (ЕНТЕР)
Sleep(5000)
ConsoleWrite('нажали'&@CRLF)
EndFunc
Func LaW()
ConsoleWrite('переход по ссылки'&@CRLF)
_IENavigate($oIE, "http://r.mail.ru/cln3739/my.mail.ru/my/reg?from_commercial=4")
ConsoleWrite('перешли'&@CRLF)
Sleep(5000)
ConsoleWrite('создаём мой мир'&@CRLF)
$oForm = _IEGetObjByName($oIE, 'saveALLdata')
_IEAction ($oForm, "click")
Sleep(3000)
ConsoleWrite('переход до приложения'&@CRLF)
_IENavigate($oIE, "http://my.mail.ru/apps/525364?ref=inst10934642558432516597")
Sleep(3000)
ConsoleWrite('добавляем приложение'&@CRLF)
_IELinkClickByText($oIE, 'добавить в Мой Мир')
; Sleep(5000)
; MouseClick("left", 650,660)
EndFunc
#region РАБОТА ПРОГРАММЫ
RegisterEditForIE('yes')
ConsoleWrite('создаем массив'&@CRLF)
Input()
ConsoleWrite('создаем осла'&@CRLF)
$oIE = _IECreate('www.mail.ru', 0, 1) ;открыли страницу в осле по адрессу
Login($aLogin[0], $aPassw[0])
ConsoleWrite('запускам пользователя'&@CRLF)
LaW() ; вызываем функцию лаф с параметрами
; _IELinkClickById($oIE, 'jobForm')
; $oForm = _IEFormGetObjByName($oIE, "saveALLdata")
;_IEFormSubmit($oForm, 1)
;~ For $i=0 To UBound($aLogin) ;цикл
;~ Next
;_IEQuit($oIE)
#endregion
EndFunc
и код для лисы:
Код:
#include <FF.au3> ; подключили библиотеку из автоита
#include <Array.au3>
Func Input() ;создаём массив лог/пас
Global $aLogin[1]
Global $aPassw[1]
$fFile = FileOpen(@ScriptDir & '\akki8') ; переменная открывает файл, @ScriptDir - универсальный путь к файлу
$sFileContent = FileRead($fFile) ; прочитать
$aLogin = StringRegExp($sFileContent, '([A-z\d]+?)@', 3) ; [A-z\d] -
$aPassw = StringRegExp($sFileContent, ';(.+)', 3)
FileClose($fFile)
EndFunc
Func Login(ByRef $sLogin, ByRef $sPass)
ConsoleWrite('запустили логин'&@CRLF)
$oForm = _FFObjGet($oFF, "Auth") ; поймали форму
MsgBox(0,'T_T блять, опять кака-то ху@ня#@$%@#$%#$%#$&%$&%#$%&&*#&$%#&&',@error)
ConsoleWrite('вводим логин'&@CRLF)
$oMail = _FFXPath($oForm, 'Login') ; получили элемент с именем Login
_FFSetValueById($oMail, $sLogin) ; установили в объекте oMail значение sLogin,
ConsoleWrite('вводим пароль'&@CRLF)
$oPass = _FFXPath($oForm, 'Password') ;тоже самое
_FFSetValueByName($oPass, $sPass)
ConsoleWrite('нажимаем ентер'&@CRLF)
_FFFormSubmit($oForm, 0) ;нажать КНОПУ (ЕНТЕР)
Sleep(5000)
ConsoleWrite('нажали'&@CRLF)
EndFunc
Func LaW()
ConsoleWrite('переход по ссылки'&@CRLF)
_FFOpenURL($oFF, "http://r.mail.ru/cln3739/my.mail.ru/my/reg?from_commercial=4")
ConsoleWrite('перешли'&@CRLF)
Sleep(5000)
ConsoleWrite('создаём мой мир'&@CRLF)
$oForm = _FFXPath($oFF, 'saveALLdata')
_FFClick('Auth', 'button')
Sleep(3000)
ConsoleWrite('переход до приложения'&@CRLF)
_FFOpenURL($oFF, "http://my.mail.ru/apps/525364?ref=inst10934642558432516597")
Sleep(3000)
ConsoleWrite('добавляем приложение'&@CRLF)
_IELinkClickByText($oFF, 'добавить в Мой Мир')
; Sleep(5000)
; MouseClick("left", 650,660)
EndFunc
#region РАБОТА ПРОГРАММЫ
ConsoleWrite('создаем массив'&@CRLF)
Input()
ConsoleWrite('фаер фокс'&@CRLF)
_FFConnect()
ConsoleWrite('проверка'&@CRLF)
_FFStart('www.mail.ru')
ConsoleWrite('создаем браузер'&@CRLF)
$oFF = _FFStart('www.mail.ru') ;открыли страницу вбраузере по адрессу
Login($aLogin[0], $aPassw[0])
ConsoleWrite('запускам пользователя'&@CRLF)
LaW() ; вызываем функцию лаф с параметрами
; _IELinkClickById($oIE, 'jobForm')
; $oForm = _IEFormGetObjByName($oIE, "saveALLdata")
;_IEFormSubmit($oForm, 1)
;~ For $i=0 To UBound($aLogin) ;цикл
;~ Next
;_IEQuit($oIE)
#endregion
помогииииииииите