سلام.از اینکه سایت سوفرا را، برای پاسخ به سوالات خود انتخاب کردید خوشحال هستیم . با محمودی همراه باشید.
ممکن است در برنامه شما نیاز به دریافت فایل یا حتی سورس یک صفحه وب از طریق اینترنت باشد ، برای این منظور می توانید از تابع زیر در ویژوال بیسیک استفاده نمایید:
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=”>
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.