[OPEN-SOURCE] S4 League No Enemy

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Uzman Üye
Katılım
3 Tem 2016
Mesajlar
203
Tepki puanı
2
9 HİZMET YILI
Kod düzeni berbat olabilir 5-6 ay önce kodlamıştım :s
Bu arada Vb suck. (Visual Basic)


Form1 Load:

PHP:
Con_nect.CheckAsAdmin()
Con_nect.ConsoleCreate()
Con_nect.ConsoleLogInformation("Timer is ready for go, waitin for S4Client")
Timer1.Start()



Timer1:


PHP:
S4Client = Process.GetProcessesByName("S4Client")
        If S4Client.Count > 0 Then
            If NoRepeat_Addresses = 0 Then
                NoRepeat_ChangeValues()
            End If
            Server_Connection()
        End If

Functions:

PHP:
Function NoRepeat_ChangeValues()
       Con_nect.WriteMemory(Process.GetProcessesByName("S4Client")(0).MainModule.BaseAddress.ToInt32() + &HB6A54F, New Byte() {&HF, &HB7, &H45, &HA0, &H50, &H8B, &H4D, &H8, &HE8, &H84, &H24, &HED, &HFF, &H8B, &H4D, &HC, &H8A, &H51, &H9, &H88, &H55, &HE4, &H6A, &H4, &H8D, &H45, &HE4, &H50, &H8B, &H4D})
       Con_nect.WriteMemory(Process.GetProcessesByName("S4Client")(0).MainModule.BaseAddress.ToInt32() + &HB6B0A0, New Byte() {&H55, &H8B, &HEC, &H83, &HEC, &H18, &H8B, &H45, &HC, &H8B, &H8, &H89, &H4D, &HE8, &H8B, &H55, &HE8, &H52, &H8B, &H4D, &H8, &HE8, &H66, &H1, &HEB, &HFF, &H8B, &H45, &HC, &H8A, &H48, &H4, &H88, &H4D, &HFC, &H6A, &H4, &H8D, &H55, &HFC, &H52, &H8B, &H4D, &H8, &HE8, &HBF, &HD7, &H5, &H0, &H8B})
       Con_nect.WriteMemory(Process.GetProcessesByName("S4Client")(0).MainModule.BaseAddress.ToInt32() + &HB81071, New Byte() {&HF, &H84, &HF8, &H5, &H0, &H0, &H8B, &H55, &HF0, &H83, &HC2, &H18, &H8B, &H2, &H89, &H85, &HC0, &HFE, &HFF, &HFF, &H8B, &H4A, &H4, &H89, &H8D, &HC4, &HFE, &HFF, &HFF, &H8B, &H52, &H8, &H89, &H95, &HC8, &HFE, &HFF, &HFF, &H6A, &H4, &H8D, &H85, &H30, &HFE, &HFF, &HFF, &H50, &HE8, &H9B, &HD3})
       Con_nect.WriteMemory(Process.GetProcessesByName("S4Client")(0).MainModule.BaseAddress.ToInt32() + &HB825C8, New Byte() {&HE8, &H73, &HBE, &H52, &HFF, &H8B, &HC8, &HE8, &HBC, &H5E, &HF, &H0, &H89, &H45, &H80, &H8B, &H4D, &H80, &H89, &H8D, &H18, &HFF, &HFF, &HFF, &HC6, &H45, &HFC, &H1, &H6A, &H4, &H8D, &H95, &HF8, &HFE, &HFF, &HFF, &H52, &HE8, &H4E, &HBE, &H52, &HFF, &H8B, &HC8, &HE8, &H97, &H5E, &HF, &H0, &H89})
       Con_nect.WriteMemory(Process.GetProcessesByName("S4Client")(0).MainModule.BaseAddress.ToInt32() + &HB85845, New Byte() {&H8B, &H51, &H4, &H3B, &H95, &H6C, &HFF, &HFF, &HFF, &H72, &HC, &HC7, &H85, &H4, &HFF, &HFF, &HFF, &H1, &H0, &H0, &H0, &HEB, &HA, &HC7, &H85, &H4, &HFF, &HFF, &HFF, &H0, &H0, &H0, &H0, &H8B, &H45, &HF0, &HC6, &H80, &HAC, &H0, &H0, &H0, &H0, &H6A, &H4, &H8D, &H8D, &H6C, &HFE, &HFF})
       Con_nect.WriteMemory(Process.GetProcessesByName("S4Client")(0).MainModule.BaseAddress.ToInt32() + &HD777D1, New Byte() {&H6A, &H4, &H8D})
       Con_nect.WriteMemory(Process.GetProcessesByName("S4Client")(0).MainModule.BaseAddress.ToInt32() + &HB60660, New Byte() {&H74})
        Con_nect.ConsoleLogInformation("Invisible Enemies [Started]")
        Con_nect.ConsoleLogInformation("Invisible [Started]")
        NoRepeat_Addresses = (1)
    End Function
    Function Server_Connection()
       Con_nect.WriteMemory(Process.GetProcessesByName("S4Client")(0).MainModule.BaseAddress.ToInt32() + &H126F550, New Byte() {&H0})
        Con_nect.ConsoleLogInformation("Server Connection [-]")
        Con_nect.Sleep(12000)
       Con_nect.WriteMemory(Process.GetProcessesByName("S4Client")(0).MainModule.BaseAddress.ToInt32() + &H126F550, New Byte() {&H1})
        Con_nect.ConsoleLogInformation("Server Connection [+]")
        Con_nect.Sleep(6000)
        TextRepeat = TextRepeat + (1)
        If TextRepeat = 6 Then
            Con_nect.ConsoleCls()
            Con_nect.ConsoleLogInformation("Invisible Enemies [+]")
            Con_nect.ConsoleLogInformation("Invisible [+]")
            TextRepeat = (0)
        End If
    End Function 
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst