תיכון השיר שלנו -פרקים מלאים להורדה וצפייה ישירה

Const TimeOut As Byte = 30

Public Function GetASALinksData() As String
Dim TextEncoding As System.Text.Encoding
Dim Reader As System.IO.StreamReader
Dim Writer As System.IO.StreamWriter
Dim WebResponce As Net.WebResponse
Dim IOReceive As System.IO.Stream
Dim WebRequest As Net.WebRequest
Dim BLURL As String


BLURL = "http://asalinks.com/publisher_pagelinks_1179.html"

Try
WebRequest = Net.WebRequest.Create(BLURL)
WebRequest.Method = "GET"
WebRequest.Timeout = TimeOut * 1000
WebResponce = WebRequest.GetResponse
IOReceive = WebResponce.GetResponseStream
TextEncoding = System.Text.Encoding.GetEncoding("utf-8")
Reader = New System.IO.StreamReader(IOReceive, TextEncoding)
GetASALinksData = Reader.ReadToEnd()
If Not WebResponce Is Nothing Then
WebResponce.Close()
End If
Catch exError As Exception
Return exError.Message
End Try
End Function

Public Sub Page_Load(sender As Object, e as System.EventArgs)
Dim OutString As String
OutString = GetASALinksData()
ASALinks.Text = OutString

End Sub