تمامی Packet های یاهو در اینجا

[hasht.rood]

در این قسمت میخوام Packet های یاهو را قرار میدم تا علاقه مندانی که قصد دارن
برنامه های یاهو بنویسن از این packet ها استفاده کنن.

[hasht.rood]

فرستادن پی ام


Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function SendPm(WhoFrom As String, WhoTo As String, Message As String) As String SendPm = Header("1À€" & WhoFrom & "À€5À€" & WhoTo & "À€14À€" & UTF8_Encode(Message) & "À€97À€1À€", String(4, Chr(0)), YmsgID, 6) End Function

UTF8_Encode(Message) این قسمت برای اینکد کردن هست
که یک Function درست کردم اگه دوست داشتین بگین بزارم.

[hasht.rood]

Header یاهو

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function
دوستان همه packet ها بر اساس این header فرستاده میشن این هدری که قرار دادم
پاکت هاش پایین قرار دارن
ما چند نمونه header داریم برای استفاده بعد از اینکه این packet ها را قرار دادم
یک هدر دیگه هم میزارم. که با یک هدر دیگه هم اشنا بشین

[hasht.rood]

عوض کردن status یاهو

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function ChangeStatus(WhoFrom As String, Status As String, Busy As Boolean) ChangeStatus = Header("10À€99À€19À€" & UTF8_Encode(Status) & "À€97À€1À€47À€" & CInt(Busy) * -1 & "À€187À€0À€", String(4, Chr(0)), YmsgID, 198) End Function

[hasht.rood]

invisible شدن تو یاهو

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function


Public Function Invisible(WhoFrom As String, InvisibleMode As Boolean) Invisible = Header("13À€" & CInt(InvisibleMode) * (-1) + 1 & "À€", String(4, Chr(0)), YmsgID, 197) End Function

[hasht.rood]

تایپpacket
Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function Typing(WhoFrom As String, WhoTo As String, Optional StartMode As Boolean = True) Typing = Header("49TYPING1" & WhoFrom & "14 13" & CInt(StartMode) * -1 & "5" & WhoTo & "", String(3, Chr(0)) & Chr(22), YmsgID, 75) End Function

[hasht.rood]

پاکت ادد برای ادد کردن

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function AddBudy(WhoFrom As String, WhoTo As String, FirstName As String, LastName As String, Group As String, Message As String) AddBudy = Header("14À€" & UTF8_Encode(Message) & "À€65À€" & UTF8_Encode(Group) & "À€97À€1À€216À€" & FirstName & "À€254À€" & LastName & "À€1À€" & WhoFrom & "À€302À€319À€300À€319À€7À€" & WhoTo & "À€301À€319À€303À€319À€", String(4, Chr(0)), YmsgID, 131) End Function

[hasht.rood]

حذف کردن ایدی طرف از اددلیست شما
Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function DeleteBudy(WhoFrom As String, WhoTo As String, Group As String) DeleteBudy = Header("1À€" & WhoFrom & "À€7À€" & WhoTo & "À€65À€" & UTF8_Encode(Group) & "À€", String(4, Chr(0)), YmsgID, 132) End Function

[hasht.rood]

ایگنور کردن ایدی قربانی
Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function IgnoreBudy(WhoFrom As String, WhoTo As String) IgnoreBudy = Header("1À€" & WhoFrom & "À€13À€1À€302À€319À€300À€319À€ 7À€" & WhoTo & "À€301À€319À€303À€319À€", String(4, Chr(0)), YmsgID, 133) End Function

[hasht.rood]

حذف کردن از ایگنور لیست

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function RemoveIgnoreBudy(WhoFrom As String, WhoTo As String) RemoveIgnoreBudy = Header("1À€" & WhoFrom & "À€13À€2À€302À€319À€300À€319À€ 7À€" & WhoTo & "À€301À€319À€303À€319À€", String(4, Chr(0)), YmsgID, 133) End Function

[hasht.rood]

