در مورد کپتچا گت المنت

[Angry Fox 48]

سلام

من وقتی میخام با گت المنت کپچا رو بخونم.وب ویو یه کپچا مثلا :5MAFJ رو نشون میده و لی ایمیج ویو من یه کپچا دیگه رو نشون میده

لطفا کمک کنید

[Angry Fox 48]

الان 4 ساعته در گیرشم

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

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

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim WebViewExtras1 As WebViewExtras
    Dim HttpJob1 As HttpJob
    Dim WebView1 As WebView  
    Private EditText1 As EditText
    Private cptcha As ImageView
    Private login As Button
    Private shomare As EditText
    Private write_captcha As EditText
    Private EditText2 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("form1")
    Activity.LoadLayout("ds")
    HttpJob1.Initialize("mohsen",Me)
'    WebView1.Initialize("webview1")
    WebViewExtras1.addJavascriptInterface(WebView1,"B4A")
    WebViewExtras1.addWebChromeClient(WebView1,"")
    WebView1.LoadUrl("http://estelam.rahvar120.ir/index.jsp?siteid=1&fkeyid=&siteid=1&pageid=2371666")

End Sub
Sub WebView1_pagefinished (url As String)
WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.documentElement.outerHTML)")  
'WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('get_date',true,document.getElementById('Math.random').innerText)")
'WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('get_ip',true,document.getElementById('Math.random').innerText)")
End Sub
'Sub get_ip(ip2 As String)
'EditText2.Text = ip2
'End Sub
Sub process_HTML(HTML As String)
HTML = HTML.Replace("""","'")
EditText1.Text = HTML
Dim captcha As String
captcha = HTML.SubString(HTML.IndexOf("'/includes/captcha.jpg?rand="+"Math.random")+1)
captcha = "http://estelam.rahvar120.ir/?siteid=1&fkeyid=&siteid=1&pageid=2371666"&captcha.SubString2(0,captcha.IndexOf("'")-0)
HttpJob1.Download(captcha)
ProgressDialogShow("در حال خواندن کپتچا ")
End Sub
'Sub get_date(today As String)
'date.Text = today
'End Sub
Sub jobdone (job As HttpJob)
cptcha.Bitmap = job.GetBitmap
cptcha.Gravity = Gravity.FILL
ProgressDialogHide
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

'Sub login_Click
'
'    WebViewExtras1.executeJavascript(WebView1,"document.getElementById('LoginButton').click();")
'End Sub

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

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

Sub login_Click
    WebViewExtras1.executeJavascript(WebView1,"document.getElementById('submit').click();")
End Sub

در هم اکنون، Angry Fox گفته است :

الان 4 ساعته در گیرشم

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

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

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim WebViewExtras1 As WebViewExtras
    Dim HttpJob1 As HttpJob
    Dim WebView1 As WebView  
    Private EditText1 As EditText
    Private cptcha As ImageView
    Private login As Button
    Private shomare As EditText
    Private write_captcha As EditText
    Private EditText2 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("form1")
    Activity.LoadLayout("ds")
    HttpJob1.Initialize("mohsen",Me)
'    WebView1.Initialize("webview1")
    WebViewExtras1.addJavascriptInterface(WebView1,"B4A")
    WebViewExtras1.addWebChromeClient(WebView1,"")
    WebView1.LoadUrl("http://estelam.rahvar120.ir/index.jsp?siteid=1&fkeyid=&siteid=1&pageid=2371666")

End Sub
Sub WebView1_pagefinished (url As String)
WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.documentElement.outerHTML)")  
'WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('get_date',true,document.getElementById('Math.random').innerText)")
'WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('get_ip',true,document.getElementById('Math.random').innerText)")
End Sub
'Sub get_ip(ip2 As String)
'EditText2.Text = ip2
'End Sub
Sub process_HTML(HTML As String)
HTML = HTML.Replace("""","'")
EditText1.Text = HTML
Dim captcha As String
captcha = HTML.SubString(HTML.IndexOf("'/includes/captcha.jpg?rand="+"Math.random")+1)
captcha = "http://estelam.rahvar120.ir/?siteid=1&fkeyid=&siteid=1&pageid=2371666"&captcha.SubString2(0,captcha.IndexOf("'")-0)
HttpJob1.Download(captcha)
ProgressDialogShow("در حال خواندن کپتچا ")
End Sub
'Sub get_date(today As String)
'date.Text = today
'End Sub
Sub jobdone (job As HttpJob)
cptcha.Bitmap = job.GetBitmap
cptcha.Gravity = Gravity.FILL
ProgressDialogHide
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

'Sub login_Click
'
'    WebViewExtras1.executeJavascript(WebView1,"document.getElementById('LoginButton').click();")
'End Sub

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

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

Sub login_Click
    WebViewExtras1.executeJavascript(WebView1,"document.getElementById('submit').click();")
End Sub

این کدیه که من نوشتم اما کپچایی که توی ایمیج ویو نشون میده با کپچایی که توی سایت هست فرق میکنه

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

سلام برادر

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

 

از عنوان مناسب استفاده کنید و همچنین قبل از 12ساعت به تاپیک پاسخ ارسال نکنید.

جوابتون هم:

کتابخانه PNCaptchaPicker - گرفتن هرنوع کپتچاهای تصویری از وب ویو بصورت Bitmap - مرتبط با فروشگاه - مرکز پاسخگویی به سوالات برنامه نویسی