سورس ربات تبلیغاتی یاهو BS-Spammer که خودم نوشتم (فقط برای آشنایی دوستان با ساخت اسپم

[king.bibak]

100 % از وینت هست
یا ویندوزت عوض کن یا روی یک سیستم دیگه امتحان کن
امیدوارم سایتم کمکی بهت کرده باشه

[bah69man]

وقتي ميخوام كمپايلش كنم ارور ميده

[king.bibak]

چه اروری میده؟
بگو از کدوم خطش ارور میده یه عکس بگیر بذار اینجا

[bah69man]

inam az eror

[king.bibak]

یک خط قبل از end sub (که به رنگ آبی شده) بنویس end if مشکلت حل میشه
اگه بازم نتونستی بگو با عکس راهنماییت کنم

[bah69man]

Private Sub Command1_Click()
Call YMSG1.Connect(User.Text, Pass.Text)
End Sub

Private Sub Command2_Click()
Call YMSG1.PckChangeStatus(TXTST.Text, False)
End Sub

Private Sub Command3_Click()
Call YMSG1.PckSendTextRoom(pmtoroom.Text)
End Sub

Private Sub Command4_Click()
Call YMSG1.PckJoindRoom(Toroom.Text)
End Sub

Private Sub Command5_Click()
Call YMSG1.PckLeftRoom
End Sub



Private Sub lblst_Change()
If lblst.Caption = "login." Then
YMSG1.ConvertFarsi = True
YMSG1.FilterMessage = True
End If
End Sub

Private Sub mnuAbut_Click()
abut.Show
End Sub

Private Sub Timer1_Timer()
On Error GoTo Eror
Call YMSG1.PckSendTextRoom(PM2Room.Text)
Eror:
End Sub

Private Sub YMSG1_IncomingAddRequest(ByVal From As String, ByVal ToUser As String, ByVal Message As String, ByVal SenderName As Variant, ByVal SenderLastName As String, ByVal AutoAdd As Boolean)
YMSG1.PckAcceptAdd From, ToUser
Call YMSG1.PckSendMsg(From, txtadd.Text)
End Sub

Private Sub YMSG1_IncomingAppear(ByVal User As String, ByVal Status As YMSGMode_V2.StatusYID, Messege As String)
If Status = Available Then
Call YMSG1.PckSendMsg(User, txtOnline.Text)
Private Sub YMSG1_IncomingCaptcha(ByVal PictureLink As String, ByVal DATA As String)
Form2.Web.Navigate "http://captcha.chat.yahoo.com/go/captchat/?img=" & PictureLink & "&.intl=us&.lang=en-US"
Form2.Show
Timer1.Interval = "30000"
End Sub

Private Sub YMSG1_IncomingChatList(ByVal ChatterLst As String, ByVal Status As YMSGMode_V2.StatusRoom, ByVal DATA As String)
If Status = Joind Then
List1.AddItem ChatterLst
List2.AddItem ChatterLst & " Join Room "
Call YMSG1.PckSendMsg(ChatterLst, txtWel.Text)
lblUser.Caption = "Users : " & List1.ListCount
ElseIf Status = Leave Then
List2.AddItem ChatterLst & " Left Room "
For i = 0 To List1.ListCount - 1
If List1.List(i) = ChatterLst Then
List1.RemoveItem i
End If
Next i
lblUser.Caption = "Users : " & List1.ListCount
ElseIf Status = RoomFull Then
MsgBox (" Room The Full")
End If

End Sub

Private Sub YMSG1_IncomingMessage(ByVal From As String, ByVal ToUser As String, ByVal TextMessage As String)
Call YMSG1.PckSendMsg(From, txtrespones.Text)
End Sub

Private Sub YMSG1_IncomingRoomTxtMessage(ByVal FromUser As String, ByVal Msg As String, ByVal Client As String, ByVal RoomName As String, ByVal DATA As String)
List2.AddItem FromUser & " : " & Msg
End Sub

Private Sub YMSG1_Status(ByVal MsgStatus As String, ByVal Status As String, ByVal Connecting As Boolean)
lblst.Caption = MsgStatus
End Sub



كلا ارور ميده اونكارو كردم واسه جاهاي ديگه ارور داد
راستي اين واقعا اسپم ميكنه؟

[king.bibak]

اره اسپم میکنه

---

این کد رو جایگزین کن


Private Sub Command1_Click()
Call YMSG1.Connect(User.Text, Pass.Text)
End Sub

Private Sub Command2_Click()
Call YMSG1.PckChangeStatus(TXTST.Text, False)
End Sub

Private Sub Command3_Click()
Call YMSG1.PckSendTextRoom(pmtoroom.Text)
End Sub

Private Sub Command4_Click()
List1.Clear

Call YMSG1.PckJoindRoom(Toroom.Text)


End Sub

Private Sub Command5_Click()
Call YMSG1.PckLeftRoom
End Sub


Private Sub Form_Load()
Call YMSG1.Invisible(True)

End Sub

Private Sub lblst_Change()
If lblst.Caption = "login." Then
YMSG1.ConvertFarsi = True
YMSG1.FilterMessage = True
End If
End Sub

Private Sub mnuAbut_Click()
abut.Show
End Sub

Private Sub Timer1_Timer()
On Error GoTo Eror
Call YMSG1.PckSendTextRoom(PM2Room.Text)
Eror:
End Sub

Private Sub YMSG1_IncomingAddRequest(ByVal From As String, ByVal ToUser As String, ByVal Message As String, ByVal SenderName As Variant, ByVal SenderLastName As String, ByVal AutoAdd As Boolean)
YMSG1.PckAcceptAdd From, ToUser
Call YMSG1.PckSendMsg(From, txtadd.Text)
End Sub

Private Sub YMSG1_IncomingAppear(ByVal User As String, ByVal Status As YMSGMode_V2.StatusYID, Messege As String)
If Status = Available Then Call YMSG1.PckSendMsg(User, txtOnline.Text)
End Sub

Private Sub YMSG1_IncomingCaptcha(ByVal PictureLink As String, ByVal DATA As String)
Form2.Web.Navigate "http://captcha.chat.yahoo.com/go/captchat/?img=" & PictureLink & "&.intl=us&.lang=en-US"
Form2.Show
Timer1.Interval = "30000"
End Sub

Private Sub YMSG1_IncomingChatList(ByVal ChatterLst As String, ByVal Status As YMSGMode_V2.StatusRoom, ByVal DATA As String)
If Status = Joind Then
List1.AddItem ChatterLst
List2.AddItem ChatterLst & " Join Room "
Call YMSG1.PckSendMsg(ChatterLst, txtWel.Text)


lblUser.Caption = "Users : " & List1.ListCount
ElseIf Status = Leave Then
List2.AddItem ChatterLst & " Left Room "
Call YMSG1.PckSendMsg(ChatterLst, txtWel.Text)

For i = 0 To List1.ListCount - 1
If List1.List(i) = ChatterLst Then
List1.RemoveItem i
End If
Next i
lblUser.Caption = "Users : " & List1.ListCount
ElseIf Status = RoomFull Then
MsgBox (" Room The Full")
End If


End Sub

Private Sub YMSG1_IncomingMessage(ByVal From As String, ByVal ToUser As String, ByVal TextMessage As String)
Call YMSG1.PckSendMsg(From, txtrespones.Text)
End Sub

Private Sub YMSG1_IncomingRoomTxtMessage(ByVal FromUser As String, ByVal Msg As String, ByVal Client As String, ByVal RoomName As String, ByVal DATA As String)
List2.AddItem FromUser & " : " & Msg
End Sub

Private Sub YMSG1_Status(ByVal MsgStatus As String, ByVal Status As String, ByVal Connecting As Boolean)
lblst.Caption = MsgStatus
End Sub

[bah69man]

متن خودمونو نميفرسته و اگه بفرسته هم نشون نميده
اون متن هايي كه اسپم ميكنه نشون نميده
من ياهوم خرابه نتونستم تو روم هم تست كنم ببينم واقعا ارسال ميكنه يا نه
ولي بازم ممنون

[king.bibak]

من خودم امتحان کردم شد
فکر کنم شما از طرف یاهو بن شدید و بعضی وقتها هم یاهو برای جلوگیری از اسپمرها کسانی که لینک تو نوشته هاشون هست رو ارسال نمی کنه یعنی اگه شما تو نوشته ارسالیتون یه لینک سایت باشه لینکو نشون نمیده برای همین معمولا www اولشو نمیگذارن
یا
وقتی وارد میشید دکمه اکی زیر لاگیر رو نمیزنید
بازم امتحان کنید اگه نشد بگید تا راهنماییتون کنم

[speeder]

با سلام!

دوستان اولن که این سورس وارد رووم نمیشه! موقعی که میخواد کد کپچتا رو لود کنه میده : HTTP/1.1 412 Precondition Failed

اولیش این بود!

سوال دوم من :

ببخشید دوستان این Ocx ی که برای این کار میزارن ، خودش قبلن سورس کد بوده نه؟

منظورم اینه که مثلن شما دیدید که یه سورس هست واسه لاگین کردن ایدی با وینساک؟ آیا اون کسی که این Ocx رو ساخته اومده مجموعه ای از این کد ها رونوشته و بعد تبدیل به Ocx کرده؟ مثلن سورس به اون همه زیادی که برای لاگین شدن ایدی با وینساک هست رو تبدیل به این کرده؟ wmsg.conecct id,pass?

با تشکر

راستی من چه جوری میتونم یه سی ، چهل تایی ایدی لوگین کنم؟

ممنونم

[HamedFaa]

در رابطه با سوال اولتون این برنامه دیگه از 100 جا اشکال پیدا کرده چون یاهو آپدیت شده و این ocx نه!
بله این ocx هم کد بوده و نویسندش هم آقای CrazyFull هستند تو همین سایت.

اگه میخوای خودت یه همچین چیزی بنویسی از الان دنبال هدر و پکتای یاهو باش....