سورس کتاب کامل(اشتراک متن،دیتابیس آنلاین،لیمیت اسکرول و ...)

[behnam_tr 172]

سلام دوستان

این اولین کار من هست که اینجا قرار میدم

امیداوارم برای دوستان مفید باشه

سورس یه کتاب هست که خودم کار کردم

برای دوستانی که میخان کتاب درست کنن میتونه مفید باشه

 

دانلود APK  :   کلیک کنید

لینک دانلود سورس

book

پسورد فایل : answercenter.ir

[behnam_tr 172]

قابلیت ها :

باز کردن مستقیم کانال تلگرام

دارای دیتابیس محلی

قابلیت وصل شدن به دیتابیس انلاین وبروزرسانی داستان های جدید

لیمیت کردن اسکرول ویوو برای جلوگیری از هنگی

لیست علاقه مندیها

قابلیت به اشتراک گذاری متن داستان

کپی کردن متن داستان در کلیپ بورد

 

[Mahdipunisher 0]

ممنون دوست عزیز خیلی خوب و مفید بود ولی توی این قسمت ارور میداد 

Sub Label5_Click
    Dim test As AriaLib

   If test.isConnectedToInternet Then
        
        ht.PostString("http://padinasystem.ir/bookdb/check.php","")
    ProgressDialogShow("در حال بروزرسانی .....")
    
        Else
            
        ToastMessageShow("لطفا اتصال اینترنت خود را بررسی کنید",False)
            
    End If
    
End Sub

که با جایگزین کردن 
    If test.TestInterntConnection Then

درست شد