آموزش ساخت اسپمر تبلیغاتی برای بلاگفا (قسمت2) | دانلود نرم افزار ، گرافیک - علی بزرگ

دانلود نرم افزار ، گرافیک – علی بزرگ

 

بازی خورها ، بازی آنلاین ، بازی فلش


آموزش ساخت اسپمر تبلیغاتی برای بلاگفا (قسمت۲)

این آموزش ادامه قسمت اول است ، اگر قسمت اول را مشاهده نکرده اید اینجا را کلیک کنید.
در این قسمت از آموزش ساخت برنامه تبلیغاتی ، به نحوه یافتن آخرین مطلب ارسال شده و ارسال پیام به مطلب مورد نظر می پردازیم.

 

آموزش ساخت اسپمر تبلیغاتی برای بلاگفا (قسمت2)

 

روشی که قصد داریم با آن برنامه مان را طراحی کنیم با سرعت پایین اینترنت بسیار مفید و کارآمد است.
در قسمت قبلی وبلاگهای بروز شده را درون برنامه فهرست کردیم.
در اینجا می خواهیم آخرین مطلب ارسال شده هر وبلاگ را بدست آورده و پیام خود را به صورت خودکار درون صفحه درج کنیم.
ابتدا یک لیست باکس دیگر با نام List2 به فرمتان اضافه کنید ، خاصیت Visable این لیست باکس هم بروی False قرار دهید.
در وبلاگهای بلاگفا صفحه ای با نام posts وجود دارد که تمام مطالب ارسال شده وبلاگ را نمایش می دهد.
با توجه به اینکه قبلاًً فهرستی از وبلاگهای بروزشده را درون List1 فهرست کرده ایم حال برای دسترسی به این صفحه از کد زیر استفاده می کنیم:

 

WebBrowser1.Navigate List1.List(0) & “posts/”

 

پس اجرای کد بالا و رفتن به صفحه موردنظر بدست آوردن آخرین مطلب ارسال شده بسیار ساده است،کافیست از کد زیر استفاده کنیم.

For i = 1 To 1
str = WebBrowser1.Document.links.Item(i)
List2.AddItem (WebBrowser1.Document.links.Item(i))
Next i

در اینجا لینک آخرین مطلب ارسال شده را بدست آورده ایم، اما هدف اصلی ما بدست آوردن لینک صفحه ارسال نظر است.
برای بدست آوردن لینک صفحه ارسال نظر به ۲ چیز احتیاج داریم:
۱ – نام وبلاگ
۲ – شماره مطلب

برای بدست آوردن لینک صفحه ارسال نظر می توانیم از لینک مطلب که در بالا بدست آورده ایم استفاده کنیم.
در اینجا باید نام وبلاگ و شماره مطلب را از لینک بدست آورد شده استخراج کنیم.
اینکار را می توانیم به روش زیر انجام دهیم:

 

