مشکل لود picturebox

[0935880]

سلام خسته نباشید دوستان
من میخوام تو این لینک
http://92.42.49.87:8080/mtn_ir-dms-s...ge&mtlocale=fa
کپچای اون را لود کنم داخل picturebox برنامه
اما هرکاری میکنم نمیشه
دوستان لطفا کمک کنید

[ژیار رحیمی]

سلام فکر کنم از بعد امنیتی سایت کار درستی نباشه کد شما کد captcha رو تو اپلیکیشن خودت لود کنی .اگر واجبه که حتما کد رو داشته باشی باید چیزی مثل خزنده که محتویات سایت رو میگیره بنویسی که تصویر کپچا رو ازش استخراج کنی و تو برنامه ت داشته باشی

[0935880]

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

{            Invoke(new Action(delegate

            {

                HtmlElementCollection x = webBrowser1.Document.GetElementsByTagName("img");

                foreach (HtmlElement a in x)

                    if (a.GetAttribute("id").Equals("id89"))

                        pictureBox1.Load(a.GetAttribute("src"));

            }));

        }

اما متاسفانه مشکلی که اینجا دارم id98 متغیره یعنی هر سری یه چیزیه
توی یک برنامه دیدم که لود میکنه ولی نمیدونم چطوری
کسی راهی داره ؟؟؟

[reza_ali202000]

سلام
id بقیه عکس ها ثابت هست و همیشه مثلا ده تا عکس ثابت هست و یکی متغییر.
حالا شما یه آرایه از پیش تعریف شده بنویسید که عمل مقایسه id هایی رو که پیدا کردین انجام بده. اگه این عکس با این آی دی توی ارایتون نبود پس حتما همین کپچا هست.

[0935880]

دوست گرامی میتونید همین را پیاده سازی کنید درصورتی که وقتش را دارید
من که هنوز به نتیجه ای نرسده ام
ایا امکانش هست

id98 مثلا را به گونه ای بدهی که مقدار اون = مقدار داخل وب بشه ؟

[0935880]

کسی نبود کمک کنه ؟

[tefos666]

نمیدونم منظورتون رو درست متوجه شدم یا نه ولی ببین این کارت رو راه می اندازه یانه

Dim doc As mshtml.IHTMLDocument2 = DirectCast(WebBrowser1.Document, mshtml.IHTMLDocument2)

Dim sobj As mshtml.IHTMLSelectionObject = doc.selection

Dim body As mshtml.HTMLBody = TryCast(doc.body, mshtml.HTMLBody)

sobj.empty()

Dim range As mshtml.IHTMLControlRange = TryCast(body.createControlRange(), mshtml.IHTMLControlRange)

Dim img As mshtml.IHTMLControlElement = DirectCast(WebBrowser1.Document.Images(broj), mshtml.IHTMLControlElement)

range.add(img)

range.[select]()

range.execCommand("Copy", False, Nothing)

Dim bimg As New Bitmap(Clipboard.GetImage())

Me.PictureCaptcha.Image = bimg

Me.PictureCaptcha.Image.Save(ime, System.Drawing.Imaging.ImageFormat.Jpeg)

[tefos666]

اینم ببینید بد نیست


http://www.codertrick.com/2011/07/ge...box-vbnet.html