دریافت قسمتی از اطلاعات یک سایت!!!
با سلام
دوستان من میخوام قسمتی از اطلاعات یک سایت رو در label1 نمایش دهم.فرضا سایت چک کردن اپراتور آیفون رو در نظر گرفتم.
آدرس سایت www.iphoneimei.info
اگر بخوام شماره سریال رو در textbox1 وارد کنم و با زدن دکمه Check به سایت وصل بشه و اطلاعات رو دریافت کنم کد های زیر رو نیاز دارم.این کد من هستش.اما ارور میده.قسمتی از اطلاعات رو که میخوام دریافت کنم اینه:
Dim serialnumber as String = Textbox1.text
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WebBrowser1.Visible = False
WebBrowser1.Navigate("http://iphoneimei.info/?imei=" & serialnumber)
EndSub
MsgBox(WebBrowser1.Document.GetElementById("سور س سایت").InnerText)
'مقدار مورد نظر ما نیست
'صبر میکنیم تا صفحه آپدیت شود
Dim checking As Boolean = True
While checking
Application.DoEvents()
If InStr(WebBrowser1.Document.GetElementById("سور سایت").InnerText) > 0 Then
label1.Text = (WebBrowser1.Document.GetElementById("سورس سایت").InnerText)
checking = False
End If
End While
خواهشا کمک کنید.
پاسخ با نقل قول
نوشته شده توسط shahryari
