رفتن به مطلب
  • 0

گرفتن اسم عکس


Mr.Kafiri

سوال

سلام بچها..

من با کتابخونه WebViewExtras کد های html یه سایت رو میگرم

Sub Globals	
	Dim WebViewExtras1 As WebViewExtras
	Dim WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("layoutMain")

	WebViewExtras1.addJavascriptInterface(WebView1, "B4A")
	WebView1.LoadUrl("https://cafebazzar.ir")
End Sub

Sub WebView1_PageFinished (Url As String)
	Dim Javascript As String
	Javascript="B4A.CallSub('ProcessHTML', false, document.documentElement.outerHTML)"
	Log("PageFinished: "&Javascript)
	WebViewExtras1.executeJavascript(WebView1, Javascript)
End Sub

Sub ProcessHTML(Html As String)
	Log("ProcessHTML: "&Html)
End Sub

وقتی کد صفحه وب رو برمیگردونه.. 

درون صفحه وب 3 تا عکس وجد داره که تغیر میکنن .. من میخوام اسم اون 3 تا عکس رو بگیرم.. این 3 تا عکس یه چیزی مثل کپچا هستن..

<td><div id="cimg1"><img width="35" height="55" src="images/capchs/9.png"></div></td>     
<td><div id="cimg2"><img width="35" height="55" src="images/capchs/2.png"></div></td>
<td><div id="cimg3"><img width="35" height="55" src="images/capchs/7.png"></div></td>

چیکار باس بکنم؟؟؟؟؟

پیشاپیش ممنون از راهنماییتون:give_heart:

-----------------------------------------------------------------------------------------------------------

کد کامل صفحه:

html.zip

برید به لاین 172 ، 173 ، 174 خودتون میبینید..

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

هر لاینتو تو یک استرینگ بگیر

اول تا قسمت اسم جدا کن اینطوری

sURL = sURL.SubString(sURL.LastIndexOf("/")+1)

بعدشم بیا قسمت اخرش ک تک html رو حذف کن

 

sURL = sURL.Replace("></div></td>","")

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...