B4A Library Library Domain Availability

Discussion in 'Additional libraries, classes and official updates' started by MarcoRome, Jul 19, 2015.

Similar threads

B4A Code Snippet Intent Skype Call
B4A Code Snippet Intent make a Skype Video call
B4A Code Snippet Intent Skype Conference Chat
B4A Code Snippet Intent Call Direct Chat Skype
B4A Code Snippet Multiline PdfJet
  1. MarcoRome

    MarcoRome Expert Licensed User

    Hi all.

    This is simple library to check if domain is Availability.
    I used this free service: Blazing Domain Availability

    Is very simple:

    Version: 1
    • DomainAvailability
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • initialize (domain As String, yourkey As String, Module As Object, EventName As String) As String
                      • For get key you go HERE
        Sub Globals
        'These global variables will be redeclared each time the activity is created.
            'These variables can only be accessed from this module.

        Private Label1 As Label
        Private Label2 As Label
        Private Label3 As Label
        Private Label4 As Label
        Private Label5 As Label
        Private Label6 As Label
        End Sub

        Sub Activity_Create(FirstTime As Boolean)
        'Do not forget to load the layout file created with the visual designer. For example:
        Dim checkdomainavailability As DomainAvailability
        "devil-app","Fe5pwHzYKdmshHMC2Kq7NUIN0X3Ap1J54u4jsn62nFgdNmBJX9", Me, "check_avail")

        End Sub

        Sub check_avail(valore As typeLevel)
        Label1.Text = 
        "devil-app.com: " & valore.com
        Log("devil-app.com: " & valore.com)
        Label2.Text = 
        "devil-app.co: " & valore.co
        Log("devil-app.co: " & valore.co)
        Label3.Text = 
        "devil-app.biz: " & valore.biz
        Log("devil-app.biz: " & valore.biz)
        Label4.Text = 
        "devil-app.mobi: " & valore.mobi
        Log("devil-app.mobi: " & valore.mobi)
        Label5.Text = 
        "devil-app.net: " & valore.net
        Log("devil-app.net: " & valore.net)
        Label6.Text = 
        "devil-app.org: " & valore.org
        Log("devil-app.org: " & valore.org)

        End Sub
        The result is:

        2015-07-19 17.34.05.png

        - Unzip the attached file ( DomainAvailability-Lib.zip ) and copy DomainAvailability.jar and DomainAvailability.xml to the libraries folder
        - ValidateDomainAvailability-Example.zip is simple B4A

        Screenshot 2015-07-19 19.31.14.png

    Attached Files:

    jahswani likes this.
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice