Topic: Trying to get faucetbox bot to work (Read 1752 times)
Why need to make bots? Why you can't just normally collect Coins? If all will be using bots I think no one will be making faucets... :/
A bot..
I also needed it..
But if it doesn't work then i have one other idea also..
But I don't know programming well..
So pm me plz..
My idea and your skill can get many things together...
Pm me plz..
I also needed it..
But if it doesn't work then i have one other idea also..
But I don't know programming well..
So pm me plz..
My idea and your skill can get many things together...
Pm me plz..
So u are hoping to get help for a bot to steal from faucets ? 
I'm looking for a bot, can u send me a PM
I am trying to make a program in .NET that goes to a list of provided faucet box faucets and collects the free Bitcoins provided. So far, when I try using the program with bibi faucet there is no evidence the program works. I only coded the bot to collect from faucets that only require the CAPTCHA be checked. Below is my source code
Form1.vb
web.vb
Form1.vb
Code:
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
' loop through faucet list
Dim faucetUrls() As String = Split(txtFaucetList.Text, vbCrLf)
For Each url As String In faucetUrls
' get faucet source code
Dim pageHtml As String = web.web("get", url)
' solve captcha
'get special name of btc address checkbox
Dim addInputNameEndPos As Integer = pageHtml.IndexOf("class=""form-control"" value="""" placeholder=""Your Address"" style=""width: 468px; border-radius: 3px; font-size: 12px;"">")
Dim addInputNameStartPos As Integer = addInputNameEndPos - 27
If addInputNameEndPos = -1 Then
addInputNameEndPos = pageHtml.IndexOf("class=""form-control"" value=""""")
End If
' check agian
If addInputNameStartPos = -1 Then
addInputNameStartPos = pageHtml.IndexOf("class=""form-control"" type=""text"" value="""" placeholder=""Your address"" name=""")
End If
Dim addInputName As String = pageHtml.Substring(addInputNameStartPos, addInputNameEndPos - addInputNameStartPos)
If pageHtml.IndexOf(" 0 Then
' send web request/response
Dim address As String = txtAdd.Text
Dim resultHtml As String = web.web("post", url, "address=" & address & "&honeypot=checked&" & addInputName & "=" & address)
End If
Next
End Sub
End Class
Code:
Imports System
Imports System.Net
Imports System.IO
Imports System.Text
Module web
Public Function web(ByVal mode As String, ByVal url As String, Optional ByVal data As String = Nothing)
If mode = "get" Then
' create new webrequest object
Dim request As WebRequest = WebRequest.Create(url)
Dim response As WebResponse = request.GetResponse()
Dim sr As StreamReader = New StreamReader(response.GetResponseStream()) ' create streamreader
' no data to enter
Return sr.ReadToEnd()
ElseIf mode = "post" Then
'ceate webrequest object
Dim request As WebRequest = WebRequest.Create(url)
' add post data to request
' set request property to post
request.Method = "POST"
' convert data to byte array
Dim byteArray() As Byte = Encoding.UTF8.GetBytes(data)
' set MIME
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = byteArray.Length
'get request stream
Dim datastream As Stream = request.GetRequestStream()
' write data to stream
datastream.Write(byteArray, 0, byteArray.Length)
' close data stream
datastream.Close()
' now get response
Dim response As WebResponse = request.GetResponse()
' get stream cotaining response from server
datastream = response.GetResponseStream()
' return text
Dim reader As New StreamReader(datastream)
Return reader.ReadToEnd()
Else
Return False
End If
End Function
End Module
Jump to: