[Mayn 2016] Just cuz borred.

Page 2 of 3 1 2 3
02/19/2016 02:40 Str8inyou#16
ty
02/19/2016 08:08 sanal_alem#17
not working for mayn.
02/19/2016 13:01 Isoo123#18
anyone can explain ?
02/19/2016 15:09 dabnoj#19
why, you guys playing mayn games instead of new private server? [Only registered and activated users can see links. Click Here To Register...]
02/22/2016 00:33 shad0wboss#20
Quote:
Originally Posted by dabnoj View Post
why, you guys playing mayn games instead of new private server? [Only registered and activated users can see links. Click Here To Register...]
Because of Deity and all those nice glows compared to boring white colour
03/03/2016 21:44 shad0wboss#21
I would love to have a + mark for vengeance mobs in apo cave if you can add that...so that those mobs are visible as + on the map.
03/05/2016 12:02 boytikloy#22
can i use this in Twelvesky2 WSP?
03/05/2016 12:04 Str8inyou#23
nop
03/07/2016 02:25 lindinhaew#24
Wonder if it works on heavensky?
03/07/2016 20:57 shad0wboss#25
Quote:
Originally Posted by lindinhaew View Post
Wonder if it works on heavensky?
Nope
03/11/2016 16:57 1HeRo1#26
Not work..
03/22/2016 11:34 shad0wboss#27
Quote:
Originally Posted by Str8inyou View Post
This is how the program looks.
[Only registered and activated users can see links. Click Here To Register...]



Visual Studio 2015 .
New Project -> Windows Form Applications
Add a module and copy/paste this code