ادد کردن کسی که شما را ادد کرده

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function AcceptAdd(WhoFrom As String, WhoTo As String) AcceptAdd = Header("1À€" & WhoFrom & "À€5À€" & WhoTo & "À€13À€1À€", String(4, Chr(0)), YmsgID, 214) End Function

[_behnam_]

دوستان همه packet ها بر اساس این header فرستاده میشن این هدری که قرار دادم
پاکت هاش پایین قرار دارن
پاکت نه!!!!!!
پکت

[hasht.rood]

ساخت کنفرانس

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function CF(WhoFrom As String, WhoCF As String, Message As String) CF = Header("1À€" & WhoFrom & "À€50À€" & WhoFrom & "À€57À€" & WhoFrom & "-1294125153À€58À€" & UTF8_Encode(Message) & "À€97À€1À€52À€" & WhoCF & "À€13À€256À€", String(4, Chr(0)), YmsgID, 24) End Function

[hasht.rood]

دعوت کردن ایدی طرف به کنفراس

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function CFInv(WhoFrom As String, WhoCF As String, CFKey As String, CFKey2 As String, Users As String, Message As String) CFInv = Header("1À€" & WhoFrom & "À€57À€" & CFKey & "À€51À€" & WhoCF & Users & "À€58À€" & UTF8_Encode(Message) & "À€97À€1À€13À€256À€234À€" & CFKey & "À€233À€" & CFKey2 & "À€", String(4, Chr(0)), YmsgID, 28) End Function

[hasht.rood]

join شدن به کنفراس

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function CFJoin(WhoFrom As String, CFKey As String, WhoTo As String) CFJoin = Header("1À€" & WhoFrom & "À€57À€" & CFKey & "À€3À€" & WhoTo & "À€", String(4, Chr(0)), YmsgID, 25) End Function

[hasht.rood]

left دادن از کنفراس



کد:
Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function


Public Function CFLeft(WhoFrom As String, CFKey As String, WhoTo As String) CFLeft = Header("1À€" & WhoFrom & "À€57À€" & CFKey & "À€3À€" & WhoTo & "À€1005À€28888624À€", String(4, Chr(0)), YmsgID, 27) End Function

[hasht.rood]

فرستادن تکست داخل کنفرانس

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function CFText(WhoFrom As String, WhoCF As String, CFKey As String, Messege As String) CFText = Header("1À€" & WhoFrom & "À€57À€" & CFKey & "À€53À€" & WhoCF & "À€14À€" & UTF8_Encode(Messege) & "À€97À€1À€", String(4, Chr(0)), YmsgID, 29) End Function

[hasht.rood]

Join شدن به روم

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function JoinRoom(WhoFrom As String, Room As String) JoinRoom = Header("1" & WhoFrom & "622104" & Room & "", String(4, Chr(0)), YmsgID, 152) End Function

[hasht.rood]

خروج از روم

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function LeftRoom(WhoFrom As String) LeftRoom = Header("1À€" & WhoFrom & "À€1005À€148086056À€", String(4, Chr(0)), YmsgID, 160) End Function

[hasht.rood]

فرستادن تکست داخل روم

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function SendPmToRoom(WhoFrom As String, Message As String, Optional Room As String) SendPmToRoom = Header("1À€" & WhoFrom & "À€104À€" & Room & "À€117À€" & Message & "À€124À€1À€", String(4, Chr(0)), YmsgID, 168) End Function

[hasht.rood]

