آرشیو برای آبان ۳م, ۱۳۸۴
WebClient
خیلی وقت ها می توان از قسمتی از سایت های دیگر استفاده کرد و در سایت خود بهره برد !!! مثل هوا شناسی ، whois و….
کد زیر قسمتی از سایت مورد نظر را توسط دو تگ اولی و آخری انتخاب و در label نمایش می دهد
با دستور replace هم می توانید قسمت جدا شده را برای خود کاملا customize نمایید
Imports System.Net
Dim firstLevelbufData As String
Dim strURL As String = http://www.yahoo.com
Dim web As New WebClient
Dim bufData As Byte()
bufData = web.DownloadData(strURL)
firstLevelbufData = Encoding.Default.GetString(bufData)
‘ entekhabe ghesmate morede nazar az first ta laste
Dim first, last As String
first = “tag avval”
last = “tag akhar”
Dim RE As New Regex(first + “(?
Dim m As Match = RE.Match(firstLevelbufData)
txtResult.Text += m.Groups(“MYDATA”).Value