[Amin_Mansouri]

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

این آموزش در محیط برنامه نویسی ویژوال بیسیک۶ می باشد.

ابتدا ویژوال بسیک را اجرا کنید و یک پروژه با حالت Standard EXE ایجاد کنید
دکمه های Ctrl و T را همزمان برروی کیبورد فشار دهید تا پنجره کامپوننت ضاهر شود.
در پنجره کامپوننت گزینه های زیر را تیک را زده و بعد OK کنید

کد:

Microsoft Internet Transfer Control 6.0
Microsoft Internet Control

سپس کنترل های زیر را به فرم اصلی اضافه کنید:

کد:

۲ عدد CommandButton
5 عدد TextBox
1 عدد WebBrowser
1 عدد Inet
1 عدد ListBox
6 عدد Label

خب می رویم سر اصل مطلب…

در قسمت کدنویسی کدهای زیر را درج کنید:

کد:

Dim str As String

Dim str2 As String

Dim str3 As String

Private Sub Form_Load()

Me.Height = 7170

Me.Width = 10080

WebBrowser1.Move 120, 120, 6495, 6375

Text1.Move 6840, 360, 3015, 285

Text2.Move 6840, 960, 3015, 285

Text3.Move 6840, 1560, 3015, 285

Text4.Move 6840, 2160, 3015, 1245

List1.Move 6840, 3840, 3015, 2010

Label1.Move 6840, 120, 3015, 255

Label2.Move 6840, 720, 3015, 255

Label3.Move 6840, 1320, 3015, 255

Label4.Move 6840, 1920, 3015, 255

Label5.Move 6840, 3600, 1695, 255

Label6.Move 8520, 3600, 1335, 255

Command1.Move 6840, 6000, 1335, 495

Command2.Move 8520, 6000, 1335, 495

Label1 = ":نام شما"

Label2 = ":پست الکترونیک شما"

Label3 = ":نشانی سایت یا وبلاگ شما"

Label4 = ":پیام شما"

Label5 = "تعداد: ۰ وبلاگ"

Label6 = ":فهرست وبلاگها"

Command1.Caption = "دریافت فهرست"

Command2.Caption = "صفحه نظزات"

End Sub

برای ساخت برنامه اسپمر ابتدا باید وبلاگهای بروز شده را در برنامه فهرست کنیم.
برای انجام اینکار باید سورس صفحه اصلی بلاگفا را بدست بیاوریم،در اینجا از کنترل WebBrowser استفاده می کنیم.
روی کنترل Command1 دوبار کلیک کنید تا وارد قسمت کد نویسی شوید.
سپس کد زیر را درج کنید

کد:

Private Sub Command1_Click()

Dim i As Integer

List1.Clear

WebBrowser1.Navigate "http://www.blogfa.com/"

Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE

DoEvents

Loop

For i = 0 To WebBrowser1.Document.links.length - 1

str = WebBrowser1.Document.links.Item(i)

If Left$(LCase(str), 4) = "http" And InStr(1, LCase(str), ".blogfa.com") > 0 Then

If Not InStr(1, LCase(str), "news.blogfa.com") > 0 Then

If Not InStr(1, LCase(str), "www.blogfa.com") > 0 Then

List1.AddItem (WebBrowser1.Document.links.Item(i))

End If

End If

End If

Next i

Label5 = "تعداد: " & List1.ListCount - 1 & " وبلاگ"

End Sub

در کد بالا هنگامی که برروی Command1 کلیک می کنیم،برنامه به سایت بلاگفا رفته و پس از لودینگ کامل شروع به جستجوی وبلاگهای بروز شده می کند و آن را به فهرست می افزاید.
در آخر هم تعداد وبلاگها را توسط Label5 نمایش می دهیم.

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

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

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

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


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


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

[Farhad-13]

دورد
قسمت دوم رو یکم بیشتر توضیح بدین
قسمت سوم رو هم آماده کنید :ایکس
ممنون

[dotaism]

چطوری میتونم تو ویژوال بیسیک 6 فارسی تایپ کنم ؟

[rap0661]

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

[mahdi210]

همش كپي بود

[Amin_Mansouri]

بله
پست های فروم زیرش نوشته منبع پارسی کدرز

[tiktak990]

دوست عزیز میشه سورسشو واسه دانلود بزاری ممنون میشم

[Saji777]

سلام 
داداش قربون دست این همه زحمت کشیدی حداقل تموم کن این مبحث ما هم یچی یاد بگیریم

مرسی 

[Thewolf]

دوستان آموزش عالیه
روش کار رو توضیح داده دیگه چی می خواید ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

یکم باید آدم خودشم تلاش کنه !!!!!!!!!!!!