Что нового

перевод кода из Iexplorer в Firefox

ZloiKotFAQ

Новичок
Сообщения
2
Репутация
0
нужно было, что бы программа бот из текст файла брала по очереди логин майла и пароль, открывала браузер на майл.ру, логилась, создавала "мой мир" проходила по определённой ссылки ставила себе в мой мир игру, нажимала играть, создать игрока, и выходила, и так всё по кругу но с разными логинами и пасами......

написал я это (не без помощи) для интернет эксплорера (сам я юзаю либо оперу либо фаерфокс), почти до конца написал, и тут я вижу что ишак не грузит ту флэш игру О_о просит обновить флэш плеер, обнавляю тажа фигня =( другие игры майла работают а эта нет ((, на других компах тоже проверял, 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


помогииииииииите
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5 379
Репутация
2 713
Re: [Автоматизация] люди ХЕЛП, БОТа из IE в FF

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Как правильно называть темы

"люди ХЕЛП, БОТа из IE в FF " - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор форума.
 
Верх