• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

Maak je eigen tibiacheat met Vb6

Master-m

Need help? Just ask!
Senator
Joined
May 28, 2007
Messages
4,338
Reaction score
16
Location
The Netherlands
Hier komt wat informatie om je te helpen om een basis tibiacheat te programmeren in VB(Visual Basic).

Stap 1: Download eerst Visual Basic 6.0, dat heb je nodig om het mee te maken. Zoek op Microsoft Visual Studio 6.0.

Stap 2: Installeer Vb zodat we kunnen beginnen met het maken van een cheat!

Stap 3:Start vb op, je ziet een schermpje met allemaal dingen waaruit je kan kiezen. Kies voor Standard EXE.

Stap 4: zet 3 labels onder elkaar en noem ze: Name: , Life: , Mana:
Zie screenshot:


Stap 5: Rechtermuisklik an de rechter kant waar je forms/module ziet staan. Druk op add-> module.

Stap 6: doe rechtermuisknop op die nieuwe module en druk op view Source.

Stap 7: Plak dit in die module:
Code:
Global BattleList_Array(&H60EB30 To (&H6148F0 + 147 * 160)) As Long ' 8.00
Global BattleList_Address As Long
Public Const Distance_Characters = 160
Public Const PLAYER_ID = &H60EAD0

Global BattleListChar(1 To 148) As Chars
Public Type Chars
    CreatureId As Long
    CreatureType As Byte
    CreatureName As String
    CreatureX As Long
    CreatureY As Long
    CreatureZ As Long
    CreatureIsWalking As Long
    CreatureDirection As Long
    CreatureOutfit As Long
    CreatureOutfitHead As Long
    CreatureOutfitBody As Long
    CreatureOutfitLegs As Long
    CreatureOutfitFeet As Long
    CreatureOutfitAddon As Long
    CreatureLight As Long
    CreatureLightColor As Long
    CreatureHP As Long
    CreatureWalkSpeed As Long
    CreatureIsVisible As Long
    CreatureSkull As Long
    CreatureParty As Long
End Type

Public Enum Distance
    cID = 0
    cType = -1
    cName = 4
    cx = 36
    cy = 40
    cZ = 44
    IsWalking = 76
    Direction = 80
    Outfit = 96
    OutfitHead = 100
    OutfitBody = 104
    OutfitLegs = 108
    OutfitFeet = 112
    OutfitAddon = 116
    Light = 120
    LightColor = 124
    HpBar = 136
    WalkSpeed = 140
    IsVisible = 144
    Skull = 148
    Party = 152
End Enum

Stap 8: ga nu terug naar de lay-out van form1 en voeg een timer toe. Bij de opties van de timer typ je dit: Enabled = True
Interval = 500
Derest mag je zelf bepalen :p.

Stap 9: Druk rechtermuisknop in op form1 en zeg view source. Voeg dit toe:
Code:
Private Sub Timer1_Timer()
Dim CurrentHealth As Long
Dim CurrentMana As Long
Dim CreatureName As String
Dim CreatureId As Long
Dim PlayerID As Long

PlayerID = Memory_ReadLong(Tibia_Hwnd, PLAYER_ID)
Experience = Memory_ReadLong(Tibia_Hwnd, &H60EAC4)
Level = Memory_ReadLong(Tibia_Hwnd, &H60EAC0)
CurrentHealth = Memory_ReadLong(Tibia_Hwnd, &H60EACC)
CurrentMana = Memory_ReadLong(Tibia_Hwnd, &H60EAB0)

For BattleList_Address = LBound(BattleList_Array) To UBound(BattleList_Array) Step Distance_Characters
CreatureId = Memory_ReadLong(Tibia_Hwnd, BattleList_Address + Distance.cID) 'reading the creatureid address
CreatureName = Memory_ReadString(Tibia_Hwnd, BattleList_Address + Distance.cName) 'reading the creaturename address

If PlayerID = CreatureId Then 'checks if it is you
Namelbl.Caption = CreatureName 'show the name of the player in the right label
Health.Caption = CurrentHealth 'Shows the health in the right label
Mana.Caption = CurrentMana 'shows the mana in the right label
End If
Next BattleList_Address
End Sub



Nu heb je wat beginners code. Ik zal dit later allemaal uitleggen wat dit betekent :D En wat die codes nouw allemaal doen 1 voor 1.
 
Iedereen met een beetje kennis van vb zal dit kunnen begrijpen maar ik zal het morgen ofzo wat beter uitleggen. En nog wat meer dingen toevoegen zoals Lighthack ofzo.
 
Back
Top