کامل نیفتادن وب ویو

[mostafa.kasiri 115]

با سلام

من یک وب ویو و گت المنت و منو متریال دارم که هیچ مشکلی نداره ولی وقتی وارد نرم افزار  میشیم حدود 5 پیکسل وب ویو بالا تر میفته و کامل نیست ولی وقتی منو رو باز و بست می کنم درست میشه کد های اکتویویتی

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

Sub Process_Globals
	Dim timer1 As Timer
	Dim tm As Timer
	Dim user As Timer
End Sub
Sub Globals
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private EditText3 As EditText
	Private ImageView1 As ImageView
	Private webview1 As WebView
	Dim web As WebViewExtras
	Private Label1 As Label
	Private button1 As Button
	Private Button2 As Button
	Dim MDB As MSMaterialDrawerBuilder
	Dim MD As MSMaterialDrawer
				Dim SDB As SMDrawerItem
	Dim panel2 As Panel
	Dim pn As PNCaptchaPicker
	Dim th As Thread
	Dim my As MyWebViewClient
'	Dim SDB As SMDrawerItem
	Private Panel1 As Panel
	Dim p As CacheCleaner
End Sub
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("layout1")
	p.clearCache
	EditText1.TextColor= Colors.Black
	EditText2.TextColor= Colors.Black
	EditText3.TextColor= Colors.Black
	EditText2.Hint="پسورد"
	EditText3.Hint="کد امنیتی :"
	EditText1.Hint="نام کاربری"
	EditText1.HintColor=Colors.Black
	EditText2.HintColor=Colors.Black
	EditText3.HintColor=Colors.Black
	EditText1.Gravity=Gravity.RIGHT
	EditText2.Gravity=Gravity.RIGHT
	EditText3.Gravity=Gravity.RIGHT
	Label1.Gravity=Gravity.CENTER
	Label1.TextColor= Colors.Black
	Dim Txtsizes As Float
	Txtsizes=GetDeviceLayoutValues.approximatescreensize
	Dim Autotextsize As  Float=Txtsizes*3.3
	Dim Autotextsizebutton As  Float=Txtsizes*2.5
	EditText1.textsize=Autotextsize
	EditText2.textsize=Autotextsize
	EditText3.textsize=Autotextsize
	button1.textsize=Autotextsizebutton
	button1.Gravity = Gravity.TOP & Gravity.center
	button1.TextColor = Colors.Black


	web.AddJavascriptInterface(webview1,"learnnet")
	web.addWebChromeClient(webview1,"")
	pn.Initialize
	pn.AddNewJavaScriptInterface(webview1)
	my.Initialize(webview1,"WebView1")
	webview1.LoadUrl("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟")
	
	
	Label1.typeface = Typeface.LoadFromAssets("Byekan.ttf")
	EditText1.typeface = Typeface.LoadFromAssets("Byekan.ttf")
	EditText2.typeface = Typeface.LoadFromAssets("Byekan.ttf")
	EditText3.typeface = Typeface.LoadFromAssets("Byekan.ttf")
	button1.typeface = Typeface.LoadFromAssets("Byekan.ttf")
	Label1.typeface = Typeface.LoadFromAssets("Byekan.ttf")
	webview1.Visible=False
	webview1.ZoomEnabled=False
	tm.Initialize("tm",5)
	tm.Enabled = True
	user.Initialize("user",5)
	user.Enabled = True
	If webview1.Url.Contains("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟") Then
		webview1.Visible=False
		webview1.Enabled=False
		panel2.Visible = True
		panel2.Enabled = True
	Else
		webview1.Visible=True
		webview1.Enabled=True
		panel2.Visible = False
		panel2.Enabled = False
		ProgressDialogShow2("در حال بارگذاری",False)
	End If
	EditText2.PasswordMode = True
	Dim pnlHdr As Panel
	pnlHdr.Initialize("")
	pnlHdr.Color = Colors.DarkGray
	pnlHdr.Tag = "Header"
	Dim msa As MSAccountHeaderBuilder
	Dim HeaderBackground As BitmapDrawable
	HeaderBackground.Initialize(LoadBitmap(File.DirAssets,"download.png"))
	msa.Initialize("MSA")
	msa.withHeaderBackground(HeaderBackground)
	Dim MaterialHeaderResult As Object = msa.build
	Dim p1 As MSIconicDrawable : p1.Initialize("gmd_home")  : p1.Color = 0xffff4081
	Dim p2 As MSIconicDrawable : p2.Initialize("gmd_drafts"): p2.Color = 0xffff4081
	Dim p3 As MSIconicDrawable : p3.Initialize("gmd_person"): p3.Color = 0xffff4081
	Dim s1 As MSIconicDrawable : s1.Initialize("gmd_settings") : s1.Color = 0xffff4081
	Dim s2 As MSIconicDrawable : s2.Initialize("gmd_help") : s2.Color = 0xffff4081
	Dim s3 As MSIconicDrawable : s3.Initialize("faw_google_wallet") : s3.Color = 0xffff4081
	MDB.Initialize("MDB")
	MDB.Initialize("MD")
	MDB.withAccountHeader(MaterialHeaderResult)
	MDB.withDrawerGravity(Gravity.RIGHT)

	SDB.Initialize(MDB)
	
	
	SDB.AddPrimaryDrawerItem("صفحه اصلی"  , p1.Drawable ,p1.Drawable ,"" ,True,1, "",Typeface.LoadFromAssets("BYEKAN.ttf"))

		SDB.AddPrimaryDrawerItem("کاربران" , p2.Drawable ,p2.Drawable ,""   ,True,2, "",Typeface.LoadFromAssets("BYEKAN.ttf"))
		SDB.AddPrimaryDrawerItem("محدودیت ها"   , p3.Drawable ,p3.Drawable ,""    ,True,3, "",Typeface.LoadFromAssets("BYEKAN.ttf"))
		'SDB.AddSectionDrawerItem("More",True,Typeface.LoadFromAssets("BYEKAN.ttf"))
		SDB.AddPrimaryDrawerItem("کاربران آنلاین هات اسپات"     , s1 ,s1 ,""    ,True ,4, "",Typeface.LoadFromAssets("BYEKAN.ttf"))
		SDB.AddPrimaryDrawerItem("کاربران آنلاین ppp"   , s2 ,s2 ,""    ,True,5, "",Typeface.LoadFromAssets("BYEKAN.ttf"))
		SDB.AddPrimaryDrawerItem("خروج از پنل"   , s3 ,s3 ,""    ,True,6, "",Typeface.LoadFromAssets("BYEKAN.ttf"))
	MD = MDB.Build