Code:
Module Codeing


    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer

    Private Declare Function WriteProcessMemory1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function WriteProcessMemory2 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Single
    Private Declare Function WriteProcessMemory3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Long

    Private Declare Function ReadProcessMemory1 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function ReadProcessMemory2 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Single
    Private Declare Function ReadProcessMemory3 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Long

    Const PROCESS_ALL_ACCESS = &H1F0FF

    Public Function WriteDMAInteger(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Integer, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
        Try
            Dim lvl As Integer = Address
            For i As Integer = 1 To Level
                lvl = ReadInteger(Process, lvl, nsize) + Offsets(i - 1)
            Next
            WriteInteger(Process, lvl, Value, nsize)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Function ReadDMAInteger(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Integer
        Try
            Dim lvl As Integer = Address
            For i As Integer = 1 To Level
                lvl = ReadInteger(Process, lvl, nsize) + Offsets(i - 1)
            Next
            Dim vBuffer As Integer
            vBuffer = ReadInteger(Process, lvl, nsize)
            Return vBuffer
        Catch ex As Exception

        End Try
    End Function

    Public Function WriteDMAFloat(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Single, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
        Try
            Dim lvl As Integer = Address
            For i As Integer = 1 To Level
                lvl = ReadFloat(Process, lvl, nsize) + Offsets(i - 1)
            Next
            WriteFloat(Process, lvl, Value, nsize)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Function ReadDMAFloat(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Single
        Try
            Dim lvl As Integer = Address
            For i As Integer = 1 To Level
                lvl = ReadFloat(Process, lvl, nsize) + Offsets(i - 1)
            Next
            Dim vBuffer As Single
            vBuffer = ReadFloat(Process, lvl, nsize)
            Return vBuffer
        Catch ex As Exception

        End Try
    End Function

    Public Function WriteDMALong(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Long, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
        Try
            Dim lvl As Integer = Address
            For i As Integer = 1 To Level
                lvl = ReadLong(Process, lvl, nsize) + Offsets(i - 1)
            Next
            WriteLong(Process, lvl, Value, nsize)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Function ReadDMALong(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Long
        Try
            Dim lvl As Integer = Address
            For i As Integer = 1 To Level
                lvl = ReadLong(Process, lvl, nsize) + Offsets(i - 1)
            Next
            Dim vBuffer As Long
            vBuffer = ReadLong(Process, lvl, nsize)
            Return vBuffer
        Catch ex As Exception

        End Try
    End Function

    Public Sub WriteNOPs(ByVal ProcessName As String, ByVal Address As Long, ByVal NOPNum As Integer)
        Dim C As Integer
        Dim B As Integer
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then
            MessageBox.Show(ProcessName & " is not open!")
            Exit Sub
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then
            MessageBox.Show("Opening Error " & ProcessName & "!")
            Exit Sub
        End If

        B = 0
        For C = 1 To NOPNum
            Call WriteProcessMemory1(hProcess, Address + B, &H90, 1, 0&)
            B = B + 1
        Next C
    End Sub

    Public Sub WriteXBytes(ByVal ProcessName As String, ByVal Address As Long, ByVal Value As String)
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then
            MessageBox.Show(ProcessName & " is not open!")
            Exit Sub
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then
            MessageBox.Show("Opening Error " & ProcessName & "!")
            Exit Sub
        End If

        Dim C As Integer
        Dim B As Integer
        Dim D As Integer
        Dim V As Byte

        B = 0
        D = 1
        For C = 1 To Math.Round((Len(Value) / 2))
            V = Val("&H" & Mid$(Value, D, 2))
            Call WriteProcessMemory1(hProcess, Address + B, V, 1, 0&)
            B = B + 1
            D = D + 2
        Next C

    End Sub

    Public Sub WriteInteger(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Integer, Optional ByVal nsize As Integer = 4)
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)

        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then

            End

        End If

        Dim hAddress, vBuffer As Integer
        hAddress = Address
        vBuffer = Value
        WriteProcessMemory1(hProcess, hAddress, CInt(vBuffer), nsize, 0)
    End Sub

    Public Sub WriteFloat(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Single, Optional ByVal nsize As Integer = 4)
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then
            MessageBox.Show(ProcessName & " is not open!")
            Exit Sub
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then
            MessageBox.Show("Opening Error " & ProcessName & "!")
            Exit Sub
        End If

        Dim hAddress As Integer
        Dim vBuffer As Single

        hAddress = Address
        vBuffer = Value
        WriteProcessMemory2(hProcess, hAddress, vBuffer, nsize, 0)
    End Sub

    Public Sub WriteLong(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Long, Optional ByVal nsize As Integer = 4)
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then

            Exit Sub
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then

            Exit Sub
        End If

        Dim hAddress As Integer
        Dim vBuffer As Long

        hAddress = Address
        vBuffer = Value
        WriteProcessMemory3(hProcess, hAddress, vBuffer, nsize, 0)
    End Sub

    Public Function ReadInteger(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Integer
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If

        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then

            Exit Function
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then
            Exit Function
        End If
        Dim hAddress, vBuffer As Integer
        hAddress = Address
        ReadProcessMemory1(hProcess, hAddress, vBuffer, nsize, 0)
        Return vBuffer
    End Function

    Public Function ReadFloat(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Single
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then
            MessageBox.Show(ProcessName & " is not open!")
            Exit Function
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then
            MessageBox.Show("Opening Error " & ProcessName & "!")
            Exit Function
        End If

        Dim hAddress As Integer
        Dim vBuffer As Single

        hAddress = Address
        ReadProcessMemory2(hProcess, hAddress, vBuffer, nsize, 0)
        Return vBuffer
    End Function

    Public Function ReadLong(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Long
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then
            MessageBox.Show(ProcessName & " is not open!")
            Exit Function
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then
            MessageBox.Show("Opening Error" & ProcessName & "!")
            Exit Function
        End If

        Dim hAddress As Integer
        Dim vBuffer As Long

        hAddress = Address
        ReadProcessMemory3(hProcess, hAddress, vBuffer, nsize, 0)
        Return vBuffer
    End Function

End Module

Here are ts2 mayn 2016 addresses , idk if changed.
Code:
[Auto Pill]     012F53DC
[Health]        012F53E0
[Chi]           012F53E4
[GM Vision]     012ED6AB
[Zoom]          012ED41B
[Move Speed]    012F564C
[Slow Mob]      005AB0DC
[Filter Bypass] 00641AD8
[Revive]        0131B36C
[Map]           012F572C
[Current HP]    0131B3A4
[Pet]           012F3D94
[Pet Feed]      012F3D98
[Pet Exp]       012F3D9F

and this is my code. hope u enjoy
Code:
Public Class Form1
    Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer
    Dim ap As Integer = "&H012F53DC" ' active min 1 / no max / 0 = deactivate
    Dim hp As Integer = "&H012F53E0" ' min 0 /  max 5
    Dim chi As Integer = "&H012F53E4" ' min 0/ max 5
    Dim gm As Integer = "&H012ED6AB" ' active 1 / else 0
    Dim zoom As Integer = "&H012ED41B" ' activate 69 ' deactivate 67
    Dim mvspd As Integer = "&H012F564C" ' max 54000 / min 0
    Dim slw As Integer = "&H005AB0DC" ' active = 1084227584 ' deactiveate = 1106247680
    Dim rev As Integer = "&H0131B36C" ' activate 260
    Dim fbp As Integer = "&H00641AD8" ' actuvate 0 , deactivate 319
    Dim map As Integer = "&H012F572C" ' Map
    Dim map1 As Integer = "&H012F5730"
    Dim curhp As Integer = "&H0131B3A4" ' Used for auto revive
    Dim pet As Integer = "&H012F3D94"
    Dim feed As Integer = "&H012F3D98"
    Dim exp As Integer = "&H012F3D9F"
    Dim game As String = "TwelveSky2" ' shorcut for call game...

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Timer1.Start()
            HScrollBar1.Enabled = True
            HScrollBar2.Enabled = True


        Else
            Timer1.Stop()
            HScrollBar1.Enabled = False
            HScrollBar2.Enabled = False
            HScrollBar1.Value = 0
            HScrollBar2.Value = 0
            Label1.Text = 0
            Label4.Text = 0


        End If
        If CheckBox1.Checked = False Then
            WriteInteger(game, ap, 0)
        End If

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = HScrollBar1.Value
        Label4.Text = HScrollBar2.Value
        WriteInteger(game, ap, 7)
        WriteInteger(game, hp, Label1.Text)
        WriteInteger(game, chi, Label4.Text)

    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Timer2.Start()
        Else
            Timer2.Stop()
            WriteInteger(game, gm, 0)
        End If
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        WriteInteger(game, gm, 1)
    End Sub

    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            WriteInteger(game, zoom, 69)
        Else
            WriteInteger(game, zoom, 67)
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            WriteInteger(game, slw, 1084227584)
        Else
            WriteInteger(game, slw, 1106247680)
        End If
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Label6.Text = HScrollBar3.Value
        WriteInteger(game, mvspd, Label6.Text)
    End Sub



    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        If GetKeyPress(Keys.NumPad0) Then
            WriteInteger(game, rev, 260)
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            WriteInteger(game, fbp, 0)
        Else
            WriteInteger(game, fbp, 319)
        End If
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Label8.Text = ReadInteger(game, map1)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        WriteInteger(game, map, TextBox1.Text)
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        Label11.Text = ReadInteger(game, curhp)

        If CheckBox6.Checked = True Then
            If ReadInteger(game, curhp) = 0 Then
                WriteInteger(game, rev, 260)
                CheckBox6.Checked = False

            End If

        End If
    End Sub

    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
        If ReadInteger(game, pet) = 0 Then
            If GetKeyPress(Keys.NumPad1) Then
                WriteInteger(game, pet, 1002)
                WriteInteger(game, exp, 5)
                WriteInteger(game, feed, 100)

            End If
        ElseIf ReadInteger(game, pet) = 1002 Then
            If GetKeyPress(Keys.NumPad1) Then
                WriteInteger(game, pet, 0)
                WriteInteger(game, exp, 0)
                WriteInteger(game, feed, 0)
            End If

        End If

    End Sub

    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked = True Then
            Me.Opacity = 50 / 100
        Else
            Me.Opacity = 100
        End If
    End Sub

    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox8.CheckedChanged
        If CheckBox8.Checked = True Then
            Me.TopMost = True
        Else
            Me.TopMost = False
        End If
    End Sub
End Class
IN YOU WE TRUST !!!!!!!

Make it work please. It is getting detected now. I have tried 12 different injectors with different injecting methods but no success. I even tried to inject dll into xtrap lol

Exe is getting detected. Do you think it's possible to make a DLL that activates autopill AND maphack (4 buttons, one for each faction's hometown)
03/22/2016 13:56 Str8inyou#28
cant make dll im vb net 2010-2015 , and i do not know C++ , i will try to ask dabnoj when he has time , and i have time also to teach me more C++ , my skills in cpp = -1

dabnoj is the real mvp
03/22/2016 19:55 shad0wboss#29
Quote:
Originally Posted by Str8inyou View Post
cant make dll im vb net 2010-2015 , and i do not know C++ , i will try to ask dabnoj when he has time , and i have time also to teach me more C++ , my skills in cpp = -1

dabnoj is the real mvp
I think his TS2bot.dll has the autopill, it's just the addresses that have changed i believe. Can you not change the address in the dll either? But yeah i'd like a map hack too which his DLL doesn't provide :/
04/09/2016 19:29 drei14#30
i got error when i use this and open it as admin.

what is this mean??
Page 2 of 3 1 2 3