- Yasaklandı
- #1
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