-Mass Update- Faucet Collector Release

Hello everyone, I was gone for a bit there. I was mainly out visiting friends, but I'm back now. Anyway I have finally not finished my faucet collector. Let me explain this a little bit. I decided to ditch this version for a new one I'm making that you'll be able to program your own faucets into and be able to set timers, etc.

So basically it's a stand-alone program that you can run that will list various BTC faucets that you can collect from. It has a timer for each faucet and will list how much you've collected from each and even keep a total of how much you've collected from all faucets. The total doesn't work yet but the faucets in the 5min section all work. I just wanted to put this out there if you want to make some quick BTC.

Heres the dropbox link:
https://www.dropbox.com/s/ny1cuo788uczgi4/faucet%20collectorfinal.rar?dl=0

So keep checkin in, cause this new programmable faucet timer will be worth the wait.

The making of a stand-alone faucet rotator and timing system...

So the other night I decided to make a faucet collection monitoring program. Kind of a mouth-full but very accurately  describes what the application does. On this version there are 9 faucet links, each has a timer and a BTC collection log. Here take a look...

Each timer has its own reset button and green indicator for when the faucet becomes active again. Browser faucet rotators can be sluggish and can slow you down. With this program I was able to make 0.0003 in 25 minutes. So I'd say it was worth the effort to make it.

My setup usually involves having all my collections done in chrome, you can do it with firefox as well. But anyway, I'll have my faucet box address checker pinned to one tab then have my application run in the bottom. That way once i collect from a faucet I can close the page and reset the timer and the program add the amount of satoushi collected. Neat, eh? So I'll be finishing it up tonight and probably uploading it tomorrow.

How the auto better works. Conclusion.

Okay so I kinda left you all hanging on the last post and didn't really explain anything. First of all sorry and second of all, I'll explain everything...

Lets bring up that code again...

It all is a bit messy and unorganized but the program is broken down into 3 functions. And the control on those functions all comes down to this piece of code:

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim increase = txtbx_increasepercentage.Text
        If increase > 200 Then
            Call above200()
        ElseIf increase > 100 And increase < 200 Then
            Call between100and200()
        ElseIf increase < 180 Then
            Call below100()
        End If
    End Sub

This is for the main calculate button. It can invoke one of these 3 functions: below100, between100and200 and above200. Each one of these functions executes an algorithm that will display the output into the list box.

Example of function above200;

Private Sub above200()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim BillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            sumnew = sum * 10000
            increasefinal = increase * 0.01
            n += 1
            rolloutput = sumnew * increasefinal
            sum = rolloutput / 10000
            sumnew = sum
            BillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & BillPlus)


            If n = rolls Then
                Exit Do
            End If
        Loop

    End Sub

Anyway there's how my program works, hope you enjoy.

How the auto-better works.

 Ok so I was going to write about this a little later, but I decided to do it today because I've already had a few people asking me about how I made the auto-better and how it works. So that's what I'm going to talk about today. I programmed it in visual basic, nothing really special. But in any-case lets take a look...

This is the main interface. 

Now there are 4 main entry text boxes, 3 buttons and 2 list boxes. The 3 top text boxes (basebet, % increase, # of rolls) are linked to the calculate button. Then the multiplier text box is linked to the "project max loss" button to the right. The calculate button prints the output of your rolls onto listbox1 and the "project max loss" button will give an estimate on number of losses to listbox2.  Sounds confusing at first but you'll understand a bit better in a minute.

Here's a quick look at the code...

Public Class Form1
    Private Sub above200()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim nineBillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            sumnew = sum * 10000
            increasefinal = increase * 0.01
            n += 1
            rolloutput = sumnew * increasefinal
            sum = rolloutput / 10000
            sumnew = sum
            nineBillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & nineBillPlus)


            If n = rolls Then
                Exit Do
            End If
        Loop
    End Sub
    Private Sub between100and200()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim nineBillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            n += 1
            increasefinal = increase * 0.01
            rolloutput = sum * increasefinal
            sumnew = sum + rolloutput
            nineBillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & nineBillPlus)
            sum = nineBillPlus

            If n = rolls Then
                Exit Do
            End If
        Loop
    End Sub
    Private Sub below100()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim nineBillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            increasefinal = increase * 0.01
            n += 1
            rolloutput = sum * increasefinal
            sumnew = sum + rolloutput
            nineBillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & nineBillPlus)
            sum = nineBillPlus

            If n = rolls Then
                Exit Do
            End If
        Loop
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim increase = txtbx_increasepercentage.Text
        If increase > 200 Then
            Call above200()
        ElseIf increase > 100 And increase < 200 Then
            Call between100and200()
        ElseIf increase < 180 Then
            Call below100()
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim multi = txtbx_multipler.Text
        Dim lossx As Single
        Dim lossresult As Single
        lossx = 9.5
        lossresult = (lossx * multi) + 4
        ListBox2.Items.Add("Max losses on x" & multi & " somewhere around " & lossresult & " losses....")
        Panel5.BackColor = Color.Green
        Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Panel5.BackColor = Color.Black
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        AboutBox1.Visible = True
    End Sub

To be continued....

New UPDATE and DOWNLOAD for Primedice Loss Calculator

New update for my auto-bet calculator. Can calculate any setting. And the design has been cleaned up a little. I have also included a readme file which you can look at to get started. Enjoy!

https://www.dropbox.com/s/97f12iu3m0m9os2/theheisztslosscalculator.rar?dl=0

Virustotal link: https://www.virustotal.com/en/url/97c5cf6a20794bb24b4bf066589e5442df6ce49243220c0be6698946e81d227e/analysis/1443717062/