من اینارو پیدا کردم. اما تو ارسال این هدر ها مشکل دارم.
با پکت های یاهو کار نکردم. میهشه یکی توضیح بده.
کد:
Public Function AddBuddy1922(WhoFrom As String, WhoTo As String, Message As String, Group As String) As String
Dim pck As String
pck = "1À€" & WhoFrom & "À€7À€" & WhoTo & "À€14À€" & Message & "À€65À€" & Group & "À€97À€1À€"
AddBuddy1922 = DataHeader("83", pck)
Debug.Print AddBuddy1922
End Function
Public Function GameLiterati(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "180lt18318111tyrk828hb0zaycr.xru5qg--131"
GameLiterati = DataHeader("B7", pck)
Debug.Print
End Function
Public Function GameBackgammon(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "180bg18318111pcgcfcdw7wg8zhfcvoxnqq--131"
GameBackgammon = DataHeader("B7", pck)
Debug.Print
End Function
Public Function GameTokiTokiBoom(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "180ttb18318111236ibnipkkbtk4ufa4dgna--131"
GameTokiTokiBoom = DataHeader("B7", pck)
Debug.Print
End Function
Public Function GameCheckers(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "180ck18318111w9ky8drntpjsz3ncnwxfjw--131"
GameCheckers = DataHeader("B7", pck)
Debug.Print
End Function
Public Function GameChess(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "180ch18318111fiujrx1lfgy3bluver.kvq--131"
GameChess = DataHeader("B7", pck)
Debug.Print
End Function
Public Function GamePearHunter(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "180ph18318111qumvsv.jm60oeusu1wirha--131"
GamePearHunter = DataHeader("B7", pck)
Debug.Print
End Function
Public Function GameDominos(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "180do18318111rjb0bqstgg09wke9ydkljq--131"
GameDominos = DataHeader("B7", pck)
Debug.Print
End Function
Public Function GameWordRacer(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "180ww18318111zazxe_ppbqb6xrlout.sxw--131"
GameWordRacer = DataHeader("B7", pck)
Debug.Print
End Function
Public Function GamePool(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "180pl18318111xnmu9vq9opxgzynzaed5ya--131"
GamePool = DataHeader("B7", pck)
Debug.Print GamePool
End Function
Public Function Audible_Ladys(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.hello.ladies1À€231À€All the ladies in the house say...À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_Ladys = DataHeader("D0", pck)
Debug.Print Audible_Ladys
End Function
Public Function Audible_Wadddup(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.hello.whadup1À€231À€Whaaadddup?!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_Wadddup = DataHeader("D0", pck)
Debug.Print Audible_Wadddup
End Function
Public Function Audible_HurtYou(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.taunt.dontmakeme1231Don't make me hurt you231Whatever232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_HurtYou = DataHeader("D0", pck)
Debug.Print Audible_HurtYou
End Function
Public Function Audible_SeeYou(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.hello.seeyou1À€231À€Hello? I know you're there. I can see you!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_SeeYou = DataHeader("D0", pck)
Debug.Print Audible_SeeYou
End Function
Public Function Audible_Echo(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.hello.echo1À€231À€Hello? Hello? Anybody there? Echo!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_Echo = DataHeader("D0", pck)
Debug.Print Audible_Echo
End Function
Public Function Audible_OhHello(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.hello.nosepick1231Oh... uh... Hello232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_OhHello = DataHeader("D0", pck)
Debug.Print Audible_OhHello
End Function
Public Function Audible_Dude(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.hello.dude1À€231À€Dude!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_Dude = DataHeader("D0", pck)
Debug.Print Audible_Dude
End Function
Public Function Audible_Whistle(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.hello.whistle1231Whistle232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_Whistle = DataHeader("D0", pck)
Debug.Print Audible_Whistle
End Function
Public Function Audible_Expectingyou(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.hello.welcome1À€231À€Welcome. I've been expecting you.À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_Expectingyou = DataHeader("D0", pck)
Debug.Print Audible_Expectingyou
End Function
Public Function Audible_Punch(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.contender.tommy_04c231That punch hurt. You mighten shook your head like it didn't hurt, but that hurt.232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_Punch = DataHeader("D0", pck)
Debug.Print Audible_Punch
End Function
Public Function Audible_KeepPunch(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.contender.tommy_03b231You gotta keep Fuckin Punching in there. . .Punch!(Audible By vb_packets)232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_KeepPunch = DataHeader("D0", pck)
Debug.Print Audible_KeepPunch
End Function
Public Function Audible_Heart4This(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.contender.tommy_02b231If you don't have the heart for this, let's do something else.232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_Heart4This = DataHeader("D0", pck)
Debug.Print Audible_Heart4This
End Function
Public Function Audible_hahayourfunny(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.insults.funny1À€231À€Haha... you're funny!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_hahayourfunny = DataHeader("D0", pck)
Debug.Print Audible_hahayourfunny
End Function
Public Function Audible_LonelyYou(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.insults.lonely1À€231À€It must be really lonely being you.À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_LonelyYou = DataHeader("D0", pck)
Debug.Print Audible_LonelyYou
End Function
Public Function Audible_Loser(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.losing.likeyou1À€231À€It's not that I'm losing - it's that I'm losing to someone like you!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_Loser = DataHeader("D0", pck)
Debug.Print Audible_Loser
End Function
Public Function Audible_BetterIM(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.insults.monkey1231I've gotten better IM's from a drunken monkey232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_BetterIM = DataHeader("D0", pck)
Debug.Print Audible_BetterIM
End Function
Public Function Audible_NotFunny(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.insults.notfunny1À€231À€That's not funny. That's not even in the same zip code as funny.À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_NotFunny = DataHeader("D0", pck)
Debug.Print Audible_NotFunny
End Function
Public Function Audible_Typo(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.insults.typo1À€231À€I'm sorry - was that a typo? Or are you really that stupid?À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_Typo = DataHeader("D0", pck)
Debug.Print Audible_Typo
End Function
Public Function Audible_SpellCheck(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.insults.spellcheck1À€231À€It's called spell check. Look into it.À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_SpellCheck = DataHeader("D0", pck)
Debug.Print Audible_SpellCheck
End Function
Public Function Audible_UnPlugComputer(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.insults.unplug1À€231À€Seriously - do us all a favor and unplug your computer now!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_UnPlugComputer = DataHeader("D0", pck)
Debug.Print Audible_UnPlugComputer
End Function
Public Function Audible_YourBrain(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.insults.brain1À€231À€It's 10 o'clock. Do you know where your brain is?À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_YourBrain = DataHeader("D0", pck)
Debug.Print Audible_YourBrain
End Function
Public Function Audible_YourBooty(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.flirts.booty1231Arrr! Your booty shivers me timbers232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_YourBooty = DataHeader("D0", pck)
Debug.Print Audible_YourBooty
End Function
Public Function Audible_YourWindow(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.flirts.window1231I love what you've done with your window232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_YourWindow = DataHeader("D0", pck)
Debug.Print Audible_YourWindow
End Function
Public Function Audible_HaySexy(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.flirts.sexy231Hey sexy232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_HaySexy = DataHeader("D0", pck)
Debug.Print Audible_HaySexy
End Function
Public Function Audible_TypeSlow(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.flirts.realslow231I love it when you type real slow232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_TypeSlow = DataHeader("D0", pck)
Debug.Print Audible_TypeSlow
End Function
Public Function Audible_ComeCloser(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.flirts.comecloser1À€231À€Come here you. Come on. Closer. Closer.À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_ComeCloser = DataHeader("D0", pck)
Debug.Print Audible_ComeCloser
End Function
Public Function Audible_LovesMe(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.flirts.lovesme1À€231À€She loves me not. She loves me.À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_LovesMe = DataHeader("D0", pck)
Debug.Print Audible_LovesMe
End Function
Public Function Audible_MeltHeart(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.flirts.heartmelt1231You make my heart melt232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_MeltHeart = DataHeader("D0", pck)
Debug.Print Audible_MeltHeart
End Function
Public Function Audible_HotinHere(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.flirts.hot1À€231À€Is it just me or is it getting really hot in here?À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_HotinHere = DataHeader("D0", pck)
Debug.Print Audible_HotinHere
End Function
Public Function Audible_GottaReboot(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.goodbyes.reboot1À€231À€Oops. Sorry... I have to reboot. Goodbye...À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_GottaReboot = DataHeader("D0", pck)
Debug.Print Audible_GottaReboot
End Function
Public Function Audible_GottaSplit(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.goodbyes.split1À€231À€See ya. I gotta split.À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_GottaSplit = DataHeader("D0", pck)
Debug.Print Audible_GottaSplit
End Function
Public Function Audible_GottaHurt(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.taunt.gottahurt1231Oooh that's gotta hurt231Whatever232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_GottaHurt = DataHeader("D0", pck)
Debug.Print Audible_GottaHurt
End Function
Public Function Audible_Grandma(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.taunt.bestshot1231Hit me with your best shot... Grandma!231Whatever232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_Grandma = DataHeader("D0", pck)
Debug.Print Audible_Grandma
End Function
Public Function Audible_Slip(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.taunt.mopping1231I hope you don't slip while I'm mopping the floor with you.231Whatever232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_Slip = DataHeader("D0", pck)
Debug.Print Audible_Slip
End Function
Public Function Audible_Trying(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.taunt.seriously1231Seriously, are you even trying?231Whatever232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_Trying = DataHeader("D0", pck)
Debug.Print Audible_Trying
End Function
Public Function Audible_BadaBang(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.taunt.badabing1231Badabing badabang badaboom Sucker!231Whatever232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_BadaBang = DataHeader("D0", pck)
Debug.Print Audible_BadaBang
End Function
Public Function Audible_GottaGoBoss(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.goodbyes.parole1231Gotta go. My parole officer needs to use the computer232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_GottaGoBoss = DataHeader("D0", pck)
Debug.Print Audible_GottaGoBoss
End Function
Public Function Audible_HurtPunch(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.contender.tommy_04c231That punch hurt. You mighten shook your head like it didn't hurt, but that hurt.232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_HurtPunch = DataHeader("D0", pck)
Debug.Print Audible_HurtPunch
End Function
Public Function Audible_Oldman(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.losing.wellplayed1À€231À€Well played old man!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_Oldman = DataHeader("D0", pck)
Debug.Print Audible_Oldman
End Function
Public Function Audible_Cheater(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.losing.cheater1À€231À€You're such a cheater!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_Cheater = DataHeader("D0", pck)
Debug.Print Audible_Cheater
End Function
Public Function Audible_NoNoNo(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€230À€base.us.losing.nooo1À€231À€No No No No NO!À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
Audible_NoNoNo = DataHeader("D0", pck)
Debug.Print Audible_NoNoNo
End Function
Public Function Audible_Confidence(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.losing.confidence1231Well I was just trying to build your confidence232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_Confidence = DataHeader("D0", pck)
Debug.Print Audible_Confidence
End Function
Public Function Audible_WhatEver(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.losing.whatever1231Whatever232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_WhatEver = DataHeader("D0", pck)
Debug.Print Audible_WhatEver
End Function
Public Function Audible_ItsOnNow(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.losing.onnow1231It's on now!231Whatever232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_ItsOnNow = DataHeader("D0", pck)
Debug.Print Audible_ItsOnNow
End Function
Public Function Audible_TwoBest(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.losing.besttwo1231How about best two out of three?231Whatever232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_TwoBest = DataHeader("D0", pck)
Debug.Print Audible_TwoBest
End Function
Public Function Audible_Muah(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.taunt.muha1231Muhahahaha!231Whatever232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
Audible_Muah = DataHeader("D0", pck)
Debug.Print Audible_Muah
End Function
Public Function DenyYM6Buddy(WhoFrom As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & WhoFrom & "À€7À€" & WhoTo & "À€14À€" & Message & "À€"
DenyYM6Buddy = DataHeader("86", pck)
Debug.Print
End Function
Public Function DoodlesIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€doodle;1À€64À€0À€"
DoodlesIMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function GalaxyIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€g2;1À€64À€0À€"
GalaxyIMV = DataHeader("06", pck)
Debug.Print GalaxyIMV
End Function
Public Function LorealIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€loreal;1À€64À€0À€"
LorealIMV = DataHeader("06", pck)
Debug.Print LorealIMV
End Function
Public Function HarryPotterIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€hp3dvd;1À€64À€0À€"
HarryPotterIMV = DataHeader("06", pck)
Debug.Print HarryPotterIMV
End Function
Public Function Clone(YourCloneID As String, WhoTo As String, YourBot As String) As String
Dim pck As String
pck = "5À€" & YourCloneID & "À€230À€" & WhoTo & "À€0À€" & YourBot
Clone = DataHeader("D0", pck)
Debug.Print Clone
End Function
Public Function LunchablesIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€lunchables;1À€64À€0À€"
LunchablesIMV = DataHeader("06", pck)
Debug.Print LunchablesIMV
End Function
Public Function JeepIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€jeep;1À€64À€0À€"
JeepIMV = DataHeader("06", pck)
Debug.Print JeepIMV
End Function
Public Function ShoppingIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€shoppingxl;1À€64À€0À€"
ShoppingIMV = DataHeader("06", pck)
Debug.Print ShoppingIMV
End Function
Public Function PhotosIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€photos;1À€64À€0À€"
PhotosIMV = DataHeader("06", pck)
Debug.Print PhotosIMV
End Function
Public Function Invisible(YourID As String) As String
Dim pck As String
pck = "7À€" & YourID & "À€10À€0À€13À€0À€11À€BE9ED4C3À€17À€0À€47À€2À€198À€1À€197À€1fShAsRFJAAICJ-FKkIpgkkzKCQ==À€205À€-130,-40,262À€213À€1À€"
Invisible = DataHeader("02", pck)
Debug.Print Invisible
End Function
Public Function SendBlank_PM(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "4" & WhoFrom & "5" & WhoTo & "230base.us.hello.whistle232e6e04dfe428c6bf75d5ea021ee58c583e53afb89"
SendBlank_PM = DataHeader("D0", pck)
Debug.Print SendBlank_PM
End Function
Public Function StealthOnline(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "1À€" & WhoFrom & "À€31À€2À€13À€2À€7À€" & WhoTo & "À€"
StealthOnline = DataHeader("B9", pck)
Debug.Print StealthOnline
End Function
Public Function StealthOffline(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "1À€" & WhoFrom & "À€31À€1À€13À€2À€7À€" & WhoTo & "À€"
StealthOffline = DataHeader("B9", pck)
Debug.Print StealthOffline
End Function
Public Function RemoveID(WhoFrom As String, WhoTo As String, Group As String) As String
Dim pck As String
pck = "1À€" & WhoFrom & "À€7À€" & WhoTo & "À€65À€" & Group & "À€"
RemoveID = DataHeader("84", pck)
Debug.Print RemoveID
End Function
Public Function YM6Buzz(WhoFrom As String, WhoTo As String, Message As TextBox) As String
Dim pck As String
pck = "4À€" & WhoFrom & "À€5À€" & WhoTo & "À€14À€" & WhoTo & "À€14À€" & WhoTo & "++À€14À€" & WhoTo & "++À€14À€" & WhoTo & "++À€14À€" & WhoTo & "++À€14À€" & WhoTo & "++À€14À€" & WhoTo & "++À€14À€" & WhoTo & "++À€14À€" & WhoTo & "++À€14À€" & Message & "À€97À€1À€"
YM6Buzz = DataHeader("06", pck)
Debug.Print
End Function
Public Function YM6VoiceInvite(WhoFrom As String, WhoTo As String) As String
Dim pck As String
pck = "1" & WhoFrom & "5" & WhoTo & "57131"
YM6VoiceInvite = DataHeader("4A", pck)
Debug.Print
End Function
Public Function YM6File(WhoTo As String, WhoFrom As String, WhoFromAgain As String, File As App) As String
Dim pck As String
pck = "5À€" & WhoTo & "À€4À€" & WhoFrom & "À€49À€FILEXFERÀ€1À€" & WhoFromAgain & "À€13À€1À€27À€" & File & "À€28À€68999À€20À€"
YM6File = DataHeader("4D", pck)
Debug.Print YM6File
End Function
Public Function SendPMYM6(WhoFrom As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1" & WhoFrom & "5" & WhoTo & "14" & Message & "97163642100212660"
SendPMYM6 = DataHeader("06", pck)
Debug.Print
End Function
Public Function YM6Conference(WhoFrom As String, WhoFromAgain As String, Message As String, WhoTo As String) As String
Dim pck As String
pck = "1À€" & WhoFrom & "À€50À€" & WhoFromAgain & "À€57À€" & Message & "-pDTUCRU__ATnNR9T2Y.q7g--À€58À€Join My Conference...À€97À€1À€52À€" & WhoTo & "À€13À€256À€"
YM6Conference = DataHeader("18", pck)
Debug.Print YM6Conference
End Function
Public Function YM6StatusChange(YahooID As String, Message As String) As String
Dim pck As String
pck = "7À€" & YahooID & "À€10À€99À€19À€" & Message & "À€47À€1À€11À€659A3D94À€17À€0À€138À€1À€13À€1À€187À€0À€"
YM6StatusChange = DataHeader("C6", pck)
Debug.Print YM6StatusChange
End Function
Public Function YM6CamInvite(WhoTo As String, WhoFrom As String) As String
Dim pck As String
pck = "5" & WhoTo & "4" & WhoFrom & "14 13049WEBCAMINVITE"
YM6CamInvite = DataHeader("4B", pck)
Debug.Print YM6CamInvite
End Function
Public Function Iggy(YourID As String, IggyWho As String) As String
Dim pck As String
pck = "1À€" & YourID & "À€7À€" & IggyWho & "À€13À€1À€"
Iggy = DataHeader("85", pck)
End Function
Public Function InCrediblesIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€incredibles;1À€64À€0À€"
InCrediblesIMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function FishTankIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€fishtank;1À€64À€0À€"
FishTankIMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function SnowIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€snowflake;1À€64À€0À€"
SnowIMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function DilbertIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€dilbert;1À€64À€0À€"
DilbertIMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function HeartsIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€hearts;1À€64À€0À€"
HeartsIMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function ResidentEvilIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€re2;1À€64À€0À€"
ResidentEvilIMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function LeavesIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€leaves;1À€64À€0À€"
LeavesIMV = DataHeader("06", pck)
Debug.Print LeavesIMV
End Function
Public Function AmazingIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€mazing;1À€64À€0À€"
AmazingIMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function DoritosIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€doritosdd;1À€64À€0À€"
DoritosIMV = DataHeader("06", pck)
Debug.Print DoritosIMV
End Function
Public Function gmc2IMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€gmc2;1À€64À€0À€"
gmc2IMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function Campbells2IMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€campbells2;1À€64À€0À€"
Campbells2IMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function PeanutsIMV(YourBot As String, WhoTo As String, Message As String) As String
Dim pck As String
pck = "1À€" & YourBot & "À€5À€" & WhoTo & "À€14À€" & Message & "À€97À€1À€63À€Peanuts;1À€64À€0À€"
PeanutsIMV = DataHeader("06", pck)
Debug.Print
End Function
Public Function DataHeader(ByVal PacketType As String, ByVal Packet As String) As String
Dim I As Integer
Dim X As Integer
X = 0
I = Len(Packet)
Do While I > 255
I = I - 256
X = X + 1
Loop
DataHeader = "YMSG" & Chr(0) & Chr(11) & String(2, 0) & Chr(X) & Chr(I) & Chr(0) & Chr("&H" & PacketType) & String(8, 0) & Packet
Debug.Print DataHeader
End Function