فرستادن Audible
Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function Audibles(WhoFrom As String, WhoTo As String, Audible As String) As String Audible = Trim(LCase(Audible)) If Audible = "nosepick" Then Audible = "hello.nosepick1" If Audible = "dude" Then Audible = "hello.dude" If Audible = "seeyou" Then Audible = "hello.seeyou" If Audible = "toothy" Then Audible = "htf.toothy" If Audible = "ladys" Then Audible = "hello.ladies" If Audible = "wadddup" Then Audible = "hello.whadup" If Audible = "hurtyou" Then Audible = "taunt.dontmakeme" If Audible = "seeyou" Then Audible = "hello.seeyou1" If Audible = "echo" Then Audible = "hello.echo" If Audible = "ohhello" Then Audible = "hello.nosepick" If Audible = "whistle" Then Audible = "hello.whistle" If Audible = "expectingyou" Then Audible = "hello.welcome" If Audible = "punch" Then Audible = "contender.tommy" If Audible = "keeppunch" Then Audible = "contender.tommy" If Audible = "heart4this" Then Audible = "contender.tommy" If Audible = "hahayourfunny" Then Audible = "insults.funny" If Audible = "lonelyyou" Then Audible = "insults.lonely" If Audible = "loser" Then Audible = "losing.likeyou" If Audible = "betterim" Then Audible = "insults.monkey" If Audible = "notfunny" Then Audible = "insults.notfunny" If Audible = "typo" Then Audible = "insults.typo" If Audible = "spellcheck" Then Audible = "insults.spellcheck" If Audible = "unplugcomputer" Then Audible = "insults.unplug" If Audible = "yourbrain" Then Audible = "insults.brain" If Audible = "yourbooty" Then Audible = "flirts.booty" If Audible = "yourwindow" Then Audible = "flirts.window" If Audible = "hay***y" Then Audible = "flirts.***y" If Audible = "typeslow" Then Audible = "flirts.realslow" If Audible = "comecloser" Then Audible = "flirts.comecloser" If Audible = "lovesme" Then Audible = "flirts.lovesme" If Audible = "meltheart" Then Audible = "flirts.heartmelt" If Audible = "hotinhere" Then Audible = "flirts.hot" If Audible = "gottareboot" Then Audible = "goodbyes.reboot" If Audible = "gottasplit" Then Audible = "goodbyes.split" If Audible = "gottahurt" Then Audible = "taunt.gottahurt" If Audible = "grandma" Then Audible = "taunt.bestshot" If Audible = "slip" Then Audible = "taunt.mopping" If Audible = "trying" Then Audible = "taunt.seriously" If Audible = "badabang" Then Audible = "taunt.badabing" If Audible = "gottagoboss" Then Audible = "goodbyes.parole" If Audible = "hurtpunch" Then Audible = "contender.tommy_04c" If Audible = "oldman" Then Audible = "losing.wellplayed" If Audible = "cheater" Then Audible = "losing.cheater" If Audible = "nonono" Then Audible = "losing.nooo" If Audible = "confidence" Then Audible = "losing.confidence" If Audible = "whatever" Then Audible = "losing.whatever" If Audible = "itsonnow" Then Audible = "losing.onnow" If Audible = "twobest" Then Audible = "losing.besttwo" If Audible = "muah" Then Audible = "taunt.muha" Audibles = Header("1À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us." & Audible & "1À€231À€" & Audible & "À€232À€0d29376f051ad14fb85f2fc9ff8b03b3106d4 689À€", String(4, Chr(0)), String(4, Chr(0)), 208) End Function

[hasht.rood]

accept کردن فایل
Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function AcceptFile(WhoFrom As String, WhoTo As String, FileName As String, FileSize As Long, FileKey As String, SaveTo As String) Dim i As Integer AcceptFile = Header("1À€" & WhoFrom & "À€5À€" & WhoTo & "À€265À€" & FileKey & "À€222À€3À€", String(4, Chr(0)), YmsgID, 220) For i = 1 To UBound(FormGetFile) If FormGetFile(i).Online = False Then FormGetFile(i).Online = True FormGetFile(i).WhoFrom = WhoFrom FormGetFile(i).WhoTo = WhoTo FormGetFile(i).SaveTo = SaveTo FormGetFile(i).FileKey = FileKey FormGetFile(i).FileName = FileName FormGetFile(i).FileSize = FileSize Exit For End If Next i End Function

[hasht.rood]

accept کردن فایل

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function AcceptFile2(WhoFrom As String, WhoTo As String, FileName As String, FileKey As String, FileKey2 As String) AcceptFile2 = Header("1À€" & WhoFrom & "À€5À€" & WhoTo & "À€265À€" & FileKey & "À€27À€" & FileName & "À€249À€3À€251À€" & FileKey2 & "À€", String(4, Chr(0)), YmsgID, 222) End Function

