ذخيره تصوير تصادفي از يك فايل PHP

[Parviz-Turk]

با سلام

دوستان من يه سايت رو تو كنترل WebBrowser لود ميكنم - حالا اون يه كپچا داره - به src عكس كپچا هم نگاه ميكني اينه : http://site.com/image.php

يعني نميشه از طريق لينك يا Inet خود اون كپچا رو ذخيره كنم. ميخواستم بدونم WB خودش يه ويژگي نداره كه بشه همون عكس كه رو صفحه است رو ذخيره كنه - مثلا وقتي سايت رو با IE باز ميكنم رو عكس كپچا راست كليك-سيو ميزنم عكس ذخيره ميشه

حالا من اين كار رو با كدهاي VB چجوري انجام بدم و از چي استفاده كنم؟

فقط خيلي واجبه فوري لازم دارم پروژه دانشگاهه. خوهشا كمك كنين.

[SlowCode]

سلام
شما اول باید لینک تصویر رو از سورس صفحه پیدا کنی(با webbrowser) یعد اون عکس رو دانلود کنی.
الان تو کدوم قسمت مشکل داری؟ دانلود کردن؟

[Parviz-Turk]

نه عزيز گفتم كه دانلود ميشه - فقط چون صفحه PHP هست اگه بخواي دانلود كني هر بار يه عكس تصادفي ميده بهت - من ميخوام درست همون عكسي كه تو WB مياره سيو بشه - چون تو پر كردن فرم بايد همون كپچا كد باشه.

كارمو هم گفتم - دقيقا همون جوري كه تو Firefox يا IE رو يه عكس راست كليك-سيو رو ميزنيم عكس ذخيره ميشه. ولي اون كارو ميخوام با كد انجام بدم.

اين هم يه نمونش :

آدرس صفحه : http://www2.raidcall.com/user/signup

آدرس كپچا كد : http://www2.raidcall.com/ajax/captcha

يعني تو الان آدرس كپچا كد رو رفرش كني هر بار يه تصوير تازه مياره واست

[sidsed]

منم اين مشكل رو دارم لطفا كسايي بلدن كمك كنن:ناراحت:

[niksalehi]

میتونین اول صفحه رو با وب براوزر لود کنین ، بعد کپچا رو از وب براوزر copy کنین و توی پیکچرباکس paste کنینش!

[reza13812]

سلام.
این به دردت میخوره...

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.raidcall.com/user/signup"
End Sub

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

[aliforever]

سلام.
این به دردت میخوره...

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.raidcall.com/user/signup"
End Sub

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

من اسیر این کدم چند روزه :d دستت طلا داداش واقعا ممنون