[Amin_Mansouri]

آموزش ساخت اسپمر تبلیغاتی برای بلاگفا (قسمت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

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

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

کد:

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")

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

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


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


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