مشکل در گت المنت

[mostafa.kasiri 115]

با سلام

من این کد هارو نوشتم اما کار نمی کنه مشکل از چی هست>؟

 

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
End Sub
Sub Globals
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private webview1 As WebView
	Dim web As WebViewExtras
End Sub 
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("L2222")
	webview1.LoadUrl("http://portal.userman.net")
	web.AddJavascriptInterface(webview1,"learnnet")
	web.addWebChromeClient(webview1,"")
	ProgressDialogShow2("loadding",False)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
 Sub webview1_pageFinished (Url As String)
ProgressDialogHide
web.executeJavascript(webview1,"learnnet.cullsub('getHtml',true,document.documentElment.outerHTML)")
 End Sub
Sub getHTML(amir As String)
amir= amir.Replace("""","'")	
End Sub
Sub EditText1_TextChanged (Old As String, New As String)
	web.executeJavascript(webview1,"document.getElementsByClassName('mtik-username tooltips').value='"&New&"';")
End Sub
Sub EditText2_TextChanged (Old As String, New As String)
	web.executeJavascript(webview1,"document.getElementsByClassName('mtik-password tooltips').value='"&New&"';")
End Sub
Sub Button1_Click
	web.executeJavascript(webview1,"document.getElementsByClassName('btn btn-block login-btn')[0].click();")
End Sub

 

[mostafa.kasiri 115]

با سلام 

مشکلم حل شد

فقط الان یک مشکل دیگه هم دارم 

که نمیدونم چه طوری اگر نام کاربری یا پسورد رو اشتباه زد تو لیبل بگه اشتباه هست

این سایت:

 

ممنون میشم سریع بگید

یعنی هر وقت تو سایت خطا داد منم یا تو لیبل یا تو مسیج باکس نمایش بدم

[مهدی ایزدی 9,203]

در 59 دقیقه قبل، mostafa.kasiri گفته است :

با سلام 

مشکلم حل شد

فقط الان یک مشکل دیگه هم دارم 

که نمیدونم چه طوری اگر نام کاربری یا پسورد رو اشتباه زد تو لیبل بگه اشتباه هست

این سایت:

http://portal.userman.net

ممنون میشم سریع بگید

یعنی هر وقت تو سایت خطا داد منم یا تو لیبل یا تو مسیج باکس نمایش بدم

درود

تئوری میگم... عملی با خودتون

توی webview page finished بیایید و سعی کنید متن خطا رو  GetElements کنید

متن خطا هم خب بدون شک ثابت و مشخص هستش دیگه...

اگر متن مورد نظر  برگشت داده شد یا همون رو نشون بدید یا متن مورد نظر خودتون

در غیر این صورت خطا نداشته و لاگین شده....(واسه این هم باز میتونید شرط بزارید که اگه url اون چیزی بود که مربوط به login success هستش...)

[mostafa.kasiri 115]

سلام 

ممنون آقای ایزدی

اما نتونستماز راه این رفتم که اگر دکمه زد و آدرس سایت وارد پنل شد که هیچی اما اگر وارد نشد خطا بده

در 1 ساعت قبل، مهدی ایزدی گفته است :

توی webview page finished بیایید و سعی کنید متن خطا رو  GetElements کنید

متن خطا هم خب بدون شک ثابت و مشخص هستش دیگه...

اما مطمئنم کد هام اشتباه هست اگر لطف کنید کدش رو قرار بدید

و اینکه دفعه اولم هست دارم با  المنت کار می کنم و این رو بلد نیستم

ممنون میشم اگر بهتر توضیح بدین

[mostafa.kasiri 115]

 سلام

من این رو پیدا کردم اما کجا باید این کد رو بزارم

document.getElementsByClassName(gritter-item-wrapperr')[0].innerHTML

 

[mostafa.kasiri 115]

با این دستور دستور ایف هم رفتم اما نشد 

تو ساب باتن قرار دادم

If webview1.Url.Contains("https://portal.userman.net/welcome")=True Then
	Else
		Label1.Text = "خطا"
End If

 

[مهدی ایزدی 9,203]

در 23 دقیقه قبل، mostafa.kasiri گفته است :

با این دستور دستور ایف هم رفتم اما نشد 

تو ساب باتن قرار دادم

If webview1.Url.Contains("https://portal.userman.net/welcome")=True Then
	Else
		Label1.Text = "خطا"
End If

 

ببینید دوست عزیز

شما این رو توی رویداد Page Finished قرار بدید :

	If Url.Contains("https://portal.userman.net/welcome") Then
		Label1.text = "وارد شدید"
	Else
		Label1.text = "خطا در لاگین"
	End If

 

و بگید وقتی لاگین میشید متن Label اونجور که تعریف شده تغییر میکنه یا خیر ؟