[hasht.rood]

چند تا Function هم قرار میدم که خیلی به دردتون میخوره برنامه نویسی یاهو دیگه با این چند تا ساده میشه
دیگه بغیه برنامه نویسیش بستگی به خودتون داره
اینکد کردن متن به utf8


Public Function UTF8_Encode(ByVal sStr As String) Dim l As Long, lChar As Long, sUTF8 As String For l& = 1 To Len(sStr) lChar& = AscW(Mid(sStr, l&, 1)) If lChar& < 128 Then sUTF8$ = sUTF8$ + Mid(sStr, l&, 1) ElseIf ((lChar& > 127) And (lChar& < 2048)) Then sUTF8$ = sUTF8$ + Chr(((lChar& \ 64) Or 192)) sUTF8$ = sUTF8$ + Chr(((lChar& And 63) Or 128)) Else sUTF8$ = sUTF8$ + Chr(((lChar& \ 144) Or 234)) sUTF8$ = sUTF8$ + Chr((((lChar& \ 64) And 63) Or 128)) sUTF8$ = sUTF8$ + Chr(((lChar& And 63) Or 128)) End If Next l& UTF8_Encode = sUTF8$ End Function

[hasht.rood]

دیکد کردن کردن utf8

Public Function UTF8_Decode(ByVal sStr As String) Dim l As Long, sUTF8 As String, iChar As Integer, iChar2 As Integer sStr = Replace(sStr, "ÛŒ", UTF8_Encode("í")) sStr = Replace(sStr, "Ù‰", UTF8_Encode("í")) For l = 1 To Len(sStr) iChar = Asc(Mid(sStr, l, 1)) If iChar > 127 Then If Not iChar And 32 Then iChar2 = Asc(Mid(sStr, l + 1, 1)) sUTF8 = sUTF8 & ChrW$(((31 And iChar) * 64 + (63 And iChar2))) l = l + 1 Else Dim iChar3 As Integer iChar2 = Asc(Mid(sStr, l + 1, 1)) iChar3 = Asc(Mid(sStr, l + 2, 1)) sUTF8 = sUTF8 & ChrW$(((iChar And 15) * 16 * 256) + ((iChar2 And 63) * 64) + (iChar3 And 63)) l = l + 2 End If Else sUTF8 = sUTF8 & Chr$(iChar) End If Next l UTF8_Decode = sUTF8 End Functio

[hasht.rood]

این یکی Function خیلی کاربردی هستش
تا حالا تو هیچ سورسی تو هیچ برنامه ی من ندیدمش کار باهاش هم راحته
کافیه عدد قبل data که گرفتین رو بدید واستون اون متن را در میاره
ysplit(data,4)
این ایدی خودتون را بر میگردونه

Public Function YSplit(ByVal Str As String, ByVal Number As Integer) On Error GoTo 1 Dim Start As String, Length As String If InStr(1, Str, Number) = 21 Then Start = Number & "À€" Else Start = "À€" & Number & "À€" End If Length = "À€" If InStr(1, Str, Start) = 0 Then GoTo 1 YSplit = Mid(Str, InStr(1, Str, Start) + Len(Start), InStr(1, Mid(Str, InStr(1, Str, Start) + Len(Start)), Length) - 1) Exit Function 1: YSplit = "" End Function

[hasht.rood]

حذف کردن تگ های