End Sub
Sub MD_ItemClick(Position As Int, Identifier As Int)
	Log("Clicked:" & Position & " Iden:" & Identifier)
	If Position = 0 Then
		If webview1.Url.Contains("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟") = True Then
			ToastMessageShow("لطفا وارد شوید",False)
			

		Else
			webview1.LoadUrl("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟")
			ProgressDialogShow2("در حال بارگذاری..",False)
		End If
	End If
	If Position = 1 Then
		If webview1.Url.Contains("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟n") = True Then
			ToastMessageShow("لطفا وارد شوید",False)

		Else
			webview1.LoadUrl("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/")
			ProgressDialogShow2("در حال بارگذاری..",False)
		End If
	End If
	If Position = 2 Then
		If webview1.Url.Contains("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟") = True Then
			ToastMessageShow("لطفا وارد شوید",False)
		
		Else
			webview1.LoadUrl("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟")
			ProgressDialogShow2("در حال بارگذاری..",False)
		End If
	End If
	If Position = 3 Then
		If webview1.Url.Contains("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟") = True Then
			ToastMessageShow("لطفا وارد شوید",False)

		Else
			webview1.LoadUrl("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟")
			ProgressDialogShow2("در حال بارگذاری..",False)
		End If
	End If
	If Position = 4 Then
		If webview1.Url.Contains("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟") = True Then
			ToastMessageShow("لطفا وارد شوید",False)

		Else
			webview1.LoadUrl("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/")
			ProgressDialogShow2("در حال بارگذاری..",False)
		End If
	End If
	If Position = 5 Then
		If webview1.Url.Contains("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/") = True Then
			ToastMessageShow("لطفا وارد شوید",False)
		
		Else
			webview1.LoadUrl("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/")
			ProgressDialogShow2("در حال بارگذاری..",False)
		End If
	End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub webview1_pageFinished (Url As String)
	web.executeJavascript(webview1,"learnnet.cullsub('process_HTML',true,document.documentElment.outerHTML)")
	web.executeJavascript(webview1,"learnnet.cullsub('get_username',true,documen.getElementById('user-company-name').innertext)")
	pn.Exequte(webview1,"getcaptcha","document.getElementsByClassName('captcha-login')[0]")
	ProgressDialogHide
	If webview1.Url.Contains("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/") = True Then
		webview1.Visible=True
		webview1.Enabled = True
		panel2.Visible= False
		panel2.Enabled  = False
	Else
	End If
