پر کردن spinner با گت المنت

[vahid_2231 6]

درود دوستان من دقیقا کاری که میخوام بکنم نمونه اش داخل این سایت هست حالا بگین چرا جواب نمی تونم بگیرم .

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

ادرس سایت http://www.time.ir
 

Sub Globals
	Dim WebView1 As WebView
	Dim WebViewExtras1 As WebViewExtras
	Dim HttpJob1 As HttpJob
	Dim spinner1 As Spinner
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Lay")
   
    HttpJob1.Initialize("Myjob2" , Me)
	'WebView1.Initialize("WebView2")
	WebViewExtras1.addJavascriptInterface(WebView1 , "B4A")
	WebViewExtras1.addWebChromeClient(WebView1 , "")
	WebView1.LoadUrl("http://www.time.ir/")
End Sub
Sub process_HTML(HTML As String)
	HTML = HTML.Replace("""" , "'")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub WebView1_PageFinished (Url As String)
		WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.documentElement.outerHTML)")
		WebViewExtras1.executeJavascript(WebView1,"document.getElementsByTagName('option ').value='value'")
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
	WebViewExtras1.executeJavascript(WebView1,"document.getElementsByTagName('option ').value='value'")
End Sub

[asheune 70]

 

درود دوستان من دقیقا کاری که میخوام بکنم نمونه اش داخل این سایت هست حالا بگین چرا جواب نمی تونم بگیرم .

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

ادرس سایت http://www.time.ir

 

Sub Globals
	Dim WebView1 As WebView
	Dim WebViewExtras1 As WebViewExtras
	Dim HttpJob1 As HttpJob
	Dim spinner1 As Spinner
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Lay")
   
    HttpJob1.Initialize("Myjob2" , Me)
	'WebView1.Initialize("WebView2")
	WebViewExtras1.addJavascriptInterface(WebView1 , "B4A")
	WebViewExtras1.addWebChromeClient(WebView1 , "")
	WebView1.LoadUrl("http://www.time.ir/")
End Sub
Sub process_HTML(HTML As String)
	HTML = HTML.Replace("""" , "'")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub WebView1_PageFinished (Url As String)
		WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.documentElement.outerHTML)")
		WebViewExtras1.executeJavascript(WebView1,"document.getElementsByTagName('option ').value='value'")
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
	WebViewExtras1.executeJavascript(WebView1,"document.getElementsByTagName('option ').value='value'")
End Sub

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

 

ctl00_cphTop_Sampa_Web_View_EphemerisUI_EphemerisByCity11cphTop_3414_ddlProvince

 

انجام میگیره درحالی که شما تو کدنویسی بوسیله tag name مقدار دهی کردی