ورود

View Full Version : نمایش اطلاعات دریافت شده از سرور در یک لیست باکس



پرستو پارسایی
جمعه 15 اردیبهشت 1402, 00:45 صبح
آقای کامیار گرامی فکر کنم این کد به شما کمک کنه . لطفا سوالتان را در تالار عنوان بفرمائید و ایمیل نفرمائید . سپاس
Imports System.Net

Public Class Form1


Private Sub GetDataButton_Click(sender As Object, e As EventArgs) Handles GetDataButton.Click
Dim url As String = "آدرس سرور"
Dim client As New WebClient()


Dim data As String = client.DownloadString(url)


Dim lines() As String = data.Split(ControlChars.Lf)
For Each line As String In lines
ListBox1.Items.Add(line)
Next


MessageBox.Show("تعداد " & ListBox1.Items.Count.ToString() & " مورد دریافت شد.", "دریافت اطلاعات از سرور")
End Sub
End Class

لازم به ذکر است که برای استفاده از این کد، باید اطمینان حاصل کنید که آدرس سرور مورد نظر در دسترس است و این اطلاعات در فرمتی مناسب ارائه شده است