من این کد هارو نوشتم اما کار نمی کنه مشکل از چی هست>؟
#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
با سلام
من این کد هارو نوشتم اما کار نمی کنه مشکل از چی هست>؟
#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
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.