End Sub
Sub Process_HTML(HTML As String)
	HTML = HTML.Replace("""","'")
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 get_username(username As String)
	Label1.Text = username
End Sub
Sub EditText1_TextChanged (Old As String, New As String)
	web.executeJavascript(webview1,"document.getElementsByClassName('mtik-username tooltips')[0].value = '"&New&"'")
End Sub
Sub EditText2_TextChanged (Old As String, New As String)
	web.executeJavascript(webview1,"document.getElementsByClassName('mtik-password tooltips')[0].value = '"&New&"'")
End Sub
Sub EditText3_TextChanged (Old As String, New As String)'
	web.executeJavascript(webview1,"document.getElementsByClassName('mtik-captcha tooltips')[0].value = '"&New&"'")
End Sub
Sub Button1_Click
	web.executeJavascript(webview1,"document.getElementsByClassName('btn btn-block login-btn')[0].click();")

	If EditText1.Text= "" Then
		Msgbox("لطفا نام کاربری را وارد کنید","خطا")
	Else If EditText2.Text= "" Then
		Msgbox("لطفا پسورد را وارد کنید","خطا")
	Else
		timer1.Initialize("Timer1",2000)
		timer1.Enabled = True
		ProgressDialogShow2("لطفا صبر کنید",False)
	End If
End Sub
Sub Button2_Click
	MD.OpenDrawer
End Sub
Sub timer1_Tick
	timer1.Enabled = False
	If webview1.Url.Contains("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟")= True Then
		webview1.Visible=True
		webview1.Enabled = True
		panel2.Visible = False
		panel2.Enabled  = False
		EditText1.Text=""
		EditText2.Text=""
		EditText3.Text=""
		ProgressDialogHide
	Else
		ProgressDialogHide
		Msgbox("مشخصات اشتباه است","خطا")
		EditText1.Text=""
		EditText2.Text=""
		EditText3.Text=""
		
	End If
End Sub
Sub tm_Tick
	If webview1.Url.Contains("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟")= True Then
		webview1.Visible=False
		webview1.Enabled=False
		panel2.Visible = True
		panel2.Enabled = True
	End If
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		Dim i As Int
		i = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
		If i = DialogResponse.POSITIVE Then
			ExitApplication
		Else If i = DialogResponse.CANCEL Then
			Return True
		Else If i = DialogResponse.NEGATIVE Then
		End If
	Else If KeyCode = KeyCodes.KEYCODE_MENU  Then
		
	End If
End Sub
Sub user_Tick
	web.executeJavascript(webview1,"learnnet.cullsub('get_username',true,documen.getElementById('user-company-name').innertext)")
End Sub

اینم کد های دیزاینر

 

Panel1.SetLeftAndRight(0%X,100%X)
Panel1.SetTopAndBottom(0%Y,9%Y)
	Button2.SetLeftAndRight(87%X,97%X)
	 Button2.SetTopAndBottom(1%Y,8%Y)
		Label1.SetLeftAndRight(0%X,87%X)
		Label1.SetTopAndBottom(0%Y,9%Y)
			WebView1.SetLeftAndRight(0%X,100%X)
			WebView1.SetTopAndBottom(9%Y,100%Y)
				ImageView2.SetLeftAndRight(0%X,100%X)
				ImageView2.SetTopAndBottom(9%Y,100%Y)
					Button1.SetLeftAndRight(13%X,87%X)
					Button1.SetTopAndBottom(41%Y,46%Y)
						EditText1.SetLeftAndRight(14%X,75%X)
						EditText1.SetTopAndBottom(16%Y,21%Y)
							EditText2.SetLeftAndRight(14%X,75%X)
							EditText2.SetTopAndBottom(23.5%Y,30%Y)								
								EditText3.SetLeftAndRight(46%X,75%X)								
								EditText3.SetTopAndBottom(34%Y,39%Y)
										ImageView1.SetLeftAndRight(15%X,46%X)
										ImageView1.SetTopAndBottom(32.5%Y,38%Y)
												Panel2.SetLeftAndRight(0%X,100%X)
												Panel2.SetTopAndBottom(30%Y,100%Y)