لاگین اینستاگرام

[محمدی 95]

سلام دوستان

در راستای تهیه یه اپ برای نمایش درست یا غلط بودن پسوورداینستاگرام  از طریق گت المنت بودیم و تا یه جاهایی رسیدیم اما باز به مشکل خوردیم 

 

لطف  میکنید ببینید مشکلش چیه؟

 

اینم کد 

Sub Process_Globals

End Sub

Sub Globals
    Dim HttpJob1 As HttpJob
    Dim WebViewExtras1 As WebViewExtras
    Dim WebView1 As WebView
    Private EditText1 As EditText
    Private EditText2 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("get")
    HttpJob1.Initialize("Myjob1" , Me)
    'WebView1.Initialize("WebView1")
    WebViewExtras1.addJavascriptInterface(WebView1 , "B4A")
    WebViewExtras1.addWebChromeClient(WebView1 , "")
    WebView1.LoadUrl("https://www.instagram.com/accounts/login/")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    WebViewExtras1.executeJavascript(WebView1,"document.getElementsByClassName('_ah57t _84y62 _i46jh _rmr7s')[0].click();")
End Sub

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

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

لاگین اینستاگرام.zip