SkillAgentSearch skills...

FaucetPayAPI

API for you to make a cryptocurrency management platform on FaucetPay, Through the API you can make payments, see faucet lists, see your balance, Check if a wallet or user exists and check payment HASH. Enjoy

Install / Use

/learn @Romulo-Meirelles/FaucetPayAPI

README

<a href="https://faucetpay.io/?r=4070094"><img src="/Pictures/faucetpay.png"> FaucetPayAPI. (UNOFFICIAL)

Build Status <br> API for you to make a cryptocurrency management platform on FaucetPay, Through the API you can make payments, see faucet lists, see your balance, Check if a wallet or user exists and check payment HASH. Enjoy

Features

  • Make payments.
  • See faucet lists.
  • See your balance.
  • Check if a wallet or user exists.
  • Check payment HASH.
  • Manage your cryptocurrencies
  • Easy to Use <br><h1> ✨ Some examples of how to use. ✨</h1><br>
<h2>Visual Basic </h1>

Sub Main(args As String())
     Try
            Using Client = FaucetPayClient.Create(New ApiConfig With {.ApiKey = "889bcd6696e47c9472e18bf986e8bb33448bfa9d"})

                '----- ASYNC COMMANDS -----

                Dim BalanceAsync = Await Client.GetBalanceAsync(FaucetPayClient.Bitcoin)
                Console.WriteLine("Balance Satoshis: " & BalanceAsync.SatoshiBalance)
                Console.WriteLine("Actual Balance: " & BalanceAsync.ActualBalance)
                Console.WriteLine("Currency: " & BalanceAsync.Currency)


                Dim CurrenciesAsync = Await Client.GetCurrenciesAsync()
                For Each Item In CurrenciesAsync.Currencies
                    Console.WriteLine("Currencies: " & Item.Name)
                    Console.WriteLine("Acronym: " & Item.Acronym)
                    Console.WriteLine(vbCrLf)
                Next


                Dim CheckAddressBooleanAsync = Await Client.CheckAddressBooleanAsync("19EsDy2kzS1jANgm7M5hdYvgh26uMsgGzu", FaucetPayClient.Bitcoin)
                Console.WriteLine("Is Valid: " & CheckAddressBooleanAsync.ToString)


                Dim CheckAddressAsync = Await Client.CheckAddressAsync("19EsDy2kzS1jANgm7M5hdYvgh26uMsgGzu", FaucetPayClient.Bitcoin)
                Console.WriteLine("User Hash: " & CheckAddressAsync.PayoutUserHash)


                Dim GetPayoutAsync = Await Client.GetPayoutsAsync(10, FaucetPayClient.Bitcoin)
                For Each Item In GetPayoutAsync
                    Console.WriteLine("Date: " & Item.Date)
                    Console.WriteLine("To: " & Item.To)
                    Console.WriteLine("Satoshi Amount: " & Item.SatoshiAmount)
                Next

                Dim SendAsync = Await Client.SendAsync(10, "19EsDy2kzS1jANgm7M5hdYvgh26uMsgGzu", FaucetPayClient.Bitcoin, IsReferral:=False)
                Console.WriteLine("PayoutID: " & SendAsync.PayoutId)
                Console.WriteLine("Payout User Hash: " & SendAsync.PayoutUserHash)
                Console.WriteLine("Rate Limit Remaining: " & SendAsync.RateLimitRemaining)
                Console.WriteLine("Satoshi Balance: " & SendAsync.RemainingSatoshiBalance)


                Dim FaucetListAsync = Await Client.FaucetListAsync(FaucetPayClient.Feyorra)
                For Each Item In FaucetListAsync.Values
                    Console.WriteLine("ID: " & Item.SyncRoot(0).ToString)
                    Console.WriteLine("Name: " & Item.SyncRoot(1).ToString)
                    Console.WriteLine("URL: " & Item.SyncRoot(2).ToString)
                    Console.WriteLine("Owner ID: " & Item.SyncRoot(3).ToString)
                    Console.WriteLine("Owner Name: " & Item.SyncRoot(4).ToString)
                    Console.WriteLine("Currency: " & Item.SyncRoot(5).ToString)
                    Console.WriteLine("Timer in Minutes: " & Item.SyncRoot(6).ToString)
                    Console.WriteLine("Reward: " & Item.SyncRoot(7).ToString)
                    Console.WriteLine("Is Enabled: " & Item.SyncRoot(8).ToString)
                    Console.WriteLine("Creation Date: " & Item.SyncRoot(9).ToString)
                    Console.WriteLine("Category: " & Item.SyncRoot(10).ToString)
                    Console.WriteLine("Paid Today: " & Item.SyncRoot(11).ToString)
                    Console.WriteLine("Total User Paid: " & Item.SyncRoot(12).ToString)
                    Console.WriteLine("Active Users: " & Item.SyncRoot(13).ToString)
                    Console.WriteLine("Balance: " & Item.SyncRoot(14).ToString)
                    Console.WriteLine("Health: " & Item.SyncRoot(15).ToString)
                    Console.WriteLine(vbCrLf)
                Next

                Exit Sub
                
                
                '------ SIMPLE COMMANDS ------

                Dim Balance = Client.GetBalance(FaucetPayClient.Bitcoin)
                Console.WriteLine("Balance Satoshis: " & Balance.SatoshiBalance)
                Console.WriteLine("Actual Balance: " & Balance.ActualBalance)
                Console.WriteLine("Currency: " & Balance.Currency)

                Dim Currencies = Client.GetCurrencies
                For Each Item In Currencies.Currencies
                    Console.WriteLine("Currencies: " & Item.Name)
                    Console.WriteLine("Acronym: " & Item.Acronym)
                    Console.WriteLine(vbCrLf)
                Next

                Dim CheckAddressBoolean = Client.CheckAddressBoolean("19EsDy2kzS1jANgm7M5hdYvgh26uMsgGzu", FaucetPayClient.Bitcoin)
                Console.WriteLine("Is Valid: " & CheckAddressBoolean.ToString)


                Dim CheckAddress = Client.CheckAddress("19EsDy2kzS1jANgm7M5hdYvgh26uMsgGzu", FaucetPayClient.Bitcoin)
                Console.WriteLine("User Hash: " & CheckAddress.PayoutUserHash)


                Dim GetPayout = Client.GetPayouts(10, FaucetPayClient.Bitcoin)
                For Each Item In GetPayout
                    Console.WriteLine("Date: " & Item.Date)
                    Console.WriteLine("To: " & Item.To)
                    Console.WriteLine("Satoshi Amount: " & Item.SatoshiAmount)
                Next

                Dim Send = Client.Send(10, "19EsDy2kzS1jANgm7M5hdYvgh26uMsgGzu", FaucetPayClient.Bitcoin, IsReferral:=False)
                Console.WriteLine("PayoutID: " & Send.PayoutId)
                Console.WriteLine("Payout User Hash: " & Send.PayoutUserHash)
                Console.WriteLine("Rate Limit Remaining: " & Send.RateLimitRemaining)
                Console.WriteLine("Satoshi Balance: " & Send.RemainingSatoshiBalance)


                Dim FaucetList = Client.FaucetList(FaucetPayClient.Feyorra)
                For Each Item In FaucetList.Values
                    Console.WriteLine("ID: " & Item.SyncRoot(0).ToString)
                    Console.WriteLine("Name: " & Item.SyncRoot(1).ToString)
                    Console.WriteLine("URL: " & Item.SyncRoot(2).ToString)
                    Console.WriteLine("Owner ID: " & Item.SyncRoot(3).ToString)
                    Console.WriteLine("Owner Name: " & Item.SyncRoot(4).ToString)
                    Console.WriteLine("Currency: " & Item.SyncRoot(5).ToString)
                    Console.WriteLine("Timer in Minutes: " & Item.SyncRoot(6).ToString)
                    Console.WriteLine("Reward: " & Item.SyncRoot(7).ToString)
                    Console.WriteLine("Is Enabled: " & Item.SyncRoot(8).ToString)
                    Console.WriteLine("Creation Date: " & Item.SyncRoot(9).ToString)
                    Console.WriteLine("Category: " & Item.SyncRoot(10).ToString)
                    Console.WriteLine("Paid Today: " & Item.SyncRoot(11).ToString)
                    Console.WriteLine("Total User Paid: " & Item.SyncRoot(12).ToString)
                    Console.WriteLine("Active Users: " & Item.SyncRoot(13).ToString)
                    Console.WriteLine("Balance: " & Item.SyncRoot(14).ToString)
                    Console.WriteLine("Health: " & Item.SyncRoot(15).ToString)
                    Console.WriteLine(vbCrLf)
                Next
            End Using

        Catch ex As FaucetPayException
            Console.WriteLine("Error: " & ex.Message)
            Console.ReadLine()
        End Try
     End Sub
