Что нового

[Сеть, интернет] Клик по тексту в IE,куча ошибок.

F4nT0m

Новичок
Сообщения
54
Репутация
2
Код:
#RequireAdmin
#include <file.au3>
#include <array.au3>
#include <ie.au3>

OnAutoItExitRegister("_Exit")
_Save()

;загружаем прокси
Dim $aProxies
If Not _FileReadToArray(@ScriptDir & "\proxy.txt", $aProxies) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

;загружаем сайты
Dim $aSites[1] = ["http://gamem1x.ucoz.com/"]

;создаем объект $oIE
$oIE = _IECreate ()

For $i = 1 To $aProxies[0]
    _ProxyChange($aProxies[$i])
    For $j = 0 To UBound($aSites) - 1
        $sURL = $aSites[$j]
		ConsoleWrite("Referer -> " & _IEPropertyGet($oIE,"yandex.ru") & @CRLF)
        _IENavigate($oIE, $sURL, 1)
    Next
Next

Exit


;тут клики по банерам.

;Меняем прокси
Func _ProxyChange($sProxy = '')
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxy)
EndFunc

;Сохраняем значения прокси
Func _Save()
    Global $sProxyEnable = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
    Global $sProxyServer = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 1)
EndFunc

;Загружаем значения прокси
Func _Load()
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $sProxyEnable)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxyServer)
EndFunc

;По выходу загружаем сохраненные настройки прокси
Func _Exit()
    _Load()
    MsgBox (0,0, "Вышли из программы")
    Exit
EndFunc

В этот код нужно добавить клики по банерам.
Сами банеры:

Их адреса:
1./DO.jpg
2./BG.gif
3./SF.jpg
4./DE.jpg
5./UR.gif
6./FA.gif
Пример перехода по картинкам:
Код:
#include <IE.au3> ; подключаем библиотеку для работы с InternetExplorer

$sUrl = 'http://dragcave.net' ; ссылка на страницу
$oIE = _IECreate($sUrl) ; открываем IE на нужной странице
$sSrc = '/layout/header.gif' ; в переменную пишем наш источник картинки

While 1 ; запуск бесконечного цикла
    _IEImgClick($oIE, $sSrc, 'src') ; сам клик по картинке
    Sleep(5000) ; спим 5 секунд
WEnd ; повторяем цикл

При этом надо чтобы кликало по всем банерам от 1 до 6,и только потом меняло прокси.
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Код:
#RequireAdmin
#include <file.au3>
#include <array.au3>
#include <ie.au3>

OnAutoItExitRegister("_Exit")
_Save()

;загружаем прокси
Dim $aProxies
$i=1
If Not _FileReadToArray(@ScriptDir & "\proxy.txt", $aProxies) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

;загружаем сайты
Dim $aSites[1] = ["http://yandex.by/yandsearch?text=gamem1x-%D0%BC%D0%B8%D0%BA%D1%81%D1%83%D0%B9+%D0%B8%D0%B3%D1%80%D1%8B+%D1%81+%D0%BD%D0%B0%D0%BC%D0%B8!|%D1%81%D0%BA%D1%83%D1%87%D0%B0%D0%B5%D1%88%D1%8C%3F...%D0%BD%D0%B5+%D1%81%D0%BA%D1%83%D1%87%D0%B0%D0%B9+%D0%B7%D0%B0%D1%85%D0%BE%D0%B4%D0%B8+%D0%B8+%D0%B8%D0%B3%D1%80%D0%B0%D0%B9!&clid=46510&tld=by&lr=157"]

;создаем объект $oIE
$oIE = _IECreate ()

For $i = 1 To $aProxies[0]
    _ProxyChange($aProxies[$i])
    For $j = 0 To UBound($aSites) - 1
        $sURL = $aSites[$j]
        _IENavigate($oIE, $sURL, 1)
		_IELinkClickByText($oIE,"gamem1x.ru")
		$i=$i+1
    Next
Next

Exit
Select
case $i = 1  $sSrc = '/DO.jpg'
case $i = 1 $sSrc = '/BG.gif'
case $i = 3 $sSrc = '/SF.jpg'
case $i = 4 $sSrc = '/DE.jpg'
case $i = 5 $sSrc = '/UR.gif'
case $i = 6 $sSrc = '/FA.gif'
Case Else $i=1
EndSelect
_IEImgClick($oIE, $sSrc, 'src')
Sleep(15000)

;тут клики по банерам.

;Меняем прокси
Func _ProxyChange($sProxy = '')
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxy)
EndFunc

;Сохраняем значения прокси
Func _Save()
    Global $sProxyEnable = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
    Global $sProxyServer = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 1)
EndFunc

;Загружаем значения прокси
Func _Load()
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $sProxyEnable)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxyServer)
EndFunc

;По выходу загружаем сохраненные настройки прокси
Func _Exit()
    _Load()
    MsgBox (0,0, "Вышли из программы")
    Exit
EndFunc

Данная радость должна должна переходить на яндекс,кликать по gamem1x.ru(не кликает),спать 15 секунд,менять прокси,повторять всё это.
Но она просто обновляет страницу,причём очень быстро.
В логе пишет:
--> IE.au3 V2.4-0 Warning from function _IELinkClickByText, $_IEStatus_NoMatch
Помогите!
Модераторы,пожалуйста,не переносите тему,этот раздел хоть кто-то читает.
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Модераторы я смотрю только переносить и умеют...
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Re: [Автоматизация] Требуется добавление клика по картинкам.

ап
 

axlwor

Скриптер
Сообщения
657
Репутация
147
потому что ответ есть в справке
Функция показана. ошибка показана. в справке написано что это значит
зачем его еще раз здесь писать?
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
Re: [Автоматизация] Требуется добавление клика по картинкам.

F4nT0m [?]
В этот код нужно добавить клики по банерам.
При этом надо чтобы кликало по всем банерам от 1 до 6,и только потом меняло прокси.
И что значит в этом контексте
[?]
Кстати, в другой своей аналогичной теме, вы сетуете на действия модераторов ;)
Однако задайте себе вопрос, а что вы сделали для достижения своей цели?!
Тут на форуме примеров по вашей ситуации куча, и маленькая тележка. Пользуйтесь поиском.

IMHO сначала вам не помешало бы посетить эту тему.
Скорее всего, если вам нужно всё сразу и быстро, то лучше писать в раздел Стол заказов.
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Re: [Автоматизация] Требуется добавление клика по картинкам.

В стол заказов я писал(http://autoit-script.ru/index.php/topic,7812.msg53207.html#msg53207).
Поиском пользовался,отчасти помогло,но насколько я понял у Вас есть время,Вы "шарите" в AI...
Не могли бы Вы помочь?
Например,готовым исходником :smile:
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
F4nT0m [?]
Модераторы я смотрю только переносить и умеют...
а еще они не любят, когда их заставляют делать это чаще обычного.
темы объединены в одну, автору предупреждение. настоящее, не китайское. под пристальным наблюдением.

на будущее, порядок форума не может подстраиваться под твои сиюминутные нужды. если какой-то раздел более посещаем чем другой, это не означает, что надо создавать в этом разделе тему не по регламенту. ты же не подходишь к милиционеру полицейскому с просьбой не арестовывать тебя за ограбление магазина, только потому что там много денег, а работать не хочется.

я промолчу про дублирование тем.
 

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
658
OffTopic:
автору предупреждение. настоящее, не китайское
ты же не подходишь к милиционеру полицейскому с просьбой не арестовывать тебя за ограбление магазина, только потому что там много денег, а работать не хочется.
:laugh: :laugh: :laugh: :rofl: :rofl: :rofl:
 
Верх