Angry Fox 48 ارسال شده در 13 فروردین، ۱۳۹۶ اشتراک گذاری ارسال شده در 13 فروردین، ۱۳۹۶ سلام من وقتی میخام با گت المنت کپچا رو بخونم.وب ویو یه کپچا مثلا :5MAFJ رو نشون میده و لی ایمیج ویو من یه کپچا دیگه رو نشون میده لطفا کمک کنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Angry Fox 48 ارسال شده در 13 فروردین، ۱۳۹۶ سازنده اشتراک گذاری ارسال شده در 13 فروردین، ۱۳۹۶ الان 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 ارسال شده در 13 فروردین، ۱۳۹۶ اشتراک گذاری ارسال شده در 13 فروردین، ۱۳۹۶ سلام برادر یه سوال؟ اگر کسی با مشکل شما روبرو شد باید سرچ کنه: کمک کنیییید گت المنتتتتتتتتتت؟؟؟ از عنوان مناسب استفاده کنید و همچنین قبل از 12ساعت به تاپیک پاسخ ارسال نکنید. جوابتون هم: کتابخانه PNCaptchaPicker - گرفتن هرنوع کپتچاهای تصویری از وب ویو بصورت Bitmap - مرتبط با فروشگاه - مرکز پاسخگویی به سوالات برنامه نویسی لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
Angry Fox 48
سلام
من وقتی میخام با گت المنت کپچا رو بخونم.وب ویو یه کپچا مثلا :5MAFJ رو نشون میده و لی ایمیج ویو من یه کپچا دیگه رو نشون میده
لطفا کمک کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.