[Mayn 2016] Just cuz borred.

Page 1 of 3 1 23
02/09/2016 00:46 Str8inyou#1
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
02/09/2016 03:51 ovicka#2
Great work thank you.
02/09/2016 04:28 danielmemen14#3
str8 can i ask. is this possible to change re spawn time of the boss specially in Realm Boss,it take 5hrs to re spawn again and also the drop rate of the boss can i change it?thanks
02/09/2016 17:17 Str8inyou#4
nop , server side
02/09/2016 21:32 vinsaur#5
Hello, i can bypass the game and use the hack but after 5 mins i got DC from the game.
Do you know how to bypass dc?
thank you :)
02/10/2016 00:06 shad0wboss#6
Can you release something that makes the vengeance in apo cave appear as + in the map?
02/10/2016 11:05 Str8inyou#7
Quote:
Originally Posted by shad0wboss View Post
Can you release something that makes the vengeance in apo cave appear as + in the map?
not sure what u want

Quote:
Originally Posted by vinsaur View Post
Hello, i can bypass the game and use the hack but after 5 mins i got DC from the game.
Do you know how to bypass dc?
thank you :)

i use faith injector , Process Name :"TwelveSky2.exe"
i inject GXDCompress.dll from game path
inject it (also open injector as administrator)
press inject , open game , open my hack as administrator.
no bypass needed
02/10/2016 13:00 vinsaur#8
Now it's working, with Faith injector i was injecting too old xtrapbypass that was detected, now when i inject only dXDCompress.dll it work.
Thank's :)
02/10/2016 13:48 Str8inyou#9
yw
02/11/2016 06:46 erinrhey#10
PLEASE HELP T_T When i open CE 6.5 the ts2 will automatically close even if i use faint injector GXDCompress.dll What to do? PLEASE HELP TIA
02/12/2016 15:13 shad0wboss#11
Str8inyou. Is there a way to read the reinf success rate for the next reinforce? Is it possible to read the success rate even though they are server sided?
02/13/2016 02:24 Str8inyou#12
not sure , didnt try yet, and dont think also its possible cuz its instant object
02/14/2016 21:14 shad0wboss#13
Quote:
Originally Posted by Str8inyou View Post
not sure , didnt try yet, and dont think also its possible cuz its instant object
It would be fun if we can "read" useful info like this and take advantage of it.

Quote:
Originally Posted by Str8inyou View Post
not sure what u want
I meant that, is there a way to farm in apo cave more easily..like have something on the names of vengeance mobs so that we don't have to move the scroll and look for them harder.
02/18/2016 01:37 cleucio#14
downloaded the hack, I logged in the game only Xtrap found me, how do I work?
02/18/2016 21:54 shad0wboss#15
Quote:
Originally Posted by cleucio View Post
downloaded the hack, I logged in the game only Xtrap found me, how do I work?
You need to download faith2 injector. Then open it with admin rights and inject any DLL from game directory THEN open this exe
Page 1 of 3 1 23