Str2 = Replace(Str2, “http://”, “”)
Str2 = Replace(Str2, “www.”, “”)
For i = 1 To 50
Str3 = Left(Str2, i)
If Left(Str2, i + 11) = Str3 & “.blogfa.com” Then
Exit For
End If
Next

 

البته راه های دیگری مانند استفاده از split هم قابل استفاده است.
خب ، تا اینجا آی دی وبلاگ را بدست آورده ایم،حالا می رویم سروقت شماره پست:

 

Str2 = Replace(Str2, “.blogfa.com”, “”)
Str2 = Replace(Str2, Str3, “”)
Str2 = Replace(Str2, “/”, “”)
Str2 = Replace(Str2, “\”, “”)
Str2 = Replace(Str2, “post-”, “”)
Str2 = Replace(Str2, “.aspx”, “”)

 

شماره پست هم که بدست آمد،حالا نتیجه ی کار:

WebBrowser1.Navigate  (“http://” & Str3 & “.blogfa.com/comments/?blogid=” & Str3 & “&postid=” & Str2 & “&” & “timezone=12642″)

در کد بالا برنامه را به نشانی صفحه نظرات هدایت کرده ایم، در ادامه برنامه باید بتواند به صورت خودکار پیغام و مشخصات را در صفحه نظرات درج کند.

نکته مهم: روش های بالا روش اصولی نیست (یا به قولی من در آوردی است) اما مفید و کارآمد است ، در برخی از کدها از روشهای غیرمعمول استفاده شده است.
اسپمری که در سایت علی بزرگ قرار داده شده است (AB Comment Sender) هم بر طبق همین روش عمل می کند.

در قسمت بعدی که آخرین قسمت هم می باشد ضمن تکمیل برنامه و افزودن چند قابلیت حرفه ای یک نمونه اسپمر ساخته شده به همین روش نیز به صورت سورس کد ارایه می شود.

توجه:
به دلیل فارسی بودن و نوع فونت استفاده شده در این صفحه ممکن است پس از کپی کردن کدها درون ویژوال بیسیک علامت ( ” ) به شکل دیگری درج شود و کدها با رنگ قرمز نشان داده شوند، در اینصورت علامت ( ” ) را به صورت دستی اصلاح کنید. یا می توانید فایل متنی همبن آموزش را از لینک زیر دانلود کنید:

 

دانلود آموزش ساخت اسپمر با حجم ۶ کیلوبایت

 

ادامه این آموزش بزودی…..

 

 

مطالب مرتبط:


تعداد بازدید : 58 ، پنجشنبه, ۲۰ مرداد, ۱۳۹۰ ، دسته بندي آموزش, برنامه نویسی, محصولات ما



آیلا در ۱۳۹۰/۰۵/۲۳ گفته :

بنده عضو جمعیت خیریه در تبریز هستم ما برای طراحی پوستر وبنر تبلیغاتی نیازمند کمک یک فرد خیر و ماهر هستیم شما میتونید لطف کرده در این زمینه به ما کمک کنید ؟



هیرسا در ۱۳۹۰/۰۵/۲۵ گفته :

اقا علی قسمت بعدی رو بزار دیگه منتظریم



مسلم فلاح نیت در ۱۳۹۰/۰۶/۲۵ گفته :

سلام دوست من خسته نباشید من یه دانشجو هستم می خواستم یه پروژه تحویل بدم زیادم وضعیت مالی خوبی ندارم بتونم یه پروژه اماده بخرم از شما واقعا به عنوان برادرم خواهش می کنم منو در نوشتن یه اسپمر ساده برای بلاگفا راهنمایی کنید در گوگل س جوستجور می کردم به سایت شما رسیدم منتظر جواب شما هستم داداش بچه مشهدم برم امام رضا براتون دعا می کنم



saber در ۱۳۹۰/۰۹/۱۷ گفته :

آقا دمت گرم
قسمت آخرم بزار تا حالی که دادی تکمیل بشه



kasra در ۱۳۹۱/۰۲/۱۹ گفته :

سلام
چطور میشه همزمان وقتی صفحه ارسال نظرات لود میشه کد کپچا هم نمایش داده بشه من هر کاری که میشد از keypress و sendkey استفاده کردم اما ظاهرا جواب نمیده شما میتونید بگید چطور این کارو میشه انجام داد ؟
ممنون میشم

سلام دوست عزیز ، برای بازشدن کد کپچا باید داخل قسمت نظرات کلیک بشه. با شبیه سازی کلیک روی تکست باکس نظرات می تونید اینکارو انجام بدید.
اگه از کنترل WebBrowserاستفاده می کنید این کد رو استفاده کنید:
WebBrowser1.Document.All(“cmtb”).Click



kasra در ۱۳۹۱/۰۲/۲۰ گفته :

سلام مجدد
ممنون از پاسخ شما ولی این کد رو خودم قبلا استفاده کرده بودم و کار نمی کنه . توجه داشته باشید که باید وقتی فکوس روی نظرات هست هر کلیدی که از روی کیبرد زده میشه باعث نمایش کپچا میشه و با کلیک کردن هیچ اتفاقی نمی افته . راه دیگه ای به ذهنتون میرسه ؟
باز هم ممنونم



kasra در ۱۳۹۱/۰۲/۲۱ گفته :

دوست عزیز سلام
ظاهرا شما هم راهی سراغ ندارید
ممنون از توجهتون



نام شما *
ایمیل * (نمایش داده نمی شود)
سایت شما


Copyright 2010 - All right reserved