+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: آموزش ساخت اسپمر تبلیغاتی برای بلاگفا (/showthread.php?tid=1139)
صفحات
1
2
آموزش ساخت اسپمر تبلیغاتی برای بلاگفا - Amin_Mansouri - 10-25-2011
بسیاری از دوستان طی تماسهای خود درخواست آموزش ساخت اسپمر داشتند.
دراینجا نحوه ساخت اسپمر تبلیغاتی برای وبلاگهای بلاگفا را توضیح خواهیم داد.
این آموزش در محیط برنامه نویسی ویژوال بیسیک۶ می باشد.
ابتدا ویژوال بسیک را اجرا کنید و یک پروژه با حالت 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 استفاده می کنیم.
RE: آموزش ساخت اسپمر تبلیغاتی برای بلاگفا - Amin_Mansouri - 10-25-2011
آموزش ساخت اسپمر تبلیغاتی برای بلاگفا (قسمت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")نکته مهم: روش های بالا روش اصولی نیست (یا به قولی من در آوردی است) اما مفید و کارآمد است ، در برخی از کدها از روشهای غیرمعمول استفاده شده است..
در قسمت بعدی که آخرین قسمت هم می باشد ضمن تکمیل برنامه و افزودن چند قابلیت حرفه ای یک نمونه اسپمر ساخته شده به همین روش نیز به صورت سورس کد ارایه می شود.
توجه:
به دلیل فونت استفاده شده در این صفحه ممکن است پس از کپی کردن کدها درون ویژوال بیسیک علامت ( " ) به شکل دیگری درج شود و کدها با رنگ قرمز نشان داده شوند،در اینصورت علامت ( " ) را به صورت دستی اصلاح کنید.
RE: آموزش ساخت اسپمر تبلیغاتی برای بلاگفا - Farhad-13 - 10-27-2012
دورد
قسمت دوم رو یکم بیشتر توضیح بدین
قسمت سوم رو هم آماده کنید :ایکس
ممنون
RE: آموزش ساخت اسپمر تبلیغاتی برای بلاگفا - dotaism - 10-27-2012
چطوری میتونم تو ویژوال بیسیک 6 فارسی تایپ کنم ؟
RE: آموزش ساخت اسپمر تبلیغاتی برای بلاگفا - rap0661 - 12-05-2012
خوب سورس میکردی میزاشتی یا حداقل ادامه بده
RE: آموزش ساخت اسپمر تبلیغاتی برای بلاگفا - mahdi210 - 12-08-2012
همش كپي بود
RE: آموزش ساخت اسپمر تبلیغاتی برای بلاگفا - Amin_Mansouri - 12-08-2012
بله
پست های فروم زیرش نوشته منبع پارسی کدرز
RE: آموزش ساخت اسپمر تبلیغاتی برای بلاگفا - tiktak990 - 02-07-2013
دوست عزیز میشه سورسشو واسه دانلود بزاری ممنون میشم
RE: آموزش ساخت اسپمر تبلیغاتی برای بلاگفا - Saji777 - 03-31-2013
سلام
داداش قربون دست این همه زحمت کشیدی حداقل تموم کن این مبحث ما هم یچی یاد بگیریم
مرسی
RE: آموزش ساخت اسپمر تبلیغاتی برای بلاگفا - Thewolf - 03-31-2013
دوستان آموزش عالیه
روش کار رو توضیح داده دیگه چی می خواید ؟؟؟؟؟؟؟؟؟؟؟؟؟؟
یکم باید آدم خودشم تلاش کنه !!!!!!!!!!!!