من میخوام صفحه ایرانسل رو که ssl داره توی وب ویو لود کنم
ولی صفحه سفید میاره
با مرورگر خوده گوشی میرم هم یه خطایی میاره که بعد قبول کردنه اون صفحه سایت رو لود میکنه
توی سایت مرجع گشتم ولی به این کد ها رسیدم و اصلا کمکم نکرد
Sub Process_Globals
End Sub
Sub Globals
Dim LogonUrl As String="https://trakcarelabwebview.nhls.ac.za/trakcarelab/csp/logon.csp"
Dim WebView1 As WebView
Dim WebViewExtras1 As WebViewExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("WebView1")
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
WebViewExtras1.Initialize(WebView1)
Dim WebChromeClient1 As DefaultWebChromeClient
WebChromeClient1.Initialize("WebChromeClient1")
WebViewExtras1.SetWebChromeClient(WebChromeClient1)
WebView1.LoadUrl(LogonUrl)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub WebChromeClient1_ConsoleMessage(ConsoleMessage1 As ConsoleMessage) As Boolean
Log("WebChromeClient1_ConsoleMessage")
Log(ConsoleMessage1.Message)
End Sub
Sub WebView1_PageFinished (Url As String)
Log("WebView1_PageFinished")
If Url=LogonUrl Then
Dim Javascript As StringBuilder
Javascript.Initialize
Javascript.Append("document.forms.fSSUser_Logon.USERNAME.value='foo';")
Javascript.Append("document.forms.fSSUser_Logon.PASSWORD.value='bar';")
' uncomment next line to auto submit the logon form
' be careful - if logon fails then the webpage will be reloaded
' and an infinite loop of failed logons is likely
' Javascript.Append("document.forms.fSSUser_Logon.submit();")
WebViewExtras1.ExecuteJavascript(Javascript.ToString)
Log("Form updated")
End If
End Sub
سوال
amir00700 66
سلام
من میخوام صفحه ایرانسل رو که ssl داره توی وب ویو لود کنم
ولی صفحه سفید میاره
با مرورگر خوده گوشی میرم هم یه خطایی میاره که بعد قبول کردنه اون صفحه سایت رو لود میکنه
توی سایت مرجع گشتم ولی به این کد ها رسیدم و اصلا کمکم نکرد
Sub Process_Globals End Sub Sub Globals Dim LogonUrl As String="https://trakcarelabwebview.nhls.ac.za/trakcarelab/csp/logon.csp" Dim WebView1 As WebView Dim WebViewExtras1 As WebViewExtras End Sub Sub Activity_Create(FirstTime As Boolean) WebView1.Initialize("WebView1") Activity.AddView(WebView1, 0, 0, 100%x, 100%y) WebViewExtras1.Initialize(WebView1) Dim WebChromeClient1 As DefaultWebChromeClient WebChromeClient1.Initialize("WebChromeClient1") WebViewExtras1.SetWebChromeClient(WebChromeClient1) WebView1.LoadUrl(LogonUrl) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub WebChromeClient1_ConsoleMessage(ConsoleMessage1 As ConsoleMessage) As Boolean Log("WebChromeClient1_ConsoleMessage") Log(ConsoleMessage1.Message) End Sub Sub WebView1_PageFinished (Url As String) Log("WebView1_PageFinished") If Url=LogonUrl Then Dim Javascript As StringBuilder Javascript.Initialize Javascript.Append("document.forms.fSSUser_Logon.USERNAME.value='foo';") Javascript.Append("document.forms.fSSUser_Logon.PASSWORD.value='bar';") ' uncomment next line to auto submit the logon form ' be careful - if logon fails then the webpage will be reloaded ' and an infinite loop of failed logons is likely ' Javascript.Append("document.forms.fSSUser_Logon.submit();") WebViewExtras1.ExecuteJavascript(Javascript.ToString) Log("Form updated") End If End Sub
ممنون میشم کمک کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.