Anasayfa![Seri +1HP [ÖlümsüzLük Kodları] Configure](https://2img.net/h/www.iconlook.com/icondb/glaze/16x16/actions/configure.png)
Profiliniz ![Seri +1HP [ÖlümsüzLük Kodları] Kwalletmanager](https://2img.net/h/www.iconlook.com/icondb/CrystalClear/16x16/apps/kwalletmanager.png)
Sosyal![Seri +1HP [ÖlümsüzLük Kodları] Newmsg](https://2img.net/h/www.iconlook.com/icondb/CrystalClear/16x16/actions/newmsg.png)
Özel Mesaj![Seri +1HP [ÖlümsüzLük Kodları] Kthememgr](https://2img.net/h/www.iconlook.com/icondb/bnw/16x16/apps/kthememgr.png)
![Seri +1HP [ÖlümsüzLük Kodları] Empty](https://2img.net/i/empty.gif)
Gerekenler
1 Adet Check box, 1 Adet Timer.
Yapılışı
Check Boxun kod kısmına aşağıdaki kodu yazın
Kod:
Timerin Intervali 1000 yapın. Kod kısmına aşağıdaki kodu yazın.
Module Aşağıdaki Kodları yazın.
Bunları yaptıktan sonra Koxpu başlatır başlatmaz ölümsüzlük başlıyorsa
Timer Enableyi False yapın.
1 Adet Check box, 1 Adet Timer.
Yapılışı
Check Boxun kod kısmına aşağıdaki kodu yazın
Kod:
- Kod:
Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
Timerin Intervali 1000 yapın. Kod kısmına aşağıdaki kodu yazın.
- Kod:
Dim hp
Dim maxhp
hp = ReadLong(KO_ADR_CHR + KO_OFF_HP)
maxhp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)
If hp < maxhp Then
skillldel ("491045") 'Buraya ölümsüzlük SC kodu yazılıcak.
skilll1 ("491045") 'Buraya ölümsüzlük SC kodu yazılıcak.
End If
Module Aşağıdaki Kodları yazın.
- Kod:
Sub skillldel(skillid As String)
Dim ID As String
Dim ID1 As String
Dim ID2 As String
Dim IDs As Long
Dim skillid1
Dim skillid2
Dim skillid3
Dim skillhex As String
skillid = 491045 'Buraya ölümsüzlük SC Kodu yazılıcak.
skillhex = Hex(skillid)
skillid1 = Mid$(skillhex, 4, 6)
skillid2 = Mid$(skillhex, 2, 2)
skillid3 = Mid$(skillhex, 1, 1)
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
ID = AlignDWORD(IDs)
ID1 = Strings.Mid(ID, 3, 2)
ID2 = Strings.Mid(ID, 5, 2)
Dim pBytes(1 To 18) As Byte
pBytes(1) = &H31
pBytes(2) = &H6
pBytes(3) = "&H" & skillid1
pBytes(4) = "&H" & skillid2
pBytes(5) = "&H" & skillid3
pBytes(6) = &H0
pBytes(7) = "&H" & ID1
pBytes(8) = "&H" & ID2
pBytes(9) = "&H" & ID1
pBytes(10) = "&H" & ID2
pBytes(11) = &H0
pBytes(12) = &H0
pBytes(13) = &H0
pBytes(14) = &H0
pBytes(15) = &H0
pBytes(16) = &H0
pBytes(17) = &H0
pBytes(18) = &H0
SendPackets pBytes
End Sub
Sub skilll1(skillid As String)
Dim ID As String
Dim ID1 As String
Dim ID2 As String
Dim IDs As Long
Dim skillid1
Dim skillid2
Dim skillid3
Dim skillhex As String
skillid = 491045 'Buraya ölümsüzlük SC Kodu yazılıcak.
skillhex = Hex(skillid)
skillid1 = Mid$(skillhex, 4, 6)
skillid2 = Mid$(skillhex, 2, 2)
skillid3 = Mid$(skillhex, 1, 1)
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
ID = AlignDWORD(IDs)
ID1 = Strings.Mid(ID, 3, 2)
ID2 = Strings.Mid(ID, 5, 2)
Dim pBytes(1 To 18) As Byte
pBytes(1) = &H31
pBytes(2) = &H3
pBytes(3) = "&H" & skillid1
pBytes(4) = "&H" & skillid2
pBytes(5) = "&H" & skillid3
pBytes(6) = &H0
pBytes(7) = "&H" & ID1
pBytes(8) = "&H" & ID2
pBytes(9) = "&H" & ID1
pBytes(10) = "&H" & ID2
pBytes(11) = &H0
pBytes(12) = &H0
pBytes(13) = &H0
pBytes(14) = &H0
pBytes(15) = &H0
pBytes(16) = &H0
pBytes(17) = &H0
pBytes(18) = &H0
SendPackets pBytes
End Sub
Bunları yaptıktan sonra Koxpu başlatır başlatmaz ölümsüzlük başlıyorsa
Timer Enableyi False yapın.
» Black Dark Lite Edition 2010 V2 - Emre90, 2010'un En Şık Lite Sürümü
» izzet Yıldızhan - Sen Deli Misin fuLL 2009 | 320 Kbps
» Install ClockworkMod Recovery on the LG GT540 Optimus
» Root the LG GT540 Optimus
» LG P503 Optimus One Root + Recovery
» LG-970 CWM Ve Root Enjekte Etme!
» LG Optımus 3D Max Root Yapımı
» LG Optimus 4X HD'ye CWM Yükleme