karem2074
چهارشنبه 13 فروردین 1393, 02:30 صبح
با سلام
دوستان من میخوام قسمتی از اطلاعات یک سایت رو در label1 نمایش دهم.فرضا سایت چک کردن اپراتور آیفون رو در نظر گرفتم.
آدرس سایت www.iphoneimei.info (http://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
این کد من هستش.اما ارور میده.قسمتی از اطلاعات رو که میخوام دریافت کنم اینه:
http://p30up.ir/images/ziene35i6m1xuabyba1y.png
خواهشا کمک کنید.
دوستان من میخوام قسمتی از اطلاعات یک سایت رو در label1 نمایش دهم.فرضا سایت چک کردن اپراتور آیفون رو در نظر گرفتم.
آدرس سایت www.iphoneimei.info (http://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
این کد من هستش.اما ارور میده.قسمتی از اطلاعات رو که میخوام دریافت کنم اینه:
http://p30up.ir/images/ziene35i6m1xuabyba1y.png
خواهشا کمک کنید.