B4A Library Library Create ShortLink

Hi all.

This is simple library create ShortLink.
I used this free service: PSBE:CO

Is very simple:

ShortLink
Author: Devil-App
Version: 1.02

• ShortLink
  Methods:
  • IsInitialized As Boolean
    Tests whether the object has been initialized.
  • Initialize (url As String, yourkey As String, Module As Object, EventName As String) As String
    
    
    For get your Key HERE
    
    

    Sub Activity_Create(FirstTime As Boolean)
        'Do not forget to load the layout file created with the visual designer. For example:
        'Activity.LoadLayout("Layout1")
        Dim createshortlink As ShortLink
        Dim url As String
        url = "https://www.google.it/search?sclient=psy-ab&biw=1600&bih=775&site=webhp&q=link+molto+lunghi+ma+molto+molto+lunghi&oq=link+molto+lunghi+ma+molto+molto+lunghi&gs_l=hp.3...1985656.1989803.0.1990495.22.14.0.0.0.0.0.0..0.0....0...1c.1.64.psy-ab..22.0.0.BN3qzQhL1aY&pbx=1&bav=on.2,or.r_cp.&bvm=bv.98197061,d.bGQ&ion=1&ech=1&psi=DKqsVY_pAcKtygPz_pjYAw.1437379086446.7&ei=DaqsVbuaDcjXygO3qK_oCA&emsg=NCSR&noj=1"
        createshortlink.Initialize(url,"Fe5pwHzYKdmshHMC2Kq7NUIN0X3Ap1J54u4jsn62nFgdNmBJX9", Me, "check_short")
       
    End Sub
    
    Sub check_short(valore As typeLevel)
    LogColor(valore.link, Colors.Red)
    ToastMessageShow(valore.link, True)
    Msgbox(valore.link, "Messaggio")
    End Sub

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

 

[DonManfred]

Is the service because even available for free?

See pricing on their website. http://psbe.co/pricing.aspx
Maybe you find info what you can use for free

 

[so27]

Nothing for free. Okay, thank you DonManfred.