<h1> BALANCE.</h1>
         Using Client = FaucetPayClient.Create(New ApiConfig With {.ApiKey = "889bcd6696e47c9472e18bf986e8bb33448bfa9d"})
                Dim BalanceAsync = Await Client.GetBalanceAsync(FaucetPayClient.Bitcoin)
                Console.WriteLine("Balance Satoshis: " & BalanceAsync.SatoshiBalance)
                Console.WriteLine("Actual Balance: " & BalanceAsync.ActualBalance)
                Console.WriteLine("Currency: " & BalanceAsync.Currency)
         End Using
<h1> LIST CURRENCIES.</h1>
          Using Client = FaucetPayClient.Create(New ApiConfig With {.ApiKey = "889bcd6696e47c9472e18bf986e8bb33448bfa9d"})
               Dim CurrenciesAsync = Await Client.GetCurrenciesAsync()
                For Each Item In CurrenciesAsync.Currencies
                    Console.WriteLine("Currencies: " & Item.Name)
                    Console.WriteLine("Acronym: " & Item.Acronym)
                    Console.WriteLine(vbCrLf)
                Next
         End Using
<h1> RECENT PAYOUT.</h1>
        Using Client = FaucetPayClient.Create(New ApiConfig With {.ApiKey = "889bcd6696e47c9472e18bf986e8bb33448bfa9d"})
                For Each Item In GetPayoutAsync
                    Console.WriteLine("Date: " & Item.Date)
                    Console.WriteLine("To: " & Item.To)
                    Console.WriteLine("Satoshi Amount: " & Item.SatoshiAmount)
                Next
         End Using
<h1> CHECK ADDRESS EXIST.</h1>
         Using Client = FaucetPayClient.Create(New ApiConfig With {.ApiKey = "889bcd6696e47c9472e18bf986e8bb33448bfa9d"})
                Dim CheckAddressBooleanAsync = Await Client.CheckAddressBooleanAsync("19EsDy2kzS1jANgm7M5hdYvgh26uMsgGzu", FaucetPayClient.Bitcoin)
                Console.WriteLine("Is Valid: " & CheckAddressBooleanAsync.ToString)
         End Using
<h1> CHECK USER HASH.</h1>
          Using Client = FaucetPayClient.Create(New ApiConfig With {.ApiKey = "889bcd6696e47c947
View on GitHub
GitHub Stars4
CategoryDevelopment
Updated1y ago
Forks2

Languages

Visual Basic .NET

Security Score

75/100

Audited on Feb 1, 2025

No findings