-vb-net-ros-item-name

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üye
Katılım
11 Ocak 2018
Mesajlar
49
Tepki puanı
7
Yaş
27
8 HİZMET YILI
Kod:
Public Const LocalPlayer As Integer = &H1EDEA74
Public Const Client As Integer = &H1EDE6B8
Public Const SceneContext As Integer = &H1CDC4D0
Public Const Render As Integer = &H1E89B60
 
Public Const m_pFirst As Integer = &HE94
Public Const m_UnkObjectCount As Integer = m_pFirst + 4
Public Const m_ppObjects As Integer = m_pFirst + 8
Kod:
Dim clientEntityAddr As Integer = Mem.ReadMemory(Of Integer)(Mem.m_BaseAddress + Offsets.Client)
Dim clientEntitySize As Integer = Mem.ReadMemory(Of Integer)(clientEntityAddr + Offsets.m_UnkObjectCount)
Dim clientEntityLinkedListAddr As Integer = Mem.ReadMemory(Of Integer)(clientEntityAddr + Offsets.m_ppObjects)
 
Dim clientEntityLinkedListStart As Integer = Mem.ReadMemory(Of Integer)(clientEntityLinkedListAddr)
clientEntityLinkedListStart = Mem.ReadMemory(Of Integer)(clientEntityLinkedListStart)
clientEntityLinkedListStart = Mem.ReadMemory(Of Integer)(clientEntityLinkedListStart)
Dim clientEntityLinkedListEnd As Integer = Mem.ReadMemory(Of Integer)(clientEntityLinkedListAddr + &H4)
 
Do While (clientEntityLinkedListStart <> clientEntityLinkedListEnd)
     Dim clientEntity As Integer = Mem.ReadMemory(Of Integer)(clientEntityLinkedListStart + &HC)
     Dim clientEntityMeta as Integer = Mem.ReadMemory(Of Integer)(clientEntity + &H4)
     Dim clientEntityMetaName as String = Mem.ReadString(clientEntityMeta + &HC, 8)
     Dim clientEntityTable as Integer = Mem.ReadMemory(Of Integer)(clientEntity + &H100)
     Dim clientEntityTablePtr as Integer = Mem.ReadMemory(Of Integer)(clientEntityTable + &H14)
     If clientEntityMetaName.Contains("Prop") Then
          Dim propID as Integer = Mem.ReadMemory(Of Integer)(Mem.ReadMemory(Of Integer)(clientEntityTablePtr + &H2C) + &H8)
          Dim itemName as String = propID
          Items.TryGetValue(propID, itemName)
          Console.WriteLine(itemName)
     End If
     clientEntityLinkedListStart = Mem.ReadMemory(Of Integer)(clientEntityLinkedListStart)
Loop
Kod:
Public Shared Items As New Dictionary(Of Integer, String) From
    {
        {1, "Lv 1 helmet"},
        {2, "Lv 2 helmet"},
        {3, "Lv 3 helmet"},
        {5, "Lv 1 Armor"},
        {6, "Lv 2 Armor"},
        {7, "Lv 3 Armor"},
        {8, "Lv 1 Backpack"},
        {9, "Lv 2 Backpack"},
        {10, "Lv 3 Backpack"},
        {19, "Ghillie Suit"},
        {50, "Fuel Barrel"},
        {101, "Bandage"},
        {102, "Med Kit"},
        {103, "First Aid Kit"},
        {105, "Sports Drink"},
        {106, "Cardio Tonic"},
        {1001, "M4A1 Rifle"},
        {1002, "AKM Rifle"},
        {1003, "M870 SG"},
        {1004, "M1887 SG"},
        {1005, "AA12 SG"},
        {1006, "AWM SR"},
        {1007, "Barett SR"},
        {1008, "M249 MG"},
        {1009, "M14EBR Rifle"},
        {1010, "AR15 Rifle"},
        {1011, "MP7 SMG"},
        {1012, "PP19 SMG"},
        {1013, "Thompson SMG"},
        {1014, "G18C Pistol"},
        {1015, "Desert Eagle"},
        {1017, "Vector"},
        {1018, "P90 SMG"},
        {1019, "SAIGA-12 Shotgun"},
        {1020, "WRO Hunting Rifle"},
        {1021, "SVD SR"},
        {1022, "M110 Sniper Rifle"},
        {1023, "ACR Rifle"},
        {1024, "AN94 Rifle"},
        {1025, "MP5 SMG"},
        {1026, "AUG Rifle"},
        {1027, "QBU Sniper Rifle"},
        {1031, "RPG Rocket Tube"},
        {1101, "SG Ammo"},
        {1102, "Rifle Ammo"},
        {1103, "SR Ammo"},
        {1104, "SMG Ammo"},
        {1105, "Pistol Ammo"},
        {1106, "RPG Ammo"},
        {1201, "Rifle Silencer"},
        {1202, "SR Silence"},
        {1204, "SMG Silencer"},
        {1211, "Rifle Compensator"},
        {1212, "SR Compensator"},
        {1213, "SMG Compensator"},
        {1221, "Rifle Flash Hider"},
        {1222, "SR Flash Hider"},
        {1223, "SMG Smoke Hider"},
        {1231, "SG Choke"},
        {1241, "Triangle Grip"},
        {1242, "Vertical Foregrip"},
        {1251, "Rifle QD-Mag"},
        {1252, "Rifle EX-Mag"},
        {1253, "Rifle EX-QD-Mag"},
        {1261, "SR Cheek Pad"},
        {1262, "Tactical Stock"},
        {1263, "SG Bullet Loop"},
        {1264, "SR EX-Mag"},
        {1265, "SR QD-Mag"},
        {1266, "SR EX-QD-Mag"},
        {1271, "Red Dot Sight"},
        {1272, "Holo-Sight"},
        {1273, "2x Scope"},
        {1274, "4x Scope"},
        {1275, "8x Scope"},
        {1276, "SMG QD-Mag"},
        {1277, "SMG EX-Mag"},
        {1278, "SMG QD-EX-Mag"},
        {1279, "Collapsible Stock"},
        {1303, "Crowbar"},
        {1306, "Frying Pan"},
        {1307, "Rubber Chicken"},
        {1401, "Grenade"},
        {1402, "Stun Grenade"},
        {1403, "Smoke Grenade"},
        {1404, "Molotov Cocktail"},
        {1405, "Chicken Grenade"},
        {1406, "Flash Grenade"}
    }
