دریافت تبلیغات یک سایت توسط b4a و نمایش به صورت نوتیفیکیشن notification تول تیپ

Sub Globals
    Dim httpjob1 As HttpJob
End Sub

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
      Dim Timer1 As  Timer
End Sub

Sub Activity_Create(FirstTime As Boolean)
httpjob1.initialize("httpjob1",Me)
Timer1.Initialize("Timer1", 5000) ' 5000 = 5 second
Timer1.Enabled = True
End Sub

Sub JobDone(Job As HttpJob)
If Job.success = True Then ToastMessageShow(Job.GetString, True)
End Sub

Sub Timer1_Tick
httpjob1.download("http://example/tablighat.html")
'httpjob1.download("http://example/tablighat.php")
End Sub

---

خرید آموزش b4a فارسی با قیمت کم:
http://gameover.blog.ir/1395/04/03/%DA%A9%D8%AA%D8%A7%D8%A8-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C-%D8%A7%D9%85%D9%88%D8%B2%D8%B4-b4a-%D8%B3%D8%A7%D8%AE%D8%AA-%DA%AF%DB%8C%D9%85-%D8%A2%D9%88%D8%B1