من با کتابخونه 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 تا عکس یه چیزی مثل کپچا هستن..
سوال
Mr.Kafiri 221
سلام بچها..
من با کتابخونه 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 تا عکس یه چیزی مثل کپچا هستن..
چیکار باس بکنم؟؟؟؟؟
پیشاپیش ممنون از راهنماییتون
-----------------------------------------------------------------------------------------------------------
کد کامل صفحه:
html.zip
برید به لاین 172 ، 173 ، 174 خودتون میبینید..
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.