VB6 Source Failed Hatası

roker1 · 30 Mar 2022

Arkadaşlar merhaba pvp serverlar elimde olan eski bi source Warrior Asast okçu skillerinde Sorun yok Fakat Mage skillerini atarkan failed hatası alıyorum ..
Denemelerde El ile vurduğumda ve koxp ile vurduğumda değer aynı Resimdeki gibiydi

Exebus · 30 Mar 2022

roker1' Alıntı:
Arkadaşlar merhaba pvp serverlar elimde olan eski bi source Warrior Asast okçu skillerinde Sorun yok Fakat Mage skillerini atarkan failed hatası alıyorum ..
Denemelerde El ile vurduğumda ve koxp ile vurduğumda değer aynı Resimdeki gibiydi

Ekli dosyayı görüntüle 826

kendi botuma bu şekilde eklemişim düzenlemeleri yapıp denermisiniz?

Abdull4h · 30 Mar 2022

Pause koy 3101den sonra misal 1 saniye falan dene bul. Çözülür sorunun

roker1 · 30 Mar 2022

Şuan Düzeldi Teşekkür ederim.

Exebus · 30 Mar 2022

roker1' Alıntı:
Şuan Düzeldi Teşekkür ederim.

nasıl düzeldigini yazarsanız gören insanlarda faydalanır.

morsmordre · 31 Mar 2022

Exebus' Alıntı:
nasıl düzeldigini yazarsanız gören insanlarda faydalanır.

Dcden konuştuk arkadaşla 3101 ile 3103 arasında 860 ms beklemek gerekiyor

roker1 · 31 Mar 2022

@morsmordre Arkadaş açıklamış teş. ederim yardımlarınız için mage için yapılması gerek tek tek denedim paket aralarını ' Bekle 860 ' şeklinde eklme yaptım düzeldi tabiki her biri için ayrı şekil ve wolf ve swift içinde aynı şekil yaptım wolf ve swift atıyor artık şuan legal içini pointer peşindeyim.

bilgisi olan varsa yardımcı olursa sevinirim

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 ya çevirebilecek varmı

DTMan · 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 ya çevirebilecek varmı

Canın pointer bulucusu usko dışındaki pvp serverleri buluyor sorunsuz

Abdull4h · 31 Mar 2022

Bekle fonksiyonunu kullanınca form dönmüyor mu atak yaparken? Sleep mantığıyla çalışıyordu herhalde. Onun yerine editledigin proje sanırım usbot pause fonksiyonu var onu kullan

morsmordre · 31 Mar 2022

DoEvents yaparsan donmaz form

VB6 Source Failed Hatası

Ekli dosyalar

DTMan