ارسال متن تکست باکس به فرم ارسال نظرات

[hossein161]

سلام
من یه اسپمر درست کردم که دو تا چیز مونده تا تکمیل بشه
1- کپی پیست کردن متن درون تکست باکس (مثلا نام) به قسمت ارسال نظرات (نام)
2- بعد از ارسال نظر به یه وبلاگ ، خودکار به وبلاگ بعدی بره
با ایمیل جواب بدین h16hossein@gmail.com
ایشالا برنامه رو بهتون میدم (اونی که منو به جوابم برسونه)

[سید حمید حق پرست]

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

یا علی (ع)

[hossein161]

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

یا علی (ع)

از وب بروزر
شما یه سورس بده که نام-ایمیل-وبسایت-متن -کپتچا رو به این آدرس بفرسته با وب بروزر . یعنی لود کنه بعد از اتمام لود کپی کنه
parvaz-club-650.blogfa.com/comments/?blogid=parvaz-club-650&postid=15&timezone=12600
بعد یه command هم بذار که کلیک کردن روش = کلیک کردن رو ارسال نظر باشه
مرسی

[saeedhord]

از وب بروزر
شما یه سورس بده که نام-ایمیل-وبسایت-متن -کپتچا رو به این آدرس بفرسته با وب بروزر . یعنی لود کنه بعد از اتمام لود کپی کنه
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

[farhadscript]

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

[hossein161]

این کد سومی رو کجا بذارم ؟
تو پیکچر باکس که خطا داد

[saeedhord]

این کد سومی رو کجا بذارم ؟
تو پیکچر باکس که خطا داد

این کد اخر رو رو قسمت documant complate بزارید بلگفا برای جلوگیری از اسپمر ها تا وقتی که قسمت پیغام داخل سایت پر نشه کد امنیتی رو نشون نمیده ( این بر میگرده به خلاقیت شما که چطور اون رو دور بزنی )

[hossein161]

واسه کد اولی هم اسم و ایمیل رو کپی میکنه ولی واسه آدرس و متن مینویسه [object]
مگه تکست باکس باید چه ویژگی ای داشته باشه تا درس کپی بشه؟

[سید حمید حق پرست]

این کد اخر رو رو قسمت documant complate بزارید بلگفا برای جلوگیری از اسپمر ها تا وقتی که قسمت پیغام داخل سایت پر نشه کد امنیتی رو نشون نمیده ( این بر میگرده به خلاقیت شما که چطور اون رو دور بزنی )
سلام علیکم
با کد زیر میشه دور زد :
WebBrowser1.Document.getElementById("txtcomment").focus
SendKeys "1"
SendKeys (vbBack)
موفق باشید.

یا علی (ع)

[hossein161]

این کد اخر رو رو قسمت documant complate بزارید بلگفا برای جلوگیری از اسپمر ها تا وقتی که قسمت پیغام داخل سایت پر نشه کد امنیتی رو نشون نمیده ( این بر میگرده به خلاقیت شما که چطور اون رو دور بزنی )

اینجای کد مشکل داره ظاهرا :
Set O = WebBrowser1.Document.body.createControlRange()
کنترل رنج چیه اصن ؟

[saeedhord]

اینجای کد مشکل داره ظاهرا :
Set O = WebBrowser1.Document.body.createControlRange()
کنترل رنج چیه اصن ؟

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

[hossein161]

حالا اون درس شد به این گیر میده :
Call O.Add(WebBrowser1.Document.Images.Item(WebBrowser1 .Document.Images.Length - 1))

[hossein161]

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

[saeedhord]

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


Webbrowser1.Document.All.Item("author").Value = Text1.Text
Webbrowser1.Document.All.Item("email").Value = Text2.Text
Webbrowser1.Document.All.Item("url").Value = Text3.Text
Webbrowser1.Document.All.Item("txtcomment").Value = Text4.Text
WebBrowser1.Document.All.Item("btnSend").click

اینو رو دکمت بنویس

[hossein161]

آقا کامل درس شد
یه دنیا ممنون
قضیه تکست هم ، تکست رو پاک کردم یکی دیگه درس کردم درس شد
ظاهرا نباید بعضی چیزاشو تغییر داد : مثلا تکست متن نباید گزینه مولتی لاینش true باشه
مرسی از همتون

[hossein161]

آقا کامل درس شد
یه دنیا ممنون
قضیه تکست هم ، تکست رو پاک کردم یکی دیگه درس کردم درس شد
ظاهرا نباید بعضی چیزاشو تغییر داد
مرسی از همتون

[hossein161]

داداش
به sendkeys هم گیر میده
نمیدونم چرا

[سید حمید حق پرست]

داداش
به sendkeys هم گیر میده
نمیدونم چرا
سلام علیکم
سورس نوشتم و ضمیمه کردم
مشکل نمایش کپچا هم دور زدم و خودکار لود میشه
البته بخاطر قوانین انجمن کامل ننوشتم و فقط متن های تکست باکس ها رو میفرسته و کپچا لود میکنه و روی دکمه ارسال کلیک میکنه، دیگه قسمت دادن لیست وبلاگ و ... با خودتون
برای اینکه به دستور sendkeys گیر نده باید بصورت کمپایل شده اجرا و تستش کنید.
موفق باشید.

یا علی (ع)

[hossein161]

بعد از کمپایل شدن دستور sendkeys رو اجرا میکنه ولی خطای runtime error "91" رو میده و بسته میشه

[سید حمید حق پرست]

بعد از کمپایل شدن دستور sendkeys رو اجرا میکنه ولی خطای runtime error "91" رو میده و بسته میشه
سورسی که قرار دادم این ارور میده؟
اگر اره سورس باز کنید، 2 تا دستور sendkeys رو پاک کنید و اجرا کنید ببینید از کجا ایراد میگیره

یا علی (ع)

[saeedhord]

بعد از کمپایل شدن دستور sendkeys رو اجرا میکنه ولی خطای runtime error "91" رو میده و بسته میشه

برنامه تست شد ! درست کار میکنه !

با تشکر از سید حمید حق پرست