Собственно вот бот
бот рабочий, прокликивает ссылки(копейки зачисляются на ваш акк) но... есть одно но На этом буксе есть "оранжевые" ссылки, проценты от которых должны зачислятся вашему рефереру, но при прокликивании оных ссылок ботом, рефереру они не засчитываются.
Вопрос в том как букс вычисляет этого бота? и как его изменить что бы букс соответственно его не смог вычислить?
Подозреваю что бота выдает запуск скрипта, а именно эти строчки
бот рабочий, прокликивает ссылки(копейки зачисляются на ваш акк) но... есть одно но На этом буксе есть "оранжевые" ссылки, проценты от которых должны зачислятся вашему рефереру, но при прокликивании оных ссылок ботом, рефереру они не засчитываются. Вопрос в том как букс вычисляет этого бота? и как его изменить что бы букс соответственно его не смог вычислить?
Код:
#include <IE.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <file.au3>
#NoTrayIcon
const $pp = "\neobux.txt"
dim $id[1],$num[1],$cash[1],$href[1],$image[1],$temp_mass[1]
dim $c_click,$in
HotKeySet("+{esc}", "esc")
If not FileExists(@ScriptDir & $pp) Then
_FileCreate(@ScriptDir & $pp)
msgbox(0,"","Cоздан файл для логина и пароля "& @CRLF & @ScriptDir & $pp)
Exit
EndIf
_FileReadToArray(@ScriptDir & $pp,$temp_mass)
if $temp_mass[0] < 1 Then
msgbox(0,"","Введите логина и пароль в файл" & @CRLF & "Первоя строка Логи" & @CRLF & "Вторая строка Пароль"& @CRLF & @ScriptDir & $pp)
Exit
EndIf
_FileReadToArray(@ScriptDir & $pp,$temp_mass)
$ParentWin = GUICreate("", 1, 1)
GUISetState(@SW_HIDE, $ParentWin)
$Form1 = GUICreate("NeobuxBot v 1.0", 1200, 700, 92, 24,BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS),BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE),$ParentWin)
$oIE = ObjCreate("Shell.Explorer.2")
$oIE2 = ObjCreate("Shell.Explorer.2")
$GUIActiveX = GUICtrlCreateObj($oIE, 200, 0, 1015, 300)
$GUIActiveX = GUICtrlCreateObj($oIE2, 0, 310, 1020, 400)
$Button1 = GUICtrlCreateButton("Отправить", 107, 90, 80, 21, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 6, 90, 100, 21)
$Label5 = GUICtrlCreateLabel("", 8, 5, 150, 17)
GUISetState(@SW_SHOW)
_IENavigate($oIE,"https://www.neobux.com")
$sText = _IEBodyReadText ($oIE)
if StringInStr($sText,$temp_mass[1]) = 0 then
while 1
_IENavigate($oIE,"https://www.neobux.com/m/l/")
$oForms = _IEFormGetCollection ($oIE,0)
If @error Then
if msgbox(4+32,"Ошибка","Не могу зайти на сайт, проверьте подключение к Интернету" & @CRLF & " Попробывать еще раз?" ) = 7 Then
Exit
EndIf
Else
ExitLoop
EndIf
WEnd
$oQuery = _IEFormElementGetCollection ($oForms, 0) ;login
_IEFormElementSetValue ($oQuery, $temp_mass[1])
$oQuery = _IEFormElementGetCollection ($oForms, 1) ;pass
_IEFormElementSetValue ($oQuery, $temp_mass[2])
_IENavigate($oie2,"https://img.neobux.com/cpt2/")
ControlFocus($form1,"",$Input1)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then exit
if $msg = $button1 then
$oQuery = _IEFormElementGetCollection ($oForms, 3) ;pass
_IEFormElementSetValue ($oQuery, GUICtrlread($Input1))
sleep(1000)
_IEFormSubmit($oForms)
_IELoadWait($oIE)
ExitLoop
EndIf
Wend
EndIf
while 1
_IENavigate($oIE,"http://www.neobux.com/m/v/")
GUICtrlSetData($label5,"Проверка наличия ссылок!!!")
for $i = 1 to $cash[0]
_ArrayDelete( $num,$i)
_ArrayDelete( $cash,$i)
_ArrayDelete( $href,$i)
Next
$num[0] = ""
$cash[0] = ""
$href[0]= ""
$lm = proverka()
if $lm = 1 Then
osnova()
Else
ExitLoop
EndIf
_IEAction ($oIE, "refresh")
_IELoadWait ($oIE)
WEnd
GUICtrlSetData($label5,"Серфинг закончен!")
sleep(3000)
GUICtrlSetData($label5,"Удачи!!!")
sleep(3000)
func clickhref($href)
local $kl=0
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
$kl=$kl+1
if $href= $oLink.href Then
_IELinkClickByIndex($oIE,$kl-1)
ExitLoop
EndIf
Next
_IELoadWait ($oIE)
EndFunc
func esc()
Exit
EndFunc
func proverka()
local $n
; определение кооличества линков для серфа
$oTables = _IETableGetCollection($oIE)
$iNumTables = @extended
For $oTable In $oTables
if stringleft($oTable.id,3) == 'l0l' Then
$oTable2 = _IETableGetCollection($oIE, $n)
$aTableData = _IETableWriteToArray($oTable2)
if UBound($aTableData,2) = 2 Then
if stringlen(string($aTableData[0][1])) > 3 Then
_ArrayAdd($cash,$aTableData[0][1]) ; $cash содержит цену за линк. по этому массиву определяем колличество линков
_ArrayAdd($num,StringMid($oTable.id,4,stringlen($oTable.id)-3))
$cash[0] += 1
EndIf
endif
EndIf
$n += 1
Next
;_ArrayDisplay($cash)
; проверка есть ли доступные ссыки для серфа
if UBound($cash) = 1 then
GUICtrlSetData($label5,"Нет ссылок для серфа")
sleep(3000)
Exit
Else
GUICtrlSetData($label5,"Ссылки найдены кол. = " & string($cash[0]))
return 1
EndIf
EndFunc
func osnova()
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
if StringInStr($oLink.href,"/v/?a=") > 0 Then
_ArrayAdd($href,$oLink.href) ; $href содержит гиперссылку на линк
EndIf
Next
local $money
for $i = 1 to $cash[0] ;основной цикл серфа
sleep(2000)
$oIE.document.body.setAttribute("id", "1")
_IEHeadInsertEventScript ($oIE, "1", "onload", "ggz('','"&String($num[$i])&"',0);") ;старт яваскрипта для появления на экране линкового красного круга
sleep(2000)
local $kl=0
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
$kl=$kl+1
if $href[$num[$i]]= $oLink.href Then
_IELinkClickByIndex($oIE,$kl-1);клик по линку
$hwnd=WinGetHandle('[CLASS:IEFrame]') ;ловим окно
$oIE4 = _IEAttach ($hwnd,'HWND')
$url=_IEPropertyGet ($oIE4, "locationurl")
_IENavigate($oIE2,$url,0)
_IEQuit($oIE4)
_IELoadWait($oIE2)
$c_click +=1
$money = $money + number($cash[$i])
ExitLoop
EndIf
Next
if StringRight(string($cash[$i]),1) = "5" Then sleep(23000) ;если цена 0.005 то ждем
if StringRight(string($cash[$i]),1) = "1" then sleep(10000) ;если цена 0.001 то ждем
GUICtrlSetData($label5,"Ссылки найдены кол. = " & string($cash[0]-$i))
Next
GUICtrlSetData($label5,"Проверка наличия ссылок!!!")
EndFuncПодозреваю что бота выдает запуск скрипта, а именно эти строчки
Код:
$oIE.document.body.setAttribute("id", "1")
_IEHeadInsertEventScript ($oIE, "1", "onload", "ggz('','"&String($num[$i])&"',0);")
