نوشته شده توسط
hossein161
از وب بروزر
شما یه سورس بده که نام-ایمیل-وبسایت-متن -کپتچا رو به این آدرس بفرسته با وب بروزر . یعنی لود کنه بعد از اتمام لود کپی کنه
parvaz-club-650.blogfa.com/comments/?blogid=parvaz-club-650&postid=15&timezone=12600
بعد یه command هم بذار که کلیک کردن روش = کلیک کردن رو ارسال نظر باشه
مرسی
با سلام
اینطور که مشخصه شما فقط فرم رو طراحی کردید !
اینطوری بنویس
یه webbrowser بزار
بعد اون قسمت رو با وب بروز باز کن
name تکس باکس داخل سایت رو بدست بیار بعد اینطوری واسش مقدار داخل تکس باکستو بفرست
Webbrowser1.Document.All.Item("name textboxe").Value = Text1.Text
برای کلیک کردن رویه دکمه send هم اینطوری بنویس
WebBrowser1.Document.All.Item("Name On dokme).click
برای لود کردن captcha هم اینطوری بنویس
Dim O As Object
Set O = WebBrowser1.Document.body.createControlRange()
Call O.Add(WebBrowser1.Document.Images.Item(WebBrowser1 .Document.Images.Length - 1))
Call O.execCommand("Copy")
Set Picture1.Picture = Clipboard.GetData