مشکل در باز کردن تصویر کپچا در فرم

[ssaamm1]

دوستان من با این کد یه مشکل دارم تصویر کپچا رو که میخام واسم باز نمیکنه یه تصویر دیگه رو باز میکنه


Dim A As Object Set A = WebBrowser1.Document.body.createControlRange()
Call A.Add(WebBrowser1.Document.Images.Item(WebBrowser1 .Document.Images.Length - 1))
Call A.execCommand("Copy")
Set Picture1.Picture = Clipboard.GetData

اگه میشه یه کد رو بهم معرفی کنید که اون تصویر که مد نظر من هست رو فقط واسم باز کنه ممنون میشم

[ssaamm1]

یعنی یه نفر جوابشو نمیدونه؟؟

[Dr Saeed]

لینک اون صفحه رو قرار بدید بیشتر میتونم کمک کنم

[ایلیا آخوندزاده]

دکترجان باید اول دستور کپجا کامل بشه بعد با لینک ور بری وگرنه فقط با لینک کار حل نمیشه.
اگه میشه شما پروژه تونو ضمیمه کنید تابراتون درست کنم.

[ssaamm1]

لینک اون صفحه رو قرار بدید بیشتر میتونم کمک کنم

عزیز مثلا واسه این سایت میخام فرمم کد کپچاشو بخونه

http://qoooqle.ir/send_link

یه سایت رز بلاگ وقتی کد رو میزارم به جای کد کپچا یه عکس دیگه رو باز میکنه


:اشتباه:

[ssaamm1]

دکترجان باید اول دستور کپجا کامل بشه بعد با لینک ور بری وگرنه فقط با لینک کار حل نمیشه.
اگه میشه شما پروژه تونو ضمیمه کنید تابراتون درست کنم.

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

http://qoooqle.ir/send_link

[Dr Saeed]

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

http://qoooqle.ir/send_link


با سلام




Private Sub Command1_Click()
Dim O As Object
Set O = WebBrowser1.Document.body.createControlRange()
Call O.Add(WebBrowser1.Document.Images.Item(WebBrowser1 .Document.Images.Length - 2))
Call O.execCommand("Copy")

Set Picture1.Picture = Clipboard.GetData
End Sub


Private Sub Form_Load()
WebBrowser1.Navigate "http://qoooqle.ir/send_link"
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
WebBrowser1.Navigate "javascript:showcaptcha();"
End Sub