Ben Size Gerekenleri Verdim vb Net İle ROS İle Kendıze İtem Atabilir veya item yapabilirsiniz :=)
 
Üye
Katılım
22 Şub 2018
Mesajlar
10
Tepki puanı
3
Ödüller
6
Yaş
27
8 HİZMET YILI
hocam video çekermisin diyoruz kalkıp edebiyat yapmaya çalışıyosun sen kendi yeteneklerinle oynasan bu site de olmazdın çek video yararlanalım işte yabancı siteden duyum alıp buraya bende atarım yapmayı sen bile bilmiyosun belki de
 
Onaylı Üye
Katılım
11 Şub 2018
Mesajlar
92
Tepki puanı
28
Ödüller
3
Yaş
30
8 HİZMET YILI
dostum bunu nasıl kullanıcaz ? nerde kullanıcaz ? bi açıklama :D
 
Üye
Katılım
24 Ocak 2018
Mesajlar
5
Tepki puanı
0
Yaş
34
8 HİZMET YILI
video çeker misiniz naıl yapıldığına dair teşekkürler
 
Słyszę, słyszę letni powiew.
Kurucu
Katılım
20 Haz 2015
Mesajlar
7,666
Çözümler
136
Tepki puanı
20,724
Ödüller
25
10 HİZMET YILI
Yanlız bu kodlar sayesinde sen kendine item falan yaratamıyorsun.Paylaşan kişinin ne paylaştığı hakkında hiçbir bilgisi yok sanırsam
 
Üye
Katılım
23 Ocak 2018
Mesajlar
1
Tepki puanı
0
Yaş
24
8 HİZMET YILI
Wtf xd esp yapabi̇li̇rsi̇ni̇z i̇tem yeri̇ne i̇temin ismi yazar
 
Moderatörün son düzenlenenleri:
Onaylı Üye
Katılım
20 Ağu 2016
Mesajlar
118
Tepki puanı
49
9 HİZMET YILI
eline sağlık kardeşim video çekersen memnun oluruz <3
 
Üye
Katılım
18 Mar 2018
Mesajlar
5
Tepki puanı
5
Yaş
45
8 HİZMET YILI
Arkadaşlar merhaba, manifestonuzu okudum gayet makul fakat sitenizde cheatlerini paylaştığınız rules of survival oyunu bir pay2win oyun değil. Oyuna sadece yeni skin almak için para yatırılıyor ve alınan skinler ile oyuncular herhangi bir avantaj elde etmiyorlar..

Cheat yapan oyuncular yüzünden Avrupa serveri oyun oynanamaz hale geldi. Amerika ve Asya serverleri nisbeten temiz ama oralarda da nitelikli türk oyuncu bulmak mümkün olmuyor. Düzenleyip paylaştığınız cheat kodları serverları kirletmekten ve iyi oyuncuları bezdirmekten başka bir işleve hizmet etmiyor.. Beceriksiz adamların mental mastürbasyonu için oluşturular kodlar için harcadığınız emeğe ve nitelikli oyuncuların emeklerine yazık. Lütfen Bu oyunun cheat kodlarını sisteminizden kaldırın. Teşekkür ederim, çalışmalarınızda başarılar..
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst