Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Visual Basic [VB] (http://www.go4expert.com/articles/visual-basic-tutorials/)
-   -   Yahoo packets in VB ! (http://www.go4expert.com/articles/yahoo-packets-vb-t5022/)

kush_2207 1Jul2007 02:23

Yahoo packets in VB !
 
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 & "À€180À€ltÀ€183À€À€181À€À€11À€tyrk828hb0zaycr.xru5qg--À€13À€1À€"
        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 & "À€180À€bgÀ€183À€À€181À€À€11À€pcgcfcdw7wg8zhfcvoxnqq--À€13À€1À€"
        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 & "À€180À€ttbÀ€183À€À€181À€À€11À€236ibnipkkbtk4ufa4dgna--À€13À€1À€"
        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 & "À€180À€ckÀ€183À€À€181À€À€11À€w9ky8drntpjsz3ncnwxfjw--À€13À€1À€"
        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 & "À€180À€chÀ€183À€À€181À€À€11À€fiujrx1lfgy3bluver.kvq--À€13À€1À€"
        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 & "À€180À€phÀ€183À€À€181À€À€11À€qumvsv.jm60oeusu1wirha--À€13À€1À€"
        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 & "À€180À€doÀ€183À€À€181À€À€11À€rjb0bqstgg09wke9ydkljq--À€13À€1À€"
        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 & "À€180À€wwÀ€183À€À€181À€À€11À€zazxe_ppbqb6xrlout.sxw--À€13À€1À€"
        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 & "À€180À€plÀ€183À€À€181À€À€11À€xnmu9vq9opxgzynzaed5ya--À€13À€1À€"
        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 & "À€230À€base.us.taunt.dontmakeme1À€231À€Don't make me hurt youÀ€231À€WhateverÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.hello.nosepick1À€231À€Oh... uh... HelloÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.hello.whistle1À€231À€WhistleÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.contender.tommy_04cÀ€231À€That punch hurt. You mighten shook your head like it didn't hurt, but that hurt.À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.contender.tommy_03bÀ€231À€You gotta keep Fuckin Punching in there. . .Punch!(Audible By vb_packets)À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.contender.tommy_02bÀ€231À€If you don't have the heart for this, let's do something else.À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.insults.monkey1À€231À€I've gotten better IM's from a drunken monkeyÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.flirts.booty1À€231À€Arrr!  Your booty shivers me timbersÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.flirts.window1À€231À€I love what you've done with your windowÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.flirts.sexyÀ€231À€Hey sexyÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.flirts.realslowÀ€231À€I love it when you type real slowÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.flirts.heartmelt1À€231À€You make my heart meltÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.taunt.gottahurt1À€231À€Oooh that's gotta hurtÀ€231À€WhateverÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.taunt.bestshot1À€231À€Hit me with your best shot... Grandma!À€231À€WhateverÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.taunt.mopping1À€231À€I hope you don't slip while I'm mopping the floor with you.À€231À€WhateverÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.taunt.seriously1À€231À€Seriously, are you even trying?À€231À€WhateverÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.taunt.badabing1À€231À€Badabing badabang badaboom Sucker!À€231À€WhateverÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.goodbyes.parole1À€231À€Gotta go.  My parole officer needs to use the computerÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.contender.tommy_04cÀ€231À€That punch hurt. You mighten shook your head like it didn't hurt, but that hurt.À€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.losing.confidence1À€231À€Well I was just trying to build your confidenceÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.losing.whatever1À€231À€WhateverÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.losing.onnow1À€231À€It's on now!À€231À€WhateverÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.losing.besttwo1À€231À€How about best two out of three?À€231À€WhateverÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.taunt.muha1À€231À€Muhahahaha!À€231À€WhateverÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€230À€base.us.hello.whistleÀ€232À€e6e04dfe428c6bf75d5ea021ee58c583e53afb89À€"
        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 & "À€57À€À€13À€1À€"
        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 & "À€97À€1À€63À€À€64À€2À€1002À€1À€266À€0À€"
        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À€ À€13À€0À€49À€WEBCAMINVITEÀ€"
        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 1Jul2007 12:04

Re: Yahoo packets in VB !
 
Can you explain something about what the code is all about.

kush_2207 1Jul2007 12:44

Re: Yahoo packets in VB !
 
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 1Jul2007 14:37

Re: Yahoo packets in VB !
 
admin...please remove the spam !

shabbir 1Jul2007 14:55

Re: Yahoo packets in VB !
 
Quote:

Originally Posted by kush_2207
admin...please remove the spam !

Removed and user banned.

Bhullarz 25Sep2007 22:11

Re: Yahoo packets in VB !
 
What are the controls required and which function is used for which purpose? Plz explain

kush_2207 25Sep2007 23:44

Re: Yahoo packets in VB !
 
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 28May2008 17:38

Re: Yahoo packets in VB !
 
what an idea kush!

Yoosha 14Jul2008 00:59

Re: Yahoo packets in VB !
 
Any body have a login packet or simple prog(YMsgr 8/9/...)?

faizulhaque 14Jul2008 12:24

Re: Yahoo packets in VB !
 
Nopz


All times are GMT +5.5. The time now is 15:56.