[alfaiz678]

نعم هذا يعني ان الاتصال تم

---

اضهار الاسم من الجدول في لابل

PHP كود :

Sub JobDone(Job As HttpJob)
   If Job.Success Then
       Dim res As String
       res = Job.GetString
   Log("Response from server: " & res)
       Dim parser As JSONParser
       parser.Initialize(res)
       
       
If Job.JobName="Job1" Then      // اسم المتغير الذي  بين التنصيص في امر Job1.Initialize
           Dim COUNTRIES As List
           COUNTRIES = parser.NextArray    //'returns a list with maps
           If COUNTRIES.Size > 0 Then
               
//  هنا نضع الطلوب اذا نجح الاستعلام
           Dim m As Map
           m = COUNTRIES.Get(0)
          label1.Text= m.Get("Name")
                             
           Else
// في حالة عدم وجود البيانات
               ToastMessageShow("لم تقم بتسجيل حسابك بعد",True)
           End If
       End If
   Else
//  في حالة عدم الاتصال بالنت
       ToastMessageShow("لم تتم العملية تأكد من اتصالك بالانترنت",True)
   End If
   ProgressDialogHide
End Sub