10-25-2011، 11:14 AM
بسیاری از دوستان طی تماسهای خود درخواست آموزش ساخت اسپمر داشتند.
دراینجا نحوه ساخت اسپمر تبلیغاتی برای وبلاگهای بلاگفا را توضیح خواهیم داد.
این آموزش در محیط برنامه نویسی ویژوال بیسیک۶ می باشد.
ابتدا ویژوال بسیک را اجرا کنید و یک پروژه با حالت Standard EXE ایجاد کنید
دکمه های Ctrl و T را همزمان برروی کیبورد فشار دهید تا پنجره کامپوننت ضاهر شود.
در پنجره کامپوننت گزینه های زیر را تیک را زده و بعد OK کنید
سپس کنترل های زیر را به فرم اصلی اضافه کنید:
خب می رویم سر اصل مطلب…
در قسمت کدنویسی کدهای زیر را درج کنید:
برای ساخت برنامه اسپمر ابتدا باید وبلاگهای بروز شده را در برنامه فهرست کنیم.
برای انجام اینکار باید سورس صفحه اصلی بلاگفا را بدست بیاوریم،در اینجا از کنترل WebBrowser استفاده می کنیم.
روی کنترل Command1 دوبار کلیک کنید تا وارد قسمت کد نویسی شوید.
سپس کد زیر را درج کنید
در کد بالا هنگامی که برروی Command1 کلیک می کنیم،برنامه به سایت بلاگفا رفته و پس از لودینگ کامل شروع به جستجوی وبلاگهای بروز شده می کند و آن را به فهرست می افزاید.
در آخر هم تعداد وبلاگها را توسط Label5 نمایش می دهیم.
حال ما فهرستی از وبلاگهای بروز شده را شده را در اختیار داریم و می خواهیم به آنها پیام ارسال کنیم.
در اینجا باید لینک آخرین پست وبلاگ را بدست آوریم،اینکار را می توان به روشهای مختلف انجام داد.
یکی از راههای انجام اینکار روش زیر می باشد:
در اینجا باز هم باید سورس صفحه مورد نظرمان را بدست بیاوریم،این بار از کنترل Inet استفاده می کنیم.
دراینجا نحوه ساخت اسپمر تبلیغاتی برای وبلاگهای بلاگفا را توضیح خواهیم داد.
این آموزش در محیط برنامه نویسی ویژوال بیسیک۶ می باشد.
ابتدا ویژوال بسیک را اجرا کنید و یک پروژه با حالت 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 استفاده می کنیم.