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

سلام.از اینکه سایت  سوفرا  را، برای پاسخ به سوالات خود انتخاب کردید خوشحال هستیم . با محمودی همراه باشید.

دریافت سورس از طریق URL

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

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) محتویات آن را خط به خط خوانده و به خروجی اضافه میکند در انتها محتوا را به صورت رشته برمیگرداند.

</div=”>


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

  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.

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

We are glad you have chosen to leave a comment. Please keep in mind that comments are moderated according to our comment policy.