YAZSYS.COM, Pos, Pop, Point Of Sale إعلان لاصحاب المتاجر ... تحميل افضل واسرع واسهل نظام مبيعات ونقاط البيع انقر هنا
مشاريع برمجة متنوعة مفتوحة المصدر | مواضيع ودروس تعليمية
 
Search in Google
كود اخذ نص من الصفحة
Public Function GetPageHTML(ByVal URL As String, _
       Optional ByVal TimeoutSeconds As Integer = 10) _
       As String
        ' Retrieves the HTML from the specified URL, 
        ' using a default timeout of 10 seconds 
        Dim objRequest As Net.WebRequest
        Dim objResponse As Net.WebResponse
        Dim objStreamReceive As System.IO.Stream
        Dim objEncoding As System.Text.Encoding
        Dim objStreamRead As System.IO.StreamReader
 
        Try
            ' Setup our Web request 
            objRequest = Net.WebRequest.Create(URL)
            objRequest.Timeout = TimeoutSeconds * 1000
            ' Retrieve data from request 
            objResponse = objRequest.GetResponse
            objStreamReceive = objResponse.GetResponseStream
            objEncoding = System.Text.Encoding.GetEncoding( _
                 "utf-8")
            objStreamRead = New System.IO.StreamReader( _
                objStreamReceive, objEncoding)
            ' Set function return value 
            GetPageHTML = objStreamRead.ReadToEnd()
            ' Check if available, then close response 
            If Not objResponse Is Nothing Then
                objResponse.Close()
            End If
        Catch
            ' Error occured grabbing data, simply return nothing 
            Return ""
        End Try
    End Function
 
 

 
 
 
برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة خارطة الموقع