Trying to get faucetbox bot to work

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

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("<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

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