Sign in to follow this  
Followers 0
WolfWorld

Bux.to Automatic

7 posts in this topic

All credit goes to : http://www.autoitscript.com/forum/index.php?showtopic=54981

This is just a fixed version to use with bux.to the old version can't be use now

#include <GUIConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include <Array.au3>
#include <File.au3>
#include <String.au3>
#NoTrayIcon
#RequireAdmin
$oIE = _IECreateEmbedded()
$Form1 = GUICreate("Bux.to Autobrowser", 728, 429, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
$File = GUICtrlCreateMenu("&File")
$Exit = GUICtrlCreateMenu("&Exit")
$MenuItem8 = GUICtrlCreateMenuItem("Exit", $File)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 700, 350)
GUISetState(@SW_HIDE)
$Settings = GUICreate("Settings", 204, 269, 193, 125)

$Scheduletime = GUICtrlCreateGroup("Schedule Time", 8, 8, 185, 105)
$Time1 = GUICtrlCreateInput("", 48, 48, 89, 21, $ES_NUMBER)
$Label1 = GUICtrlCreateLabel("Run Every:", 48, 24, 57, 17)
$Label2 = GUICtrlCreateLabel("mins", 128, 72, 25, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Login", 8, 128, 185, 137)
$Userinput = GUICtrlCreateInput("", 40, 160, 121, 21)
$Passinput = GUICtrlCreateInput("", 40, 208, 121, 21, $ES_PASSWORD)
GUICtrlCreateLabel("Username", 72, 136, 52, 17)
GUICtrlCreateLabel("Password", 72, 184, 50, 17)
$set2 = GUICtrlCreateButton("Set", 56, 240, 75, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)

Opt("TrayMenuMode", 1)
$Runitem = TrayCreateItem("Run")
$settingsitem = TrayCreateItem("Settings")
$viewitem = TrayCreateItem("View")
$helpitem = TrayCreateItem("Help")
$exititem = TrayCreateItem("Exit (ESC)")
TraySetState()

; Random
Local $fileLineArray
Opt("TrayMenuMode", 1)
HotKeySet("{ESC}", "close")
$stamp = TimerInit()

$min = False

; Deletes to avoid errors
FileDelete("output.txt")
FileDelete("links.txt")

If FileExists(@ScriptDir & "\settings.ini") = 0 Then
    MsgBox(0, "Bux.to Autobrowser", "Please fill in the settings")
    GUISetState(@SW_SHOW, $Settings)
Else
    $User = IniRead(@ScriptDir & "\settings.ini", "Login Details", "User", "")
    $Pass = IniRead(@ScriptDir & "\settings.ini", "Login Details", "Pass", "")
    _decrypt ()
EndIf

While 1
    $gMsg = GUIGetMsg()
    Switch $gMsg
        Case $GUI_EVENT_CLOSE
            GUISetState(@SW_HIDE)
        Case $MenuItem8
            GUISetState(@SW_HIDE, $Form1)
        Case $Exit
            GUISetState(@SW_HIDE)
        Case $set2
            If GUICtrlRead($Time1) = "" Then
                MsgBox(0, "Bux.to Auto Browser", "Please fill in missing details")
                GUISetState(@SW_SHOW, $Settings)
            ElseIf GUICtrlRead($Userinput) = "" Then
                MsgBox(0, "Bux.to Auto Browser", "Please fill in missing details")
                GUISetState(@SW_SHOW, $Settings)
            ElseIf GUICtrlRead($Passinput) = "" Then
                MsgBox(0, "Bux.to Auto Browser", "Please fill in missing details")
                GUISetState(@SW_SHOW, $Settings)
            EndIf
            $input = GUICtrlRead($Time1)
            IniWrite(@ScriptDir & "\settings.ini", "Time", "Runevery", $input)
            GUISetState(@SW_HIDE, $Settings)
            $User = GUICtrlRead($Userinput)
            $Pass = GUICtrlRead($Passinput)
            $Pass = _StringEncrypt(1, $Pass, "lol")
            IniWrite(@ScriptDir & "\settings.ini", "Login Details", "User", $User)
            IniWrite(@ScriptDir & "\settings.ini", "Login Details", "Pass", $Pass)
            _decrypt ()
            GUISetState(@SW_HIDE, $Settings)
    EndSwitch
    $tMsg = TrayGetMsg()
    Switch $tMsg
        Case $settingsitem
            $Time11 = IniRead(@ScriptDir & "\settings.ini", "Time", "Runevery", "")
            $User2 = IniRead(@ScriptDir & "\settings.ini", "Login Details", "User", "")
            GUICtrlSetData($Userinput, $User2)
            GUICtrlSetData($Time1, $Time11)
            GUISetState(@SW_SHOW, $Settings)
        Case $Runitem
            GUISetState(@SW_SHOW, $Form1)
            Do
                _Login ()
            Until _IEPropertyGet($oIE, "locationurl") = "http://bux.to/index.php" 
        Case $exititem
            close ()
        Case $helpitem
            help ()
        Case $viewitem
            GUISetState(@SW_SHOW, $Form1)
    EndSwitch
    If FileExists(@ScriptDir & "\settings.ini") = 1 And ((TimerDiff($stamp) / 1000) / 60) >= IniRead(@ScriptDir & "\settings.ini", "Time", "Runevery", "") Then
        Get()
        $stamp = TimerInit()
    EndIf
WEnd


; Get Function
Func Get()
    If @OSVersion = "WIN_NT4"  Or @OSVersion = "WIN_ME"  Or @OSVersion = "WIN_98"  Or @OSVersion = "WIN_95"  Then
        TraySetToolTip("Bux.to Browser - Collecting ads")
    Else
        TrayTip("Bux.to Browser", "Collecting ads", 5)
    EndIf
    _IENavigate($oIE, "http://www.bux.to/surfbux.php")
    Sleep(2000)
    $oLinks = _IELinkGetCollection($oIE)
    $iNumLinks = @extended
    Global $Link_Array = ''
    For $oLink In $oLinks
        If StringInStr($oLink.href, 'view.php?ad=') Then
            $Link_Array = $oLink.href & @CRLF
        EndIf
    Next

    $fil = StringSplit($Link_Array, @CRLF)

    For $i = 1 To $fil[0]
        $tempstr = StringStripWS($fil[$i], 3)
        If $tempstr = "" Then
            _ArrayDelete($fil, $i)
        Else
            If $i = 1 Then ExitLoop
            For $n = $i - 1 To 1 Step - 1
                If $tempstr = $fil[$n] Then
                    _ArrayDelete($fil, $i)
                    ExitLoop
                EndIf
            Next
        EndIf
    Next
    $fil[0] = UBound($fil) - 1

    If $fil[0] > 0 Then
        If @OSVersion = "WIN_NT4"  Or @OSVersion = "WIN_ME"  Or @OSVersion = "WIN_98"  Or @OSVersion = "WIN_95"  Then
            TraySetToolTip("Bux.to Browser - Browsing ads")
        Else
            TrayTip("Bux.to Browser", "Browsing ads", 5)
        EndIf
        For $i = 1 To $fil[0]
            _IENavigate($oIE, $fil[$i])
            _IELoadWait($oIE)
            Sleep(35000)
        Next
        If @OSVersion = "WIN_NT4"  Or @OSVersion = "WIN_ME"  Or @OSVersion = "WIN_98"  Or @OSVersion = "WIN_95"  Then
            TraySetToolTip("Bux.to Browser - Finished Browsing ads")
        Else
            TrayTip("Bux.to Browser", "Finished Browsing ads", 5)
        EndIf
    EndIf
    Sleep(8000)
EndFunc   ;==>Get



Func help ()
    GUISetState(@SW_SHOW, $Form1)
    $sHTML = "<HTML>" & @CR
    $sHTML &= "<HEAD>" & @CR
    $sHTML &= "<TITLE>Help</TITLE>" & @CR
    $sHTML &= "</HEAD>" & @CR
    $sHTML &= "<center><h1>Contact : alex_lmao@hotmail.co.uk</h1></center>" 
    $sHTML &= "</HTML>" 
    _IEDocWriteHTML($oIE, $sHTML)
    _IEAction($oIE, "refresh")
EndFunc   ;==>help

Func close ()
    Exit 0
EndFunc   ;==>close

Func _decrypt ()
    $Pass = _StringEncrypt(0, $Pass, "lol")
EndFunc   ;==>_decrypt

Func _Login ()
    _IENavigate($oIE, "http://bux.to/login.php")
    _IELoadWait($oIE)
    $oForm = _IEFormGetCollection($oIE, 0)
    $oUser = _IEFormElementGetObjByName($oForm, "COOKIEusername")
    $oPass = _IEFormElementGetObjByName($oForm, "COOKIEpass")
    $oCode = _IEFormElementGetObjByName($oForm, "verify")
    $oAction = _IEFormElementGetObjByName($oForm, "loginsubmit")
    _IEFormElementSetValue($oUser, $User)
    _IEFormElementSetValue($oPass, $Pass)
    GUISetState(@SW_SHOW, $Form1)
    _IEFormElementSetValue($oCode, InputBox("what is the security code", "enter the security code for Bux.to"))
    GUISetState(@SW_HIDE, $Form1)
    _IEAction($oAction, "click")
    Sleep(4000)
EndFunc   ;==>_Login

Share this post


Link to post
Share on other sites



is it still working?

it show collecting ads but when i click view it says 'Temporarily unavailable'

can u explain a lil bit how to use it? thx in advance

Share this post


Link to post
Share on other sites

waiting for an update to this one :)

