[AAAAAAAAA]

(28-07-19, 06:39 PM)سامي محمد كتب : وبالإمكان الاستغناء عن الثلاثة السابقة باستخدام WebClient هذه توصلك إلى السورس مباشرة
ولكن مع الاسف لا تدعم اللغة العربية فستجد أي حرف عربي تحول الى علامة استفهام

كود :

Dim wc As New WebClient()
wc.Encoding = Encoding.UTF8
Dim s As String = wc.DownloadString("http://website")

كود :

Dim s As String
Using wc As New WebClient()
   wc.Encoding = Encoding.UTF8
   s = wc.DownloadString("http://website")
End Using

كود :

Dim s As String
Using wc As New WebClient() With {.Encoding = Encoding.UTF8}
   s = wc.DownloadString("http://website)
End Using

كود :

Dim s = New WebClient() With {.Encoding = Encoding.UTF8}.DownloadString("http://website")