Topic: Trying to get faucetbox bot to work (Read 1718 times)

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

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