رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase
  • 0

مشکل با گت المنت

sajjadrastin

سوال شده توسط sajjadrastin,

سوال

sajjadrastin

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'))")

که نمیدونم چجوری ادرس المنت رو معرفی کنم
المنتی که میخام معرقی کنم برای گت استرینگ:
Untitled.png

لطفا کمکم کنید و کد ها را اصلاح کنید

خیلی نیاز دارم 

ممنون میشم کمکم کنید

 

کد های کامل: 

#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 پاسخ به این سوال تاکنون داده شده است

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

devil_v9

devil_v9 13

ارسال شده در
ارسال شده در
در 7 ساعت قبل، sajjadrastin گفته است :

سلام

من میحام از یک سایت زمان اذان رو با گت المنت به دست بیارم.

لینک سایت:

اوقات شرعی

من کد های زیر رو نوشنم ولی داده اذان رو دریافت نمیکنه: 


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'))")

که نمیدونم چجوری ادرس المنت رو معرفی کنم
المنتی که میخام معرقی کنم برای گت استرینگ:
Untitled.png

لطفا کمکم کنید و کد ها را اصلاح کنید

خیلی نیاز دارم 

ممنون میشم کمکم کنید

 

کد های کامل: 


#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

لطفا کمک کنید.

منتظرم

در 7 ساعت قبل، sajjadrastin گفته است :

سلام

من میحام از یک سایت زمان اذان رو با گت المنت به دست بیارم.

لینک سایت:

اوقات شرعی

من کد های زیر رو نوشنم ولی داده اذان رو دریافت نمیکنه: 


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'))")

که نمیدونم چجوری ادرس المنت رو معرفی کنم
المنتی که میخام معرقی کنم برای گت استرینگ:
Untitled.png

لطفا کمکم کنید و کد ها را اصلاح کنید

خیلی نیاز دارم 

ممنون میشم کمکم کنید

 

کد های کامل: 


#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

لطفا کمک کنید.

منتظرم

سلام من انجامش دادم اینم نمونه نهاییش از همون سایتی که  بالا معرفی کردید استفاده شده .. سورس کامل فروخته می شود.

280888a1_ae93_4a47_b73b_2ed7c697ef20.jpg

Com.MMgSoft.PrayerTime-1

 

پیغام خصوصی بدین.

 

 

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

بایگانی شده

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

رفتن به لیست سوال ها

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

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