Public Function RemoveYTag(Str As String) Str = Replace(Str, "<font", "<font", , , vbTextCompare) Str = Replace(Str, "<b", "<b", , , vbTextCompare) Str = Replace(Str, "<fade", "<fade", , , vbTextCompare) Str = Replace(Str, "<alt", "<fade", , , vbTextCompare) Str = Replace(Str, "<i", "<i", , , vbTextCompare) Str = RemoveStr(Str, "[", "m") Str = RemoveStr(Str, "<font", ">") Str = RemoveStr(Str, "<b", ">") Str = RemoveStr(Str, "<fade", ">") Str = RemoveStr(Str, "<alt", ">") Str = RemoveStr(Str, "<i", ">") Str = Replace(Str, "</font>", "", , , vbTextCompare) Str = Replace(Str, "</b>", "", , , vbTextCompare) Str = Replace(Str, "</fade>", "", , , vbTextCompare) Str = Replace(Str, "</alt>", "", , , vbTextCompare) Str = Replace(Str, "</i>", "", , , vbTextCompare) RemoveYTag = Str End Function

Public Function RemoveStr(Str As String, Str1 As String, Str2 As String) As String Dim iPos As Long Dim iPos2 As Long iPos = InStr(Str, Str1) iPos2 = InStr(iPos + 1, Str, Str2) While iPos > 0 And iPos2 > 0 iPos2 = InStr(iPos + 1, Str, Str2) Str = Left(Str, iPos - 1) & Mid(Str, iPos2 + 1) iPos = InStr(Str, Str1) Wend RemoveStr = Str End Function

[_behnam_]

این یکی Function خیلی کاربردی هستش
تا حالا تو هیچ سورسی تو هیچ برنامه ی من ندیدمش کار باهاش هم راحته
کافیه عدد قبل data که گرفتین رو بدید واستون اون متن را در میاره
ysplit(data,4)
این ایدی خودتون را بر میگردونه

Public Function YSplit(ByVal Str As String, ByVal Number As Integer) On Error GoTo 1 Dim Start As String, Length As String If InStr(1, Str, Number) = 21 Then Start = Number & "À€" Else Start = "À€" & Number & "À€" End If Length = "À€" If InStr(1, Str, Start) = 0 Then GoTo 1 YSplit = Mid(Str, InStr(1, Str, Start) + Len(Start), InStr(1, Mid(Str, InStr(1, Str, Start) + Len(Start)), Length) - 1) Exit Function 1: YSplit = "" End Function

دوست عزیز میشه بپرسم این پکتها و فانکشن ها از کجا اوردید؟!!!!!!!
اول که پکتهارو گذاشتید گفتم بیشترشون آشناست اما الان که Ysplit رو گذاشتین مطمئن شدم که بنده بیشتر این پکت هارو اسنیف کردم حتی اون فانکشن Ysplit() رو نوشتم !!!!!!
در ضمن فقط آیدی خودت رو برنمیگردونه!! میتونه پی ام ها, شماره کنفرانس , آیدی طرف مقابل و هر چیزی که تو پکت هست رو برگردونه

[hasht.rood]

اشتباه تایپی هست ببخشید. اصلاح میکنم
پاکت نه!!!!!!
پکت

[sajjad_india]

ميشه بگيد چطور بايد استفاده كنم ؟
يه نمونه برنامه خيلي كوچك اگر ميشه بزاريد مممنون ميشم از شما .

[ho3ein.3ven]

ببخشید چطور میشه اینا رو با ymsgmod.ocx ارسال کرد ؟
یه قسمت داره با نام send pachet .
اگه ممکنه کمک کنید

[mafia5000]

ببخشید چطور میشه اینا رو با ymsgmod.ocx ارسال کرد ؟
یه قسمت داره با نام send pachet .
اگه ممکنه کمک کنید

این ها بری وینسوک هستن با کامپوننت نمیشه اینارو ارسال کرد

[ho3ein.3ven]

خب حالا چطور میشه مثلا کنفرانس رو با کامپوننت ارسال کرد ؟

[ho3ein.3ven]

ساخت کنفرانس

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function CF(WhoFrom As String, WhoCF As String, Message As String) CF = Header("1À€" & WhoFrom & "À€50À€" & WhoFrom & "À€57À€" & WhoFrom & "-1294125153À€58À€" & UTF8_Encode(Message) & "À€97À€1À€52À€" & WhoCF & "À€13À€256À€", String(4, Chr(0)), YmsgID, 24) End Function
کسی در مورد ارسال این پکت توضیح نمیده . اگه میشه یه پروژه قرار دهید.

