رفتن به اکتیوتی با گت المنت

[vahid_2231 6]

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

1) اگر رمز یا نام کاربری اشتباه بود داخل یه لیبل بهم پیغام نشون بده .

2) اگر رمز و یوزر درست بود به اکتیویتی جدید بره و مطالب رو داخل یه لیست ویو ببینم .

 

این کدها رو با استفاده از اموزش اقای ایزدی زدم .

Sub Globals

Dim WebView1 As WebView
Dim HttpJob1 As HttpJob
Dim WebViewExtras1 As WebViewExtras

    Dim t As Timer
	Private btnlogin As Button
	Private EditText1 As EditText
	Private imgCaptcha As ImageView
	Private txtCaptcha As EditText
	Private txtPassword As EditText
	Private txtUsername As EditText
	Private lbldate As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("Lay")
    HttpJob1.Initialize("Myjob1" , Me)

	WebViewExtras1.addJavascriptInterface(WebView1 , "B4A")
	WebViewExtras1.addWebChromeClient(WebView1 , "")
	WebView1.LoadUrl("http://85.9.66.43/eOffice/login.aspx")
	
End Sub

Sub WebView1_PageFinished(URL As String)
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.documentElement.outerHTML)")

	'WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('warp',true,document.getElementById('ctl00_mainContentPlaceHolder_invalidUserLabel').innerText)")
End Sub

Sub process_HTML(HTML As String)
	HTML = HTML.Replace("""" , "'")

End Sub


Sub txtUsername_TextChanged (Old As String, New As String)
	'ctl00$mainContentPlaceHolder$txtUserName

    WebViewExtras1.executeJavascript(WebView1,"document.getElementsByName('ctl00$mainContentPlaceHolder$txtUserName')[0].value='"&New&"';")

End Sub

Sub txtPassword_TextChanged (Old As String, New As String)
	'ctl00$mainContentPlaceHolder$txtPassword
	  WebViewExtras1.executeJavascript(WebView1,"document.getElementsByName('ctl00$mainContentPlaceHolder$txtPassword')[0].value='"&New&"';")
End Sub


Sub btnlogin_Click
	'ctl00_mainContentPlaceHolder_btnOk ورود
	'ctl00_mainContentPlaceHolder_invalidUserLabel  رمز اشتباه
	 WebViewExtras1.executeJavascript(WebView1,"document.getElementById('ctl00_mainContentPlaceHolder_btnOk').click();")

End Sub