سوال داشتم خدمت دوستان هرچند پیش پا افتاده ولی مهم برای بنده،
سورس زیر رو مشاهده کنید
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
HttpJob1.Initialize("myjob1",Me)
'WebView1.Initialize("WebView1")
WebViewExtras1.addJavascriptInterface(WebView1,"B4A")
WebViewExtras1.addWebChromeClient(WebView1,"")
WebView1.LoadUrl("http://ve.cbi.ir/TasTrace.aspx")
End Sub
Sub WebView1_pagefinished(url As String)
WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('Process_HTML',true,document.documentElement.outerHTML)")
End Sub
Sub Process_HTML(HTML As String)
HTML = HTML.Replace("""","'")
Dim captcha As String
captcha = "ctl00_ContentPlaceHolder1_btnTrace/kaptcha.jpg"
HttpJob1.Download(captcha)
ProgressDialogShow("Updating...")
End Sub
Sub JobDone(job As HttpJob)
imgcaptcha.Bitmap =job.GetBitmap
imgcaptcha.Gravity =Gravity.FILL
ProgressDialogHide
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btnLogin_Click
' ctl00_ContentPlaceHolder1_btnTrace
WebViewExtras1.executeJavascript(WebView1,"document.getElementById('ctl00_ContentPlaceHolder1_btnTrace').click();")
End Sub
Sub txtMob_TextChanged (Old As String, New As String)
'ctl00$ContentPlaceHolder1$tbIDNo
WebViewExtras1.executeJavascript(WebView1,"document.getElementByName('ctl00$ContentPlaceHolder1$tbIDNo')[0].value ='"&New&"';")
End Sub
Sub txtcaptcha_TextChanged (Old As String, New As String)
'ctl00$ContentPlaceHolder1$tbTraceCD
WebViewExtras1.executeJavascript(WebView1,"document.getElementByName('ctl00$ContentPlaceHolder1$tbTraceCD')[0].value ='"&New&"';")
End Sub
حالا میبینیم که تو کد گت المنت کردیم، با زدن دکمه بوتون اطلاعات ارسال میشه، میخوام خروجی سایت رو که اطلاعات به ما میده به طور مثال:
<span id="ctl00_ContentPlaceHolder1_labErrMsg" style="color:#CC3300;font-family:Tahoma;font-size:8pt;font-weight:bold;">شماره ملی یا کد رهگیری نامعتبر است !</span>
میخواهم پیام ارور مشاهده بشه در صورت اشتباه وارد کردن و در یک لیبل نشان داده بشه،
سوال
Mehdi-Signal 4
سلام خسته نباشید به همگی
سوال داشتم خدمت دوستان هرچند پیش پا افتاده ولی مهم برای بنده،
سورس زیر رو مشاهده کنید
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("main") HttpJob1.Initialize("myjob1",Me) 'WebView1.Initialize("WebView1") WebViewExtras1.addJavascriptInterface(WebView1,"B4A") WebViewExtras1.addWebChromeClient(WebView1,"") WebView1.LoadUrl("http://ve.cbi.ir/TasTrace.aspx") End Sub Sub WebView1_pagefinished(url As String) WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('Process_HTML',true,document.documentElement.outerHTML)") End Sub Sub Process_HTML(HTML As String) HTML = HTML.Replace("""","'") Dim captcha As String captcha = "ctl00_ContentPlaceHolder1_btnTrace/kaptcha.jpg" HttpJob1.Download(captcha) ProgressDialogShow("Updating...") End Sub Sub JobDone(job As HttpJob) imgcaptcha.Bitmap =job.GetBitmap imgcaptcha.Gravity =Gravity.FILL ProgressDialogHide End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub btnLogin_Click ' ctl00_ContentPlaceHolder1_btnTrace WebViewExtras1.executeJavascript(WebView1,"document.getElementById('ctl00_ContentPlaceHolder1_btnTrace').click();") End Sub Sub txtMob_TextChanged (Old As String, New As String) 'ctl00$ContentPlaceHolder1$tbIDNo WebViewExtras1.executeJavascript(WebView1,"document.getElementByName('ctl00$ContentPlaceHolder1$tbIDNo')[0].value ='"&New&"';") End Sub Sub txtcaptcha_TextChanged (Old As String, New As String) 'ctl00$ContentPlaceHolder1$tbTraceCD WebViewExtras1.executeJavascript(WebView1,"document.getElementByName('ctl00$ContentPlaceHolder1$tbTraceCD')[0].value ='"&New&"';") End Subحالا میبینیم که تو کد گت المنت کردیم، با زدن دکمه بوتون اطلاعات ارسال میشه، میخوام خروجی سایت رو که اطلاعات به ما میده به طور مثال:
میخواهم پیام ارور مشاهده بشه در صورت اشتباه وارد کردن و در یک لیبل نشان داده بشه،
ور در صورت درست وارد کردن اطلاعات،
نام:
با تشکر
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.