30 Ağustos 2013 Cuma

Kousbotla Uyumlu 8x Client Bot Source.

Bundan Sonra İnsanlara İyilik yapmaya Karar werdim Arkadaşlar.
Hayatta Her Şey Para deildir Kardeşliktir.
Dosya.tc - cretsiz, Hzl ve Kolay Dosya Paylam
+ Atmanız Yerterlidir.....
SpeedyShare DowlanT-
http://www.speedyshare.com/acVTG/8xClient.rar


POİNTER VE OFFSETLER DEİŞMEDİ KULLANA BİLİRSİNİZ !!!''''
Gönderen zaman: Hiç yorum yok:

Rogue,Warrior,Mage,Priest Zamanlı Skiller Esksiksiz.

===================== Mage =============================================
Public Sub FireArmorBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "573"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub
Public Sub LightningArmorBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "773"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub ImmunityLightningBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "748"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub EndureLightningBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "724"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub ResistLightningBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "706"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub IceArmorBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "673"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub IceBarrierBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "654"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub ImmunityColdBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "648"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub FrozenShellBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "630"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub EndureColdBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "624"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub FrozenArmorBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "612"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub ResistColdBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "606"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub ImmunityFireBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "548"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub EndureFireBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "524"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub ResistFireBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "506"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub


Public Sub InstantlyMagicBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "820"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

Public Sub AbsolutePowerBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "802"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "FB020400B401000000000000")
End Sub

'===================== Warrior =============================================
Public Sub WallOfIronBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "675"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub


Public Sub HpBoosterBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "780"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub RegenerationBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "750"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub ReturnToLifeBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "740"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub


Public Sub NimbleWindBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "735"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub


Public Sub BlazeKillerBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "731"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub


Public Sub RestorationBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "730"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub RiseBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "715"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub PainKillerBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "710"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub


Public Sub WarriorSprintBas()
Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "002"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")
End Sub

Public Sub DefenseBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "007"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub GainBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "705"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub
'===================== Priest ==============================================

Public Sub Strength()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "004"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub
Public Sub PartyStrength(Üye As String)
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "004"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + uyeID(Üye) + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + uyeID(Üye) + "000000000000000000000000")
End Sub

Public Sub EruptionBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "729"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub WildnessBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "629"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub MinaksThornBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "826"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub


Public Sub CurseRefractionBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "820"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub PrayerOfGodsPowerBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "020"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub PrayerOfCronosBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "012"), 1, 6) '013
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub ResistPoisonBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "007"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub


Public Sub StrengthBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "004"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub
Public Sub BlastingBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "529"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub


'===================== Rogue ===============================================
Public Sub SprintBas()
Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "002"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")
End Sub
Public Sub StrengthOfWolfBas()
Paket ("3101" & AlignDWORD(SınıfBul() & "030") & KarakterID() & "FFFF" & Strings.Mid(AlignDWORD(KarakterX), 1, 4) & "0400" & Strings.Mid(AlignDWORD(KarakterY), 1, 4) & "0000000000001100")
Paket ("3103" & AlignDWORD(SınıfBul() & "030") & KarakterID() & "FFFF" & Strings.Mid(AlignDWORD(KarakterX), 1, 4) & "0400" & Strings.Mid(AlignDWORD(KarakterY), 1, 4) & "000000000000")
End Sub

Public Sub HideBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "700"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub EvadeBas()
Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "710"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")
End Sub
Public Sub CatsEyesBas()
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "715"), 1, 6)
Paket ("3106" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub
Public Sub LightFeetBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "725"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub SafetyBas()
Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "730"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")
End Sub
Public Sub LupineEyesBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "735"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000001400")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub
Public Sub RogueCureCurse()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul & "736"), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000000F00"
Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "F7020400AE01000000000000"
End Sub

Public Sub RogueCureDisease()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul & "748"), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000000F00"
Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "F7020400AE01000000000000"
End Sub
Public Sub ScaledSkinBas()
Paket ("3103" + Strings.Mid(AlignDWORD(SınıfBul() & "760"), 1, 6) + "00" + KarakterID() + KarakterID() + "0000000000000000000000000000")
End Sub
Public Sub ConcentrationBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "775"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Function RogueZehirKontrol() As Boolean
Dim AA
Dim BB
Dim CC
AA = LongOku(KO_PTR_DLG)
BB = LongOku(AA + &H338)
CC = LongOku(BB + &H110)
If CC = "0" Then RogueZehirKontrol = True Else RogueZehirKontrol = False
End Function
Public Sub CriticalPointBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "685"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub
Public Sub MagicShieldBas()
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "802"), 1, 6)
Paket ("3106" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000A00")
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000A00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub StealthBas()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "645"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "000000000000000000000000")
End Sub

Public Sub Swift()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "010"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + KarakterID() + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + KarakterID() + "F7020400AE01000000000000")
End Sub
Public Sub PartySwift(Üye As String)
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul() & "010"), 1, 6)
Paket ("3101" + SkillID + "00" + KarakterID() + uyeID(Üye) + "0000000000000000000000000F00")
Paket ("3103" + SkillID + "00" + KarakterID() + uyeID(Üye) + "F7020400AE01000000000000")
End Sub
Gönderen zaman: Hiç yorum yok:

PacketSender Proje


Sorunsuzca paket yollar.

http://www.vbdepo.com/Koinject.rar


veya

http://yadi.sk/d/uG3dIhLr6nqL5


Sevgilerimle.
Gönderen zaman: Hiç yorum yok:

Tarja Dll Proje

Arkadaşlar bi ara dedim bot yapim sıkıldım bıraktım @fastplayer sourcenin üstüne bir şeyler yaptım umarım işinize yarar
Dosya.tc - cretsiz, Hzl ve Kolay Dosya Paylam
Not-İçinde tasarım wardır onu yüklemeniz Lazım vb6 Yı yoksa hata werir !!
Gönderen zaman: Hiç yorum yok:

Priest Manuel & Auto ATack Kodları

sa kendi priestime göre yapmıs oldugum tek client koxpdan priest Atack sistemini paylasıyorum

Not : Tarja.dll göre yazılmıstır. farklı projelere görede uyarlıya bilirsiniz ...

birden fazla skil secebilirsiniz sırasıyla hepsini vurucaktır paylasım devam edecek ...

Not2 : Kodlarda eksik bi yer varsa lütfen söyleyiniz cok uzun oldugu için karıstırabilirim ... k.g

Kullananlardan tek istegim Bir Teşekkür ...

Gerekenler ...
1 adet list adı list2 olucak
listenin içine >
Kod:
Wrath
Wield
Harsh
Collision
Shuddering
Ruin
Helish
Tilt
Bloody
RavingEdge
Hades
Judgement
stroke
1 adet timer adı timer7 olucak interval = 10 enabled = false içine asagıdakileri ekleyin ...

Kod:
If MobID = "FFFF" Then Else If MobID2 = "FFFF" Then Exit Sub
Wrath
Wield
Harsh
Collision
Shuddering
Ruin
Helish
Tilt
Bloody
RavingEdge
Hades
Judgement
stroke
1 adet check ekleyin adı check12 olucak
Kod:
If Check12.Value = 1 Then
Timer7.Enabled = True
Check12.Caption = "Durdur"
Else
Timer7.Enabled = False
Check12.Caption = "Başlat"
End If
2 adet option option1.caption = Manuel Atack option2.caption = Auto Atack olucak
option1 in içine
Kod:
Option2.value = false
option2 in içine
Kod:
Option1.value = false
modül e ekleyin ....
Kod:
Function Wrath()
If Form1.List2.Selected(0) = True Then
If Form1.Option1.Value = True Then
Dim SkillSeç As String
Dim skillID As String
If MobID = "FFFF" Then
Else
SkillSeç = "611"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
End If
End If
End If
If Form1.List2.Selected(0) = True Then
If Form1.Option2.Value = True Then
If MobID2 = "FFFF" Then
Else
SkillSeç = "611"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
End If
End If
End If
End Function
Function Wield()
If Form1.List2.Selected(1) = True Then
If Form1.Option1.Value = True Then
Dim SkillSeç As String
Dim skillID As String
If MobID = "FFFF" Then
Else
SkillSeç = "620"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
PacketSend "080101" & MobID & "FF00000000"
End If
End If
End If
If Form1.List2.Selected(1) = True Then
If Form1.Option2.Value = True Then
If MobID2 = "FFFF" Then
Else
SkillSeç = "620"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "080101" & MobID2 & "FF00000000"
Bekle (900)


End If
End If
End If
End Function
Function Harsh()
If Form1.List2.Selected(2) = True Then
If Form1.Option1.Value = True Then
Dim SkillSeç As String
Dim skillID As String
If MobID = "FFFF" Then
Else
SkillSeç = "641"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (2000)
End If
End If
End If
If Form1.List2.Selected(2) = True Then
If Form1.Option2.Value = True Then
If MobID2 = "FFFF" Then
Else
SkillSeç = "641"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (2000)
End If
End If
End If
End Function

Function Collision()
If Form1.List2.Selected(3) = True Then
If Form1.Option1.Value = True Then
Dim SkillSeç As String
Dim skillID As String
If MobID = "FFFF" Then
Else
SkillSeç = "511"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
End If
End If
End If
If Form1.List2.Selected(3) = True Then
If Form1.Option2.Value = True Then

If MobID2 = "FFFF" Then
Else
SkillSeç = "511"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
End If
End If
End If
End Function
Function Shuddering()
If Form1.List2.Selected(4) = True Then
If Form1.Option1.Value = True Then
If MobID = "FFFF" Then
Else

SkillSeç = "520"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
End If
End If
End If
If Form1.List2.Selected(4) = True Then
If Form1.Option2.Value = True Then
If MobID2 <> "FFFF" Then

SkillSeç = "520"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
End If
End If
End If
End Function
Function Ruin()
If Form1.List2.Selected(5) = True Then
If Form1.Option1.Value = True Then
Dim SkillSeç As String
Dim skillID As String
If MobID = "FFFF" Then
Else
SkillSeç = "542"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (2000)
End If
End If
End If
If Form1.List2.Selected(5) = True Then
If Form1.Option2.Value = True Then
If MobID2 = "FFFF" Then
Else
SkillSeç = "542"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (2000)
End If
End If
End If
End Function
Function Helish()
If Form1.List2.Selected(6) = True Then
If Form1.Option1.Value = True Then
Dim SkillSeç As String
Dim skillID As String
If MobID = "FFFF" Then
Else
SkillSeç = "551"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (3000)
End If
End If
End If
If Form1.List2.Selected(6) = True Then
If Form1.Option2.Value = True Then
If MobID2 = "FFFF" Then
Else
SkillSeç = "551"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (3000)
End If
End If
End If
End Function

Function Tilt()
If Form1.List2.Selected(7) = True Then
If Form1.Option1.Value = True Then
Dim SkillSeç As String
Dim skillID As String
If MobID = "FFFF" Then
Else
SkillSeç = "712"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
End If
End If
End If
If Form1.List2.Selected(7) = True Then
If Form1.Option2.Value = True Then
If MobID2 = "FFFF" Then
Else
SkillSeç = "712"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
End If
End If
End If
End Function
Function Bloody()
If Form1.List2.Selected(8) = True Then
If Form1.Option1.Value = True Then
Dim SkillSeç As String
Dim skillID As String
If MobID = "FFFF" Then
Else
SkillSeç = "721"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
End If
End If
End If
If Form1.List2.Selected(8) = True Then
If Form1.Option2.Value = True Then
 
If MobID2 = "FFFF" Then
Else
SkillSeç = "721"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (900)
End If
End If
End If
End Function
Function RavingEdge()
If Form1.List2.Selected(9) = True Then
If Form1.Option1.Value = True Then
Dim SkillSeç As String
Dim skillID As String
If MobID = "FFFF" Then
Else
SkillSeç = "739"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (2000)
End If
End If
End If
If Form1.List2.Selected(9) = True Then
If Form1.Option2.Value = True Then
 
If MobID2 = "FFFF" Then
Else
SkillSeç = "739"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (2000)
End If
End If
End If
End Function
Function Hades()
If Form1.List2.Selected(10) = True Then
If Form1.Option1.Value = True Then
Dim SkillSeç As String
Dim skillID As String
If MobID = "FFFF" Then
Else
SkillSeç = "750"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (3000)
End If
End If
End If
If Form1.List2.Selected(10) = True Then
If Form1.Option2.Value = True Then
If MobID2 = "FFFF" Then
Else
SkillSeç = "750"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (3000)
End If
End If
End If
End Function
Function Judgement()
If Form1.List2.Selected(11) = True Then
If Form1.Option1.Value = True Then
If MobID = "FFFF" Then
Else
SkillSeç = "802"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (1100)
End If
End If
End If
If Form1.List2.Selected(11) = True Then
If Form1.Option2.Value = True Then
If MobID2 = "FFFF" Then
Else
SkillSeç = "802"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (1100)
End If
End If
End If
End Function
Function stroke()
If Form1.List2.Selected(12) = True Then
If Form1.Option1.Value = True Then
If MobID = "FFFF" Then
Else
SkillSeç = "001"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00"
Bekle (1100)
End If
End If
End If
If Form1.List2.Selected(12) = True Then
If Form1.Option2.Value = True Then
If MobID2 = "FFFF" Then
Else
SkillSeç = "001"
skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6)
PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00"
PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00"
Bekle (1100)
End If
End If
End If
End Function

Kod:
Function MobID() As String
    On Error Resume Next: Cinfo = CharInfo(): MobID = Mid(AlignDWORD(Cinfo.TID), 1, 4)
End Function

Function MobID2() As String
    On Error Resume Next: Cinfo = CharInfo(): MobID2 = Mid(AlignDWORD(Cinfo.NEAR), 1, 4)
End Function

Kod:
Public Sub Bekle(seconds As Integer, Optional sn As Boolean = False)
On Error Resume Next
If sn = True Then
        dTimer = Second(Time)
          Do Until dTimer = Second(Time) - seconds
Sleep (1)
         DoEvents
          Loop
Else
Dim dTimer2 As Double
          dTimer2 = Timer
          Do While Timer < dTimer2 + seconds / 1000
Sleep (1)
         DoEvents
          Loop
End If
End Sub
Alıntı ile Cevapla
Gönderen zaman: Hiç yorum yok:

Auto Heal Visual Basic 6 Kodları ...

Sa Arkadaşlar sizlere kendi basıma ugrasıp yaptıgım Oto heal kodlarını vericem ...

Not: Tarja.dll ye göre yazılmıstır...

Gerekenler...
1 adet check adı check21 olucak
2 adet timer interval ları 1 olsun Enabled = True olucak
1 adet textbox adı text19 olucak


Timerlerden 1. sine


Kod:
Text19.Text = GetInfo(MaxHP) - GetInfo(HP)
Timerlerden 2. sine

Kod:
If Check21.Value = 1 Then
OtoHeal
End If
Check21 e bişey yazmayın ...
Kod:
Function CharID() As String
    On Error Resume Next: Cinfo = CharInfo(): CharID = Mid(AlignDWORD(Cinfo.MEID), 1, 4)
End Function
Modül e Ekleyin ...
Kod:
Function OtoHeal()
If Form1.Text19.Text > 60 Then
If Form1.Text19.Text < CharMaxHP Then
PacketSend "3101" + Strings.Mid(AlignDWORD(CharClass & "500"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
PacketSend "3103" + Strings.Mid(AlignDWORD(CharClass & "500"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
Bekle (900)
'240 heal
If Form1.Text19.Text > 240 Then
If Form1.Text19.Text < CharMaxHP Then
PacketSend "3101" + Strings.Mid(AlignDWORD(CharClass & "509"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
PacketSend "3103" + Strings.Mid(AlignDWORD(CharClass & "509"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
Bekle (900)
'360 heal
If Form1.Text19.Text > 360 Then
If Form1.Text19.Text < CharMaxHP Then
PacketSend "3101" + Strings.Mid(AlignDWORD(CharClass & "518"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
PacketSend "3103" + Strings.Mid(AlignDWORD(CharClass & "518"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
Bekle (900)
'720 heal
If Form1.Text19.Text > 720 Then
If Form1.Text19.Text < CharMaxHP Then
PacketSend "3101" + Strings.Mid(AlignDWORD(CharClass & "527"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
PacketSend "3103" + Strings.Mid(AlignDWORD(CharClass & "527"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
Bekle (900)
'960 heal
If Form1.Text19.Text > 960 Then
If Form1.Text19.Text < CharMaxHP Then
PacketSend "3101" + Strings.Mid(AlignDWORD(CharClass & "536"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
PacketSend "3103" + Strings.Mid(AlignDWORD(CharClass & "536"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
Bekle (900)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Function

Kod:
Public Sub Bekle(seconds As Integer, Optional sn As Boolean = False)
On Error Resume Next
If sn = True Then
        dTimer = Second(Time)
          Do Until dTimer = Second(Time) - seconds
Sleep (1)
         DoEvents
          Loop
Else
            
            Dim dTimer2 As Double
          dTimer2 = Timer
          Do While Timer < dTimer2 + seconds / 1000
Sleep (1)
         DoEvents
          Loop
End If
End Sub

Kullanan kişilerden Tek İstedigim Bi Teşekkür


İnşallah İşinize yarar ... Suanda ben kullanıyorum ... Calısmaktadadır...
Gönderen zaman: Hiç yorum yok:

Güncel speed hack fonksiyonu

Timer ;

Kod:
On Error Resume Next
If Check1.Value And Form1.Check1.Value = 1 Then
If .CharId > "0000" And GetAsyncKeyState(&HA2) Then .GogoKor .MouseX, .MouseY
End With
Next
End If
End Sub

Kod:
Public Sub GogoKor(XKor As Integer, YKor As Integer)
Dim FarkX As Long, FarkY As Long
Dim ZıplaX As Integer, ZıplaY As Integer
FarkX = XKor - CharX
FarkY = YKor - CharY
ZıplaX = 5
ZıplaY = 5

If CharX = XKor And CharY = YKor Then
Exit Sub
End If
Dim i
For i = 1 To 5
If FarkX = -1 * i Or FarkX = i Then
ZıplaX = 1
ElseIf FarkY = -1 * i Or FarkY = i Then
ZıplaY = 1
End If
Next i

If FarkX <> 0 Or FarkY <> 0 Then
If FarkX < 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HC4, CharX - ZıplaX
ElseIf FarkX > 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HC4, CharX + ZıplaX
End If
If FarkY < 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HCC, CharY - ZıplaY
ElseIf FarkY > 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HCC, CharY + ZıplaY
End If
PaketYolla "06" & FormatHex(Hex(CInt(CharX) * 10), 4) & FormatHex(Hex(CInt(CharY) * 10), 4) & FormatHex(Hex(CInt(CharZ) * 10), 4) & "2D0003"
End If
End Sub
Biraz Acele Oldu eksiğim varsa siz taammlayın mazur görün
Mausex MauseY ekleyip yapabilirsiniz biraz daha geliştirebilirsiniz duraklama olmadan speed hacktir
Gönderen zaman: Hiç yorum yok:
Kaydol: Kayıtlar (Atom)