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:
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 .
Stap 9: Druk rechtermuisknop in op form1 en zeg view source. Voeg dit toe:
Nu heb je wat beginners code. Ik zal dit later allemaal uitleggen wat dit betekent En wat die codes nouw allemaal doen 1 voor 1.
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 .
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 En wat die codes nouw allemaal doen 1 voor 1.