[Support] "Hacking" S4 League

Imports System.Diagnostics
Imports System.IO
Imports System.Runtime.InteropServices
Public Class Form1
    'API declarations
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Int32, ByVal bInheritHandle As Int32, ByVal dwProcessId As Int32) As Int32
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32
    Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Int32) As Int32

    'Constants
    Public Const PROCESS_VM_READ = &H10
    Public Const PROCESS_VM_WRITE = (&H20)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_QUERY_INFORMATION = (&H400)
    Public Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_READ + PROCESS_VM_WRITE + PROCESS_VM_OPERATION + PROCESS_QUERY_INFORMATION
    Public Const PROCESS_ALL_ACCESS = &H1F0FFF

    Public Function Tibia_Hwnd() As Long
        Dim TibiaWindows As Process() = Process.GetProcessesByName("s4client")
        If TibiaWindows.Length = 0 Then
            Return 0
            Exit Function
        End If
        Return TibiaWindows(0).Id ' 0 is the first tibia-client. 1 is the second one, and so on..
    End Function

    Private Function Memory_WriteLong(ByVal Address As Int32, ByVal vBuffer As Long) As Long
        Dim processHandle As IntPtr = OpenProcess(PROCESS_READ_WRITE_QUERY, 0, Tibia_Hwnd)
        WriteProcessMemory(processHandle, Address, vBuffer, 4, 0)
        Return vBuffer
        CloseHandle(processHandle)
    End Function

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Memory_WriteLong(&H51BF04, 2348565979)
        Else
            Memory_WriteLong(&H51BF04, 2348565977)
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Memory_WriteLong(&H482472, 2348565979)
        Else
            Memory_WriteLong(&H482472, 2348565977)
        End If
    End Sub

     Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            Memory_WriteLong(&H47F76E, 1166868842)
        Else
            Memory_WriteLong(&H47F76E, 1166869354)
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            Memory_WriteLong(&HF5AE78, 2348565979)
        Else
            Memory_WriteLong(&HF5AE78, 2348565977)
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then
            Memory_WriteLong(&H51BF65, 3135869072)
        Else
            Memory_WriteLong(&H51BF65, 3135833466)
        End If
    End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked = True Then
            Memory_WriteLong(&H51CAF9, 1593591259)
        Else
            Memory_WriteLong(&H51CAF9, 1593591257)
        End If
    End Sub

    Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
        If CheckBox8.Checked = True Then
            Memory_WriteLong(&H76ED6D, 2374697834)
        Else
            Memory_WriteLong(&H76ED6D, 2374698346)
        End If
    End Sub

    Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged
        If CheckBox9.Checked = True Then
            Memory_WriteLong(&H766931, 3555299472)
        Else
            Memory_WriteLong(&H12A8FFC, 3555263861)
        End If
    End Sub

    Private Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged
        If CheckBox11.Checked = True Then
            Memory_WriteLong(&H127329C, 48)
            Memory_WriteLong(&H12732A0, 0)
            Memory_WriteLong(&H12732A4, 48)
            Memory_WriteLong(&H12732A8, 0)
        Else
            Memory_WriteLong(&H127329C, 1601071469)
            Memory_WriteLong(&H12732A0, 20552)
            Memory_WriteLong(&H12732A4, 1601724781)
            Memory_WriteLong(&H12732A8, 20552)
        End If
    End Sub

    Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged
        If CheckBox12.Checked = True Then
            Memory_WriteLong(&H61B10E, 2240612458)
        Else
            Memory_WriteLong(&H61B10E, 2240611178)
        End If
    End Sub

    Private Sub CheckBox13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox13.CheckedChanged
        If CheckBox14.Checked = True Then
            Memory_WriteLong(&H5634D9, 990399115)
        Else
            Memory_WriteLong(&H5634D9, 990136971)
        End If
    End Sub

    Private Sub CheckBox15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox15.CheckedChanged
        If CheckBox15.Checked = True Then
            Memory_WriteLong(&H5EB344, 2240612202)
        Else
            Memory_WriteLong(&H5EB344, 2240611178)
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox15.Checked = True Then
            Memory_WriteLong(&H5EFD8E, 2374697322)
        Else
            Memory_WriteLong(&H5EFD8E, 2374698346)
        End If
    End Sub
End Class

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Diagnostics;
using MLibrary;
namespace test
{
    class Program
    {
        static void Main(string[] args)
        {
            string Onput = "*****************************************\n"
    + "*\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0*\n"
    + "*\0\0\0\0 S4League Hack by xDarkMan\0\0\0\0\0\0\0\0\0*\n"
    + "*\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0*\n"
    + "*****************************************\n";
            string Onput2 = "S4Client.exe Not Found";
            string Onput3 = "S4Client.exe Found";
            string Onput4 = "Features:";
            string Onput5 = "Card Hack";
            string Onput6 = "Other Soon..";
            string Onput12 ="Status:";
            string pid = "S4Client";
            string title = "xDark S4L Multi Trainer v1";
            Console.Title = title;
            Console.ForegroundColor = ConsoleColor.DarkMagenta;
            Console.WriteLine(Onput);
            Console.WriteLine();
            Console.ForegroundColor = ConsoleColor.Green;
            Console.WriteLine(Onput4);
            Console.WriteLine(Onput5);
            Console.WriteLine(Onput6);
            Console.WriteLine();
            Console.WriteLine();
            Console.ForegroundColor = ConsoleColor.Blue;
            Console.WriteLine();
            Console.WriteLine();
            Console.ForegroundColor = ConsoleColor.Yellow;
            Console.WriteLine(Onput12);
            if (Process.GetProcessesByName(pid).Length <= 0) 
            {
                Console.ForegroundColor = ConsoleColor.Red;
                Console.WriteLine(Onput2);
                Console.Read();
            }
            else
            {
                Console.ForegroundColor = ConsoleColor.Yellow;
                Console.WriteLine(Onput3);
                string Onpu2 = "Press Enter to Start The Hack";
                Console.WriteLine(Onpu2);
                Console.Read();
                 /// here write process memory
                  string pidx = "S4Client";
                  float Card = 0;
                  Zero.WriteFloat(pidx,0x012A8FFC,Card);
            }
        }
    }
}