[NeoBux.com] Бот кликер.

#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