[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 استفاده می کنیم.