Title: Trying to get faucetbox bot to work
Post by: tommorisonwebdesign on December 07, 2015, 07:45:17 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 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("<input name=name=""honeypot""") > 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
web.vb 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
Title: Re: Trying to get faucetbox bot to work
Post by: filipwx on January 09, 2016, 01:20:39 PM
I'm looking for a bot, can u send me a PM
Title: Re: Trying to get faucetbox bot to work
Post by: rammy2k2 on January 09, 2016, 02:47:32 PM
So u are hoping to get help for a bot to steal from faucets ? ???
Title: Re: Trying to get faucetbox bot to work
Post by: dk8218 on January 10, 2016, 02:09:56 PM
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..
Title: Re: Trying to get faucetbox bot to work
Post by: creepland on January 10, 2016, 04:16:46 PM
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... :/
|