Share this post


Link to post
Share on other sites

Nice work, but the captcha isnt working for me.

can you use http://www.captchakiller.com/??

1-download the imagem,

2- open this website in other browser,

3- upload the imagem, recieve the STRING

This was my script:

#include <IE.au3>
#include <INet.au3>
#include <GUIConstants.au3>
#include <String.au3>
#include <Array.au3>
Global $User = "Username"
Global $Pass = "Password"
TrayTip("", "Loading...", 1)
$Form = GUICreate("Clickalot", 540, 314, 354, 445)
$login = GUICtrlCreateButton("LOGIN FEITO" , 4,4,100,30)
GUISetBkColor(0xFFFFFF)
GUISetState()
$oIE = _IECreate("http://bux.to/login.php")
do 
    $Msg = GUIGetMsg()
until $login = $msg
_IELoadWait($oIE)
Local $Link, $linkURL, $alllinks[1], $links = $oIE.document.links
For $Link In $links
    $linkURL = $Link.href
    If StringInStr($linkURL, "http://bux.to/surfid") Then
        _IENavigate($oIE, $linkURL)
        ExitLoop
    EndIf
Next
$links = $oIE.document.links
For $Link In $links
    $linkURL = $Link.href
    If StringInStr($linkURL, "ad=") Then _ArrayAdd($alllinks,$linkURL)
Next
;_ArrayDisplay($alllinks)
for $i = 1 to UBound($alllinks) -1      
    _IENavigate($oIE, $alllinks[$i])
    sleep(random(40000,50000,1))
Next
MsgBox(-1,"Done","Done! Clicked " & UBound($alllinks) - 1 & " links.")

You can help! Donate to AutoIt! or, visit ClimatePREDICTION.netMy posts:Travian Bot Example (100+ servers) BETAHow to Host you code/app for free! (unlimited team number) (Public or Private)"Sir, we're surrounded!" "Excellent. We can attack in any direction!"

Share this post


Link to post
Share on other sites

Is this still working ?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0