[ho3ein.3ven]

ساخت کنفرانس

Private Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String Header = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(0 / 256)) & Chr(Int(0 Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData End Function

Public Function CF(WhoFrom As String, WhoCF As String, Message As String) CF = Header("1À€" & WhoFrom & "À€50À€" & WhoFrom & "À€57À€" & WhoFrom & "-1294125153À€58À€" & UTF8_Encode(Message) & "À€97À€1À€52À€" & WhoCF & "À€13À€256À€", String(4, Chr(0)), YmsgID, 24) End Function
سلام
دوستان کسی اطلاعی نداره که این پکت چطوری ارسال میشه ؟ من الان با winsock لاگین کردم. تمام پکت ها هم میتونم ارسال کنم.بجز این پکت

[ho3ein.3ven]

کسی جواب نمیده ؟

[mafia5000]

سلام
دوستان کسی اطلاعی نداره که این پکت چطوری ارسال میشه ؟ من الان با winsock لاگین کردم. تمام پکت ها هم میتونم ارسال کنم.بجز این پکت

منم همین مشکلو دارم ، پکت ارسال میشه اما دعوت نامه کنفرانس برای طرف نمیره

[dorpfile]

کسی در مورد ارسال این پکت توضیح نمیده . اگه میشه یه پروژه قرار دهید.

سلام
ho3ein.3ven جان ممکنه ، سورسی رو که این پکت ها ، داخلش استفاده شده باشه رو ، قرار بدی ؟
با تشکر

[dorpfile]

سلام
دوستان کسی اطلاعی نداره که این پکت چطوری ارسال میشه ؟ من الان با winsock لاگین کردم. تمام پکت ها هم میتونم ارسال کنم.بجز این پکت

سلام
ho3ein.3ven جان ممکنه ، سورسی رو که این پکت ها ، داخلش استفاده شده باشه رو ، قرار بدی ؟
با تشکر

[ho3ein.3ven]

سلام
ho3ein.3ven جان ممکنه ، سورسی رو که این پکت ها ، داخلش استفاده شده باشه رو ، قرار بدی ؟
با تشکر

سلام
والا من خودمم تو ارسال این پکت ها موندم کسی هم جواب نمیده بهم.

[dorpfile]

سلام حسین جان
یعنی هیچ کدوم این پکت هارو نتونستی تست کنی ؟

[ho3ein.3ven]

راستش من زیاد تو این کار وارد نیستم . آقا بهنام اینارو خوب بلدن.

[dorpfile]

راستش ، الان به خاطر شما ، دارم روی پکت کنفرانس دارم کار میکنم .
پکتی که بهنام جان ، گذاشتن ، واسه من کار نکرد .
نتیجه رو حتما بهتون خبر میدم.

[ho3ein.3ven]

دست درد نکنه ممنون از شما

[mafia5000]

قبل از ارسال پکت کنفرانس ، باید کنفرانس ساخته شده باشه یعنی پکت کنفرانس رو دریافت کنید و سپس برای دیگران پکت ارسال کنید

[ho3ein.3ven]

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

[Snoopboy]

دوستان اینجا کسی پکت درخواستی قبولی add رو داره برای یاهو؟
پکت aad رو نمی خوام. پکت acceptadd یا همون قبولی add

[ho3ein.3ven]

ببین این بدردت میخوره .
' Accept add invitation packet
Public Function acceptAdd(From As String, Whoto As String) As String
Dim Packet As String
Packet = "1À€" & From & "À€5À€" & Whoto & "À€13À€1" & Chr(192) & Chr(128) & Chr(0)
acceptAdd = Header("D6", Packet)
End Function

[Snoopboy]

اینو دارم عزیز . این خیلی وقته از کار افتاده

[sinaavakh]

برای ارسال این پکت ها نیاز به هدر دارید

قبل ان باید 2 نوع هدر محتلف را توسط HTTP از یاهو دریافت کنید !

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