[dubai.eig]

(27-10-17, 07:36 PM)a.ahmed كتب :

PHP كود :

Private Sub getinfo()
    Threading.
    Tasks.
    Task.
    Factory.
    StartNew(
        Sub()
            Try

                Dim url As String = String.Format("http://xmldata.qrz.com/xml/current/?s={0};callsign={1}", LKey.Text, calls.Text)
                Timer2.Stop()

                Dim ds As New DataSet
                ds.ReadXml(url)

                If ds.Tables.Contains("Callsign") Then
                    Dim dt As DataTable = ds.Tables("Callsign")

                    If dt.Rows.Count > 0 Then
                        Dim r As DataRow = dt(0)

                        If dt.Columns.Contains("state") Then state.Invoke(Sub() state.Text = r("state").Trim().ToString())
                        If dt.Columns.Contains("fname") Then Lfullname.Invoke(Sub() Lfullname.Text = r("fname"))
                        If dt.Columns.Contains("addr2") Then qth.Invoke(Sub() qth.Text = r("addr2"))

                        If dt.Columns.Contains("grid") Then WORKinfo.Invoke(Sub() WORKinfo.GRIDSQUARE.Text = r("grid"))
                        If dt.Columns.Contains("qslmgr") Then WORKinfo.Invoke(Sub() WORKinfo.Lqslmgr.Text = r("qslmgr"))
                        If dt.Columns.Contains("lat") Then WORKinfo.Invoke(Sub() WORKinfo.LAT.Text = r("lat"))
                        If dt.Columns.Contains("lon") Then WORKinfo.Invoke(Sub() WORKinfo.LON.Text = r("lon"))
                        If dt.Columns.Contains("iota") Then WORKinfo.Invoke(Sub() WORKinfo.Liota.Text = r("iota"))

                    End If

                End If

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub)
End Sub 


تسلم ايدك استاذي الكريم

تحيه واحترام لك