دریافت سورس از طریق URL در ویژوال بیسیک

images

ممکن است در برنامه شما نیاز به دریافت فایل یا حتی سورس یک صفحه وب از طریق اینترنت باشد ، برای این منظور می توانید از تابع زیر در ویژوال بیسیک استفاده نمایید:

Public Function getURL(ByVal sURL As String) As String
Try
Dim retValue As String = “”
Dim wrGETURL As WebRequest
wrGETURL = WebRequest.Create(sURL)

Dim proxy As New WebProxy
proxy = WebProxy.GetDefaultProxy()
proxy.BypassProxyOnLocal = True
wrGETURL.Proxy = proxy

Dim objStream As Stream
objStream = wrGETURL.GetResponse.GetResponseStream()

Dim objReader As New StreamReader(objStream)
Dim sLine As String = “”
Dim i As Integer = 0

Do While Not sLine Is Nothing
i += 1
sLine = objReader.ReadLine
If Not sLine Is Nothing Then
retValue += sLine + vbNewLine
End If
Loop
Return retValue

Catch ex As Exception
‘Exception happened do something or just ignore this
Return False
End Try
End Function

این تابع ابتدا یک درخواست وب (web request) ایجاد میکند و سپس با استفاده از ورودی create آدرس دریافت شده از ورودی را به درخواست اضافه میکند و بعد از فراخوانی تابع دریافت پاسخ (get response stream) یک جریان داده (stream) برگردانده می شود که شامل محتوای فایل درخواست شده در اینترنت است و سپس با ایجاد یک خواننده جریان (stream reader) محتویات آن را خط به خط خوانده و به خروجی اضافه میکند در انتها محتوا را به صورت رشته برمیگرداند.

درباره نویسنده

نوشته های مرتبط

2 نظر

  1. Debra

    Thanks for sharing excellent informations. Your site is so cool.

    I am impressed by the details that you’ve on this website.
    It reveals how nicely you understand this subject.
    Bookmarked this web page, will come back for extra articles.

    پاسخ

نظری بگذارید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *