VB.NET --- VB6 ÇEVİRME

roker1 · 31 Mar 2022

Kod:

Public Sub LegalAtak(ByVal lSkillID As String, ByVal wMobID As Long, Optional ByVal bTekSkl As Boolean = False)
       If (wMobID <= 0) Then Exit Sub
       Dim offset As String
       If (BotForSteam) Then
           offset = ADWORD(&H428)
       Else
           offset = ADWORD(&H42C)
       End If
       Dim scode As String
       scode = "B8" & ADWORD(wMobID) & _
               "50" & _
               "B8" & lSkillID & _
               "50" & _
               "8B0D" & ADWORD(KO_SMMB) & _
               "B8" & ADWORD(KO_SMMB_FNC) & _
               "FFD0" & _
               "50" & _
               "8B0D" & ADWORD(KO_PTR_DLG) & _
               "8B89" & offset & _
               "B8" & ADWORD(KO_SUB_ADDR0) & _
               "FFD0"

       If bTekSkl = False Then
           scode = scode & "8B0D" & ADWORD(KO_PTR_NRML) & "B8" & ADWORD(KO_SUB_ADDR1) & "FFD0"
       End If
       scode = scode & "C3"
       ExecuteRemoteCodeNormal(ConvHEX2ByteArray(scode), NormalAdress)

   End Sub

BUNU VB6 ÇEVİREBİLECEK VARMI ARKADAŞAR RİCA ETSEM

Cohan · 31 Mar 2022

roker1' Alıntı:

Kod:

Public Sub LegalAtak(ByVal lSkillID As String, ByVal wMobID As Long, Optional ByVal bTekSkl As Boolean = False)
       If (wMobID <= 0) Then Exit Sub
       Dim offset As String
       If (BotForSteam) Then
           offset = ADWORD(&H428)
       Else
           offset = ADWORD(&H42C)
       End If
       Dim scode As String
       scode = "B8" & ADWORD(wMobID) & _
               "50" & _
               "B8" & lSkillID & _
               "50" & _
               "8B0D" & ADWORD(KO_SMMB) & _
               "B8" & ADWORD(KO_SMMB_FNC) & _
               "FFD0" & _
               "50" & _
               "8B0D" & ADWORD(KO_PTR_DLG) & _
               "8B89" & offset & _
               "B8" & ADWORD(KO_SUB_ADDR0) & _
               "FFD0"

       If bTekSkl = False Then
           scode = scode & "8B0D" & ADWORD(KO_PTR_NRML) & "B8" & ADWORD(KO_SUB_ADDR1) & "FFD0"
       End If
       scode = scode & "C3"
       ExecuteRemoteCodeNormal(ConvHEX2ByteArray(scode), NormalAdress)

   End Sub

BUNU VB6 ÇEVİREBİLECEK VARMI ARKADAŞAR RİCA ETSEM

Public Sub LegalAtak(ByVal lSkillID As String, ByVal wMobID As Long, Optional ByVal bTekSkl As Boolean = False)
Dim xCode() As Byte, xStr As String
If (wMobID <= 0) Then Exit Sub
xStr = "B8" & AlignDword(wMobID) & _
"50" & _
"B8" & lSkillID & _
"50" & _
"8B0D" & AlignDword(KO_SMMB) & _
"B8" & AlignDword(KO_SMMB_FNC) & _
"FFD0" & _
"50" & _
"8B0D" & AlignDword(KO_PTR_DLG) & _
"8B89" & AlignDword(&H428) & _ 'Burdaki offseti steam veya uskoya gore yazarsın
"B8" & AlignDword(KO_SUB_ADDR0) & _
"FFD0"

If bTekSkl = False Then
xStr = xStr & "8B0D" & AlignDword(KO_PTR_NRML) & "B8" & AlignDword(KO_SUB_ADDR1) & "FFD0"
End If
xStr = xStr & "C3"
ConvHEX2ByteArray xStr, xCode
ExecuteRemoteCode xCode, True
End Sub

Kullanımı :

LegalAtak(515,MobID,false)

korceo · 31 Mar 2022

Cohan' Alıntı:
Public Sub LegalAtak(ByVal lSkillID As String, ByVal wMobID As Long, Optional ByVal bTekSkl As Boolean = False)
Dim xCode() As Byte, xStr As String
If (wMobID <= 0) Then Exit Sub
xStr = "B8" & AlignDword(wMobID) & _
"50" & _
"B8" & lSkillID & _
"50" & _
"8B0D" & AlignDword(KO_SMMB) & _
"B8" & AlignDword(KO_SMMB_FNC) & _
"FFD0" & _
"50" & _
"8B0D" & AlignDword(KO_PTR_DLG) & _
"8B89" & AlignDword(&H428) & _ 'Burdaki offseti steam veya uskoya gore yazarsın
"B8" & AlignDword(KO_SUB_ADDR0) & _
"FFD0"

If bTekSkl = False Then
xStr = xStr & "8B0D" & AlignDword(KO_PTR_NRML) & "B8" & AlignDword(KO_SUB_ADDR1) & "FFD0"
End If
xStr = xStr & "C3"
ConvHEX2ByteArray xStr, xCode
ExecuteRemoteCode xCode, True
End Sub

Kullanımı :

LegalAtak(515,MobID,false)

Usko için güncell pointer ofsetleri de payalsa bilirmisin. KO_SUB_ADDR0, KO_PTR_NRML , KO_SUB_ADDR1 , H428

roker1 · 1 Nis 2022

Kod:

KO_SUB_ADDR0= &H8C12B0 -- &H8C6A90
KO_SUB_ADDR1= &H584E30 -- &H584E30
KO_PTR_NRML= &HE47850  -- &HE47850
KO_SMMB= &HE61818      -- &HE61818
KO_SMMB_FNC= &H4FC300  -- &H4FC300
KO_OFF_MCOR= &H430     -- &H430

Arkadaşlar bunları Denedim.. 2 sini Farklı  Pointer Bulucu'da Aldım Debug aLıyorum

roker1 · 1 Nis 2022

Arkadaşlar Debug Sorunu Sanırım Şundan Dolayı //

Cohan · 1 Nis 2022

// USKO 2407 KO_PTR_SMMB = &H10ABFA0
// USKO 2407 KO_FNC_SMMB = &H73E1A0

Function kullanmadığım için kullanım biçimini bilmiyorum ama skillID şu sekilde istiyor olabilir bu şekilde düzenle lSkillID = GetMyClass * 1000 + lSkillID
mobID de mobTargetID olarak dene

korceo · 1 Nis 2022

Cohan' Alıntı:
// USKO 2407 KO_PTR_SMMB = &H10ABFA0
// USKO 2407 KO_FNC_SMMB = &H73E1A0

// USKO 2408 KO_PTR_SMMB 0x10ABE8C
// USKO 2408 KO_PTR_SMMB 0x0073E1A0

coolq3nc · 1 Nis 2022

Bu pointer bulma isini nasil ogrenebiliriz

roker1 · 1 Nis 2022

Arkadaşın Verdipi Şekil'de yaptım bug'da vermiyor !! Atakta Yapmıyor

)

morsmordre · 1 Nis 2022

Fonksiyonu dışardan nasıl çağırıyorsun onu yazar mısın? Girdiğin parametrelerde sıkıntı vardır, yukarda bu skilli kullanamazsın yazıyor o skille sahip değilsin muhtemelen parametrelerini de bir görelim

roker1 · 1 Nis 2022

Fonksiyon bu sekil'DE

roker1 · 1 Nis 2022

ARKADAŞLAR KİMSE NEDEN 2 DAKİKA BAKMAK İSTEMİYOR

)

morsmordre · 1 Nis 2022

Bak manuelskill fonksiyonu zaten class'ını alıyor ve yazdığın skill idyi üstüne ekliyor örneğin class'ın 110 karus master mage olsun. 110 * 1000 yapıyor 110000 elde ediyor skill id de flame 18 olsun 518 eklediğinde skill kodun 110518 oluyor. Yani sen fonksiyonu çağırırken sadece skill kodu olan 518i yazıp çağıracaksın yoksa 110 class id idi 1000 ile çarptı 110000 oldu değer üstüne yazdığın 110518'i eklediğinde 220518 olacak öyle bir skill yok

korceo · 1 Nis 2022

morsmordre' Alıntı:
Bak manuelskill fonksiyonu zaten class'ını alıyor ve yazdığın skill idyi üstüne ekliyor örneğin class'ın 110 karus master mage olsun. 110 * 1000 yapıyor 110000 elde ediyor skill id de flame 18 olsun 518 eklediğinde skill kodun 110518 oluyor. Yani sen fonksiyonu çağırırken sadece skill kodu olan 518i yazıp çağıracaksın yoksa 110 class id idi 1000 ile çarptı 110000 oldu değer üstüne yazdığın 110518'i eklediğinde 220518 olacak öyle bir skill yok

Buna ek birde mob id değil mobbase numarasını dene.

roker1 · 1 Nis 2022

MobHp = ReadLong(ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + &H1BC) + &HC4) + &HEC)

morsmordre · 1 Nis 2022

Onlar yanlış olsaydı fail bir şekilde castlamazdı bence ama yine de msgbox koyup debug edebilirsin

roker1 · 1 Nis 2022

Function CharSkill1() As Long
CharSkill1 = ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + &H1EC) + &H180)
End Function

roker1 · 1 Nis 2022

@morsmordre ÖM bakarmısın reis

morsmordre · 1 Nis 2022

Roster55' Alıntı:
Her fonksiyondaki değerler fail veya cast verdirmez

Olmayan bir skilli denersen üstteki hatayı alırsın, fonksiyonlar tekdüze çalışmaz yanlış parametre girersen yanlış parametre girdiğinde alacağın cevabı alırsın ya da crash yersin. Tamamen fonksiyonun yapısıyla alakalı hiç tepki de vermeyebilir hataya karşı

kafaizni · 1 Nis 2022

Discord Reonrow#9259