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

[mostafa.kasiri 115]

سلام 

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

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

web.executeJavascript(WebView1,"document.getElementsByName('username')[0].value = '"&New&"';")

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

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

web.executeJavascript(WebView1,"document.getElementsByClassName('btn btn-primary btn-block')[0].click()")

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

Sub WebView1_PageFinished (Url As String)
	ProgressDialogHide
	web.executeJavascript(WebView1,"learnnet.CallSub('process_HTML',true,document.documentElement.outerHTML)")
End Sub
Sub Process_HTML(HTML As String)
	HTML = HTML.Replace("""","'")
	Msgbox(HTML,"")
End Sub

چی کار کنم: 

اینم کل کد ها 

#Region  Project Attributes 
	#ApplicationLabel: نجفی دو
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region
Sub Process_Globals
End Sub
Sub Globals
	Private WebView1 As WebView
	Private EditText1 As EditText
	Private EditText3 As EditText
	Private ImageView1 As ImageView
	Private btnlogin As Label
	Private btnrefresh As Button
	Private EditText2 As EditText
	Dim web As WebViewExtras
	Dim pn As PNCaptchaPicker
	Dim th As Thread
	Dim my As MyWebViewClient
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layoutlogin")
	web.AddJavascriptInterface(WebView1,"learnnet")
	web.addWebChromeClient(WebView1,"")
	pn.Initialize
	pn.AddNewJavaScriptInterface(WebView1)
	my.Initialize(WebView1,"WebView1")
	WebView1.LoadUrl("http://najafi2school.ir/newpanels/")
ProgressDialogShow2("gf",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.CallSub('process_HTML',true,document.documentElement.outerHTML)")
'		web.executeJavascript(webview1,"learnnet.cullsub('get_username',true,documen.getElementByClassName('user-company-name').innertext)")
	pn.Exequte(WebView1,"getcaptcha","document.getElementById('captcha_img')[0]")
End Sub
Sub Process_HTML(HTML As String)
	HTML = HTML.Replace("""","'")
	Msgbox(HTML,"")
End Sub
Sub getcaptcha(img As Object)
	th.Initialise("")
	th.RunOnGuiThread("setbitmap",Array As Object(img))
End Sub
Sub setbitmap(bitmap As Object)
	ImageView1.Bitmap=bitmap ' کردن کپتچا روي ايميج ويو
End Sub
Sub btnmenu_Click
	
End Sub

Sub EditText1_TextChanged (Old As String, New As String)
	'web.executeJavascript(WebView1,"document.getElementsByName('username')[0].value = '"&New&"';")
End Sub
Sub EditText2_TextChanged (Old As String, New As String)
	'web.executeJavascript(WebView1,"document.getElementsByName('password')[0].value = '"&New&"';")

End Sub
Sub EditText3_TextChanged (Old As String, New As String)
'	web.executeJavascript(WebView1,"document.getElementsByName('captcha')[0].value = '"&New&"';")
End Sub
Sub btnlogin_Click
	web.executeJavascript(WebView1,"document.getElementsByName('username')[0].value = '"&EditText1.Text&"';")
	web.executeJavascript(WebView1,"document.getElementsByName('password')[0].value = '"&EditText2.Text&"';")
	web.executeJavascript(WebView1,"document.getElementsByName('captcha')[0].value = '"&EditText3.Text&"';")
	web.executeJavascript(WebView1,"document.getElementsByClassName('btn btn-primary btn-block')[0].click()")
End Sub

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

[mostafa.kasiri 115]

Up

[mostafa.kasiri 115]

یعنی از بین این همه اساتید کسی نیست که ۵ دقیقه وقتش رو در اختیار ما بزاره

آقای ایزدی آقای نیکروان و.... کجایید؟

[asheune 70]

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

یعنی از بین این همه اساتید کسی نیست که ۵ دقیقه وقتش رو در اختیار ما بزاره

آقای ایزدی آقای نیکروان و.... کجایید؟

درود

باید اول ادرستو دقیق بررسی کنی ببینی همون صفحه لود میشه

الان من ادرستو زدم صفحه اصلی خطای نسخه مرورگر اورد و کادری نداشت!

بعد منتقل میشه به صفحه

http://najafi2school.ir/newpanels/?bypassBrowserVersionValidation=true

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

Sub EditText1_TextChanged (Old As String, New As String)
	web.executeJavascript(WebView1,"document.getElementsByClassName('form-control')[0].value = '"&New&"';")
End Sub
Sub EditText2_TextChanged (Old As String, New As String)
	web.executeJavascript(WebView1,"document.getElementsByClassName('form-control')[1].value = '"&New&"';")
End Sub
Sub EditText3_TextChanged (Old As String, New As String)
	web.executeJavascript(WebView1,"document.getElementsByClassName('form-control')[2].value = '"&New&"';")
End Sub
Sub btnlogin_Click
	web.executeJavascript(WebView1,"document.getElementsByClassName('btn btn-primary btn-block')[0].click();")
End Sub

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

[mostafa.kasiri 115]

سلام بازم کل مقدار ادیت تکست رو داخل کل وب ویو قرار میده 

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

[mostafa.kasiri 115]

Up

[پژمان نیکروان 6,055]

سلام

من زیاد متوجه نشدم الان مشکل چیه. ولی اگه میخواین تکست باکس های username و password سایت و دکمه ورودش رو ارتباط بدید با بیسیک.

 

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

web.executeJavascript(WebView1,"document.getElementsByName('username')[0].value = '"&EditText1.Text&"';")
	web.executeJavascript(WebView1,"document.getElementsByName('password')[0].value = '"&EditText2.Text&"';")

اینم برای کلیک روی دکمه:

web.executeJavascript(WebView1,"document.getElementById('loginBtn').click();")

 

در در 1396/11/03, 19:40:20، mostafa.kasiri گفته است :

web.executeJavascript(WebView1,"learnnet.CallSub('process_HTML',true,document.documentElement.outerHTML)")

برای نمایش کل کدها هم کدتون درسته. منتها دقت بکنید که کد رو کجا قرار میدید. مثلا ممکنه زمانی کدهارو بخواین که اصلا رویداد pageFinish اتفاق نیوفته... همین کد رو توی یه کلیک باتن بذارید تست کنید.

[mostafa.kasiri 115]

سلام آقای نیکروان من این کد رو توی pagefinish گذاشتم یعنی کامل لود شده ولی هیچ انجام نمیده و اومد توی باتن هم گذاشتم ولی بازم هیچی انجام نداد

در 1 ساعت قبل، پژمان نیکروان گفته است :

web.executeJavascript(WebView1,"learnnet.CallSub('process_HTML',true,document.documentElement.outerHTML)")

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

Sub EditText1_TextChanged (Old As String, New As String)
	web.executeJavascript(WebView1,"document.getElementsByName('username')[0].value = '"&New&"';")
End Sub
Sub EditText2_TextChanged (Old As String, New As String)
	web.executeJavascript(WebView1,"document.getElementsByName('password')[1].value = '"&New&"';")
End Sub
Sub EditText3_TextChanged (Old As String, New As String)
	web.executeJavascript(WebView1,"document.getElementsByName('captcha')[2].value = '"&New&"';")
End Sub
Sub btnlogin_Click
	web.executeJavascript(WebView1,"document.getElementById('loginBtn').click();")
	web.executeJavascript(WebView1,"learnnet.CallSub('process_HTML',true,document.documentElement.outerHTML)")
End Sub

اینطوری هم امتحان کردم نشد 

Sub EditText1_TextChanged (Old As String, New As String)
'	web.executeJavascript(WebView1,"document.getElementsByName('username')[0].value = '"&New&"';")
	web.executeJavascript(WebView1,"document.getElementsByName('username')[0].value = '"&New&"';")

End Sub
Sub EditText2_TextChanged (Old As String, New As String)
'	web.executeJavascript(WebView1,"document.getElementsByName('password')[1].value = '"&New&"';")
	web.executeJavascript(WebView1,"document.getElementsByName('password')[0].value = '"&New&"';")
End Sub
Sub EditText3_TextChanged (Old As String, New As String)
'	web.executeJavascript(WebView1,"document.getElementsByName('captcha')[2].value = '"&New&"';")
	web.executeJavascript(WebView1,"document.getElementsByName('captcha')[0].value = '"&New&"';")
End Sub
Sub btnlogin_Click
	web.executeJavascript(WebView1,"document.getElementById('loginBtn').click();")
	web.executeJavascript(WebView1,"learnnet.CallSub('process_HTML',true,document.documentElement.outerHTML)")
End Sub

چی کار کنم ؟

[davoodebrahimi 16]

سلام وقت بخیر

کدهات همونطور که دوستان گفتن درسته؛برای ادیت تکست دوم هم کد زیر رو استفاده کن(سایت مشکل داره نمیشه داخل تگ گذاشت)

Sub EditText3_TextChanged (Old As String, New As String)
    web.executeJavascript(WebView1,"document.getElementsByName('captcha')[0].value = '"&EditText3.Text&"';")
End Sub

با این کد ها ادیت تکست رو که پر میکنی؛تو وب ویو هم نشون میده که حروفات داخل سایت نوشته میشه؛ادیت تکست سوم رو از نوع عدد بذار چون همیشه عدد گذاشته میشه؛؛یوزر نیم هم محدودیت کاراکتر داره که اون رو هم باید اعمال کنی؛فک کنم بین 6 تا 32 کاراکتر نوشته تو سایت

با همه این کارها؛ادیت تکست هات پر میشن,کد باتن هم درسته  اما اون کار اصلی انجام نمیشه انگاری دکمه کار نمیکنه اما مشکل از دکمه نیست؛؛

توی سایت وقتی روی ادیت تکست کلیک میشه و نوشته میشه؛بعد که رفتی رو ادیت تکست بعدی؛؛ادیت تکست اولی سبز میشه به معنی اینه که نوشته داخلش تایید شد,,اما شما تو برنامه همچین چیزی نداری

احتمالا اینطوریه که وقتی روی ادیت تکست دوم کلیک میکنی؛یک کدی؛سابی،آجاکسی چیزی اجرا میشه و متن ادیت تکست رو تایید میکنه که من نگاه کردم متوجه نشدم؛دوستان دیگه این موضوع رو متوجه شن شاید بهتر بتونن کمکت کنن

[mostafa.kasiri 115]

سلام 

من مشکل با ادیت تکست ها دارم که مقادیر رو وارد در اذیت تکست ویو ویو نمی کنه اگر مشکل سایت هست بشون بگم چی کار کنم؟ که سایت درست بشه

و آیا راه دیگه ای هست که بتونم انجام بدم؟وب سرویس ندارن

[davoodebrahimi 16]

من منظورم از این که سایت مشکل داره؛همین انجمن بود که به سختی میشه وارد شد و بخوای لینکی بذاری میگه مشکلی برای بارگذاری  بوجود آمده.

کدات که درست بود من کدای خود شمارو تست کردم(البته بصورت ساده که فقط پرشدن ادیت تکستارو ببینم)

در هر حال سورسی که خودم تست کردم رو براتون میذارم

getElement

 

[mostafa.kasiri 115]

سلام ممنون از شما مشکل از ورژن کتابخانه بود WebViewExtras