من کد های زیر رو نوشنم ولی داده اذان رو دریافت نمیکنه:
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("get")
HttpJob1.Initialize("Myjob1" , Me)
WebView1.Initialize("WebView1")
WebViewExtras1.addJavascriptInterface(WebView1 , "B4A")
WebViewExtras1.addWebChromeClient(WebView1 , "")
WebView1.LoadUrl("http://www.tabnak.ir/fa/prayer")
End Sub
Sub WebView1_PageFinished(URL As String)
WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.documentElement.outerHTML)")
WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.getElementById('ptime_row').children(0).getAttribute('ptime_col2'))")
End Sub
ادامش زیاد مهم نیست
که نمیدونم چجوری ادرس المنت رو معرفی کنم
المنتی که میخام معرقی کنم برای گت استرینگ:
لطفا کمکم کنید و کد ها را اصلاح کنید
خیلی نیاز دارم
ممنون میشم کمکم کنید
کد های کامل:
#Region Project Attributes
#ApplicationLabel: get
#VersionCode: 1
#VersionName:
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim king As StringUtils
Dim t As AutoCompleteEditText
Dim WebViewExtras1 As WebViewExtras
Dim WebView1 As WebView
Private Date As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("get")
WebView1.Initialize("WebView1")
WebViewExtras1.addJavascriptInterface(WebView1 , "B4A")
WebViewExtras1.addWebChromeClient(WebView1 , "")
WebView1.LoadUrl("http://www.tabnak.ir/fa/prayer")
End Sub
Sub WebView1_PageFinished(URL As String)
WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.documentElement.outerHTML)")
WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.getElementById('ptime_row').children(0).getAttribute('ptime_col2'))")
End Sub
Sub process_HTML(HTML As String)
HTML = HTML.Replace("""" , "'")
t.Text = HTML
ToastMessageShow(HTML,True)
End Sub
Sub Get_Date(Today As String)
Date.Text = Today
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
سوال
sajjadrastin 100
سلام
من میحام از یک سایت زمان اذان رو با گت المنت به دست بیارم.
لینک سایت:
اوقات شرعی
من کد های زیر رو نوشنم ولی داده اذان رو دریافت نمیکنه:
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("get") HttpJob1.Initialize("Myjob1" , Me) WebView1.Initialize("WebView1") WebViewExtras1.addJavascriptInterface(WebView1 , "B4A") WebViewExtras1.addWebChromeClient(WebView1 , "") WebView1.LoadUrl("http://www.tabnak.ir/fa/prayer") End Sub Sub WebView1_PageFinished(URL As String) WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.documentElement.outerHTML)") WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.getElementById('ptime_row').children(0).getAttribute('ptime_col2'))") End Sub ادامش زیاد مهم نیست
قسمتی که مشکل داره اینجاست:
WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.getElementById('ptime_row').children(0).getAttribute('ptime_col2'))")
که نمیدونم چجوری ادرس المنت رو معرفی کنم
المنتی که میخام معرقی کنم برای گت استرینگ:
لطفا کمکم کنید و کد ها را اصلاح کنید
خیلی نیاز دارم
ممنون میشم کمکم کنید
کد های کامل:
#Region Project Attributes #ApplicationLabel: get #VersionCode: 1 #VersionName: #SupportedOrientations: portrait #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals End Sub Sub Globals Dim king As StringUtils Dim t As AutoCompleteEditText Dim WebViewExtras1 As WebViewExtras Dim WebView1 As WebView Private Date As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("get") WebView1.Initialize("WebView1") WebViewExtras1.addJavascriptInterface(WebView1 , "B4A") WebViewExtras1.addWebChromeClient(WebView1 , "") WebView1.LoadUrl("http://www.tabnak.ir/fa/prayer") End Sub Sub WebView1_PageFinished(URL As String) WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.documentElement.outerHTML)") WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.getElementById('ptime_row').children(0).getAttribute('ptime_col2'))") End Sub Sub process_HTML(HTML As String) HTML = HTML.Replace("""" , "'") t.Text = HTML ToastMessageShow(HTML,True) End Sub Sub Get_Date(Today As String) Date.Text = Today End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub
لطفا کمک کنید.
منتظرم
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.