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 !!!''''

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

PacketSender Proje

---

Sorunsuzca paket yollar.

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


veya

http://yadi.sk/d/uG3dIhLr6nqL5


Sevgilerimle.

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 !!

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

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ü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

EUKO Chaos Tıklama

3 4 ay önce biri istemişti benim pc fln yanınca satamamıştım bende paylaşayım dedim 3-4 saat içinde sıfırdan yazmıştım eksikleri ve hataları olabilir emin değilim elbet işine yarıyan çıkar

Eklenmiş Dosya

limitless_client.zip (6,9 KB (Kilobyte), 43x kez indirilmiştir)

Post Uzun kodlamada vakit kazanma

---

Merhaba arkadaşlar ara sıra böyle şeyleri konuya eklemeyi düşünüyorum

Diyelimki bir select Case olayınız var ve çok fazla case var

Kod:

Select Case Tanımım
          case 0:if Tan2 = 1 then msgbox 0
          case 1:if Tan2 = 1 then msgbox 1
          case 2:if Tan2 = 1 then msgbox 2
          .....
          .....
end select

böyle diyelimki 300 e kadar gidicek.elle yazmak zor.Bunun için kendinize şöyle birşey geliştirebilirsiniz.Ben kendim için basit projeler yaptım kullanıyorum

1.textbox (name = text1,multiline = true)
1 buton(name = command1)

buton(command1) içine

Kod:

For i = 0 to 300 ' 300 E adar case 
text1 = text1 & vbcrlf & "case " & (i) & ":if Tan2 = 1 then msgbox " & (i)
next i

Butona bastığımız anda 300 e kadar case yapısı oluşturur.

bu tarz sorunlarla karşılaştığınızda çözüm olacaktır umarım.

source yenı baslıyanlar için ((Acıklamalı))

programlamaya heves sardığımda basladım her kodu tek tek inceledim nasıl oluyor bitiyor dıye
az cok bişeyler öğrendim taki paket yollama fonksıyonuna gelen kadar orda kafa durdu bıraktım 
bu projede yenı baslıyanlar için hiçbişey bilmeyenler için faydalı 
acıklamalar var hep arastırarak yaptım
cok basit en basit halı

her programa injet olur siz sadece gerisini getirceksınız

rohinrim.rar - Speedy Share - upload your files here

Parasız Gate paketleri

Linkte...

alıntıdır..

Eklenmiş Dosya

parasız gate paketleri.txt (288 Byte, 53x kez indirilmiştir)

Yes My Lord

Knight Online Üyelik

Fastplayer Bot 1968 Source

İndirme Linkleri

Kod:

http://speedy.sh/UsU7V/yeni-bot.rar

Kod:

http://www.dosya.tc/server12/aSgg1h/yenibot.rar.html

Bot Tarja Dll İle Yazılmıştır Bütün Job Ların Skilleri + Zamanlı Skilleri + Heal Ekledim En Son Yaptığım Projem Olacaktır.İstediğiniz Gibi Editleyin Kullanın

Osmanlı Bot Source 1974

S.a cümleten

Arkdslar 1974 osmanlı bot Gunceldir ve source

Download:
http://yadi.sk/d/SIcGcCnc8GJ9h

İtachi Koxp 1871 Source

Cümleten s.a

Yeni başlayanlar için faydalı olur inş.
Hs cıkmadan once kendim kullanıyordum
Özelliklerin %95 i çalısıyordu o zman, şimdi bilemem

Foto:

Resmi orjinal boyutlariyla görmek için tiklayiniz. Orjinal resim : 774x642 dir.

Link:
İtachi Koxp 1871.rar

Virüstotal:
https://www.virustotal.com/tr/file/9...is/1377166213/

Visual Basic 6 8 li ok

sa arkadaslar usko 8 li ok kodlarını vericem gayet güzel calısmakta ....

Not : Tarja.dll ye göre ayarlıdır ...
Bi Teşekkür ü Esirgemeyin
SS :




Gerekenler ...

1 adet timer adı timer17 olucak interval : 2000 Enabled = False olucak timer e

Kod:

sekizliok

yazıyoruz
1 adet check adı check25 olucak
içine ..

Kod:

If Check25.Value = 1 Then
Timer17.Enabled = True
Else
Timer17.Enabled = False
End If

yazıyoruz

Modül e

Kod:

Public Function sekizliok()
If MobID = "FFFF" Then
Else
PacketSend "3101" & Strings.Mid(AlignDWORD(CharClass & "515"), 1, 6) & "00" & CharID & MobID & "00000000000000000000000000000D00"
PacketSend "3102" & Strings.Mid(AlignDWORD(CharClass & "515"), 1, 6) & "00" & CharID & MobID & "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "515"), 1, 6) & "00" & CharID & MobID & "00000000000000000400000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "515"), 1, 6) & "00" & CharID & MobID & "00000000000000000400000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "515"), 1, 6) & "00" & CharID & MobID & "00000000000000000500000000000000"
Bekle (50)
PacketSend "3101" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000000000000000000F00"
PacketSend "3102" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000D020600B7019BFF0000F0000F00"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000001500000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000001500000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000001600000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000001700000000000000"
PacketSend "3103" & Strings.Mid(AlignDWORD(CharClass & "555"), 1, 6) & "00" & CharID & MobID & "00000000000000001800000000000000"
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

Kod:

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

Kod:

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

ekliyoruz işlem tamamdır k.g

Chaos ve Maden Bot Source ...

Buyrun bunlarda maden ve chaos & Hapis bot projeleri

Maden ve Chaos & Hapis bot ...

Visual Basic Proje Arşivi Kaçırma ....

a elimde bulunan projeleri paylaşmak istedim buyrun projeler ...

BenjaminLines Projeleri Yandex ...


Sourceler1 Yandex


İtem Seal Source Yandex


Projeler1 Yandex


Projeler Yandex

Resmi orjinal boyutlariyla görmek için tiklayiniz. Orjinal resim : 755x600 dir.

Umarım İşinize yarar