Jump to content

Bux.to Automatic


WolfWorld
 Share

Recommended Posts

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
Link to comment
Share on other sites

  • 3 weeks later...
  • 2 months later...

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!"
Link to comment
Share on other sites

  • 